Question

怎么用vb在cad里画图？？？ 求高手帮助，再给推荐点资料。谢谢！

Answer 1

' 首先在工程里引用 AutoCAD 类型库，例如 CAD2004的 “AutoCAD 2004 Type Library”
' 下面的代码在CAD里画一个圆，圆心在(100,100,0)处，半径为 50

Dim Acadapp As AcadApplication
On Error Resume Next
Set Acadapp = GetObject(, "AutoCAD.Application") ' 连接 CAD
If Err Then
Err.Clear
Set Acadapp = CreateObject("AutoCAD.Application") ' 如果CAD没有打开，则打开一个新的CAD
If Err Then
MsgBox Err.Description ' 如果打开CAD失败显示错误信息
Exit Sub
End If
End If

Dim circleObj As AcadCircle
Dim point1(0 To 2) As Double, dR As Double
point1(0) = 100#: point1(1) = 100#: point1(2) = 0# ' 定义圆心坐标
dR = 50# ' 定义圆半径

Set circleObj = Acadapp.ActiveDocument.ModelSpace.AddCircle(point1, dR) '按定义圆心和半径画出一个圆

想要更详细的学习，建议看CAD帮助里的 VBA 部分。