VB6.0与AutoCAD2006编程教程整理.docx

1.用VB6.0打开AutoCAD2006 （1）新建工程，在Visual Basic下引用AutoCAD对象模型库；工程——引用（勾选AutoCAD 2006 Type Library），如 REF _Ref419877027 \n \h 图1.1所示。 勾选AutoCAD 2006 Type Library （2）在工程中添加按钮1，修改其caption为“打开CAD”，如 REF _Ref419877243 \n \h 图1.2所示。 添加按钮 （3）双击按钮，并添加代码。 Dim myAcadApp As AutoCAD.AcadApplication Dim activeDoc As AutoCAD.AcadDocument Dim acMS As AutoCAD.AcadModelSpace Private Sub Command1_Click() On Error Resume Next Set myAcadApp = GetObject(, Autocad.Application) 检查AutoCAD是否已经打开 If Err 0 Then 没有打开 Err.Clear Set myAcadApp = CreateObject(Autocad.Application) 打开CAD If Err Then MsgBox Err.Number : Err.Description 打开失败 Exit Sub End If End If On Error GoTo prcERR myAcadApp.Visible = True 显示CAD Set activeDoc = myAcadApp.ActiveDocument prcERR: Set activeDoc = Nothing Set myAcadApp = Nothing End Sub 或如下代码（下面所有代码均基于此代码）： Dim acadapp As AcadApplication 定义为Acad的好像都该放在前面 Dim activeDoc As AcadDocument 用于复制线 (Dim LineObj As AcadLine 要放到前面，否则无法运行 Private Sub Command1_Click() On Error Resume Next Set acadapp = GetObject(, AutoCAD.Application) 如果AutoCAD已经运行，则获取AutoCAD的Application对象 If Err Then Err.Clear Set acadapp = CreateObject(AutoCAD.Application) 如果AutoCAD没有运行，则启动AutoCAD，创建Application对象 If Err Then MsgBox Err.Description Exit Sub End If End If acadapp.Visible = True End Sub （4）运行→启动（F5），点击按钮，打开AutoCAD2006。 2.画直线 （1）添加按钮2“画直线”，双击按钮，输入下列代码。 Sub Command2_Click() Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double Dim LineObj As AcadLine Set activeDoc = acadapp.ActiveDocument startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0 endPoint(0) = 30: endPoint(1) = 20: endPoint(2) = 0 Set LineObj = activeDoc.ModelSpace.AddLine(startPoint, endPoint) 画线 End Sub （2）运行→启动（F5），点击按钮（先点击“打开CAD”，再点击“画直线”，若直接点击“画直线”会出错），画线。 3.画弧 （1））添加按钮3“画弧”，双击按钮，输入下列代码。 Sub Command3_Click() Dim arcObj As AcadArc Dim centerPoint(0 To 2) As Double Dim radius As Double Dim startAngleInDegree As Double Dim e