在菜单 工程-引用中调用CAD库文件
Dim acadapp As AcadApplication
Dim acaddoc As AcadDocument
Dim acadline1 As AcadLine
Set acadapp = GetObject(, "AutoCAD.Application")
Set acaddoc = acadapp.ActiveDocument
'定义点
Dim pt1(2) As Double
Dim pt2(2) As Double
pt1(0) = 100: pt1(1) = 100: pt1(2) = 0
pt2(0) = 200: pt2(1) = 200: pt2(2) = 0
'划线
Set acadline1 = acaddoc.ModelSpace.AddLine(pt1, pt2)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024