Question

怎样用VB对AutoCAD 进行二次开发？急！急！急！

1、怎样用VB语言在AutoCAD 里建立直角坐标系（WCS）
2、怎样把VB的数据文件读到AutoCAD 里（为了建立点）
请各位告诉帮帮忙吧！感激不尽！

Answer 1

最基本的首先你要在vb中加载autocad库，当然你要装了autocad，可以用vb控制建立cad文件，然后向cad文件中写数据。对于在CAD中建立直角坐标系，建议你看一下wcs对应的cad中的对象是哪一个，然后用vb调用建立wcs。下面是一个vb中创建CAD文件并向模型空间画直线的代码。
前提一定要在vb中加载CAD，记得CAD的帮助文件中有vba的帮助，建议你下载cad vba二次开发的书籍，百度文库有。希望能够采纳我的回答！！！！！

Sub AddLineVB()
On Error Resume Next

' 连接至 AutoCAD 应用程序
Dim acadApp As AcadApplication
Set acadApp = GetObject _
(, "AutoCAD.Application.17")
If Err Then
Err.Clear
Set acadApp = CreateObject _
("AutoCAD.Application.17")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If

' 连接至 AutoCAD 图形
Dim acadDoc As AcadDocument
Set acadDoc = acadApp.ActiveDocument

' 创建直线的端点
Dim lineObj As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
startPoint(0) = 1
startPoint(1) = 1
startPoint(2) = 0
endPoint(0) = 5
endPoint(1) = 5
endPoint(2) = 0
' 在模型空间中创建 Line 对象
Set lineObj = acadDoc.ModelSpace.AddLine _
(startPoint, endPoint)
ZoomAll
acadApp.visible = True
End Sub

Answer 2

hi 里聊。