在VB6中调用CAD命令通常通过AutoCAD提供的ActiveX自动化接口实现，这一过程需要先建立与AutoCAD应用程序的连接，然后通过对象模型发送命令或操作图形对象,以下是详细步骤和注意事项：
需确保系统中安装了AutoCAD（以AutoCAD 2000及以上版本为例），并在VB6项目中引用AutoCAD类型库，通过“工程”→“引用”勾选“AutoCAD XXX Type Library”（XXX为版本号，如AutoCAD 2020），引用后，可直接使用AutoCAD的对象模型，如Application、Document、Database等核心对象。
建立连接的常用方法是使用CreateObject函数获取AutoCAD应用程序对象。Dim acadApp As Object Set acadApp = CreateObject("AutoCAD.Application")，若AutoCAD已运行，可通过GetObject函数附加到现有进程：Set acadApp = GetObject(, "AutoCAD.Application")，连接成功后，可通过acadApp.Visible = True使AutoCAD窗口可见。
通过Document对象操作图形文件，例如打开现有文件：Dim acadDoc As Object Set acadDoc = acadApp.ActiveDocument，或创建新文档：Set acadDoc = acadApp.Documents.Add，操作图形对象需访问ModelSpace或PaperSpace集合，如添加直线：Dim lineObj As Object Set lineObj = acadDoc.ModelSpace.AddLine(startPoint, endPoint)，其中startPoint和endPoint为三维点数组（如Array(0, 0, 0)和Array(100, 100, 0)）。
调用CAD命令可通过SendCommand方法实现，例如执行“LINE”命令：acadDoc.SendCommand "_LINE " & startPoint & " " & endPoint & " " & vbCrLf，需注意命令格式需符合AutoCAD命令行规范，参数间用空格分隔，回车符用vbCrLf表示，对于交互式命令（如选择对象），需结合SelectionSet对象筛选图形，例如创建选择集：Dim sset As Object Set sset = acadDoc.SelectionSet.Add("MySelection")，然后通过Select方法添加对象。
以下为常用操作示例的代码框架：
| 操作类型 | VB6代码示例 |
|---|---|
| 启动AutoCAD | Set acadApp = CreateObject("AutoCAD.Application") |
| 打开DWG文件 | acadApp.Documents.Open "C:\Test.dwg" |
| 绘制圆 | acadDoc.ModelSpace.AddCircle centerPoint, radius |
| 执行缩放命令 | acadDoc.SendCommand "_SCALE " & "P" & " " & basePoint & " " & scaleFactor & vbCrLf |
| 保存文档 | acadDoc.SaveAs "C:\NewDrawing.dwg" |
注意事项包括：1. 错误处理需完善，如AutoCAD未启动时需捕获异常；2. 对象使用后需释放（Set obj = Nothing），避免内存泄漏；3. 不同AutoCAD版本的对象模型可能存在差异，需测试兼容性；4. SendCommand方法无法直接获取命令执行结果,复杂操作建议通过直接操作对象实现。
相关问答FAQs：
Q1: VB6调用CAD命令时如何处理命令行交互？
A1: 对于需要用户输入的命令（如“TRIM”），可通过SendCommand发送模拟键盘输入的字符串，例如acadDoc.SendCommand "_TRIM " & "select_objects " & "cutting_edges " & "vbCrLf"，但更推荐使用SelectionSet对象编程选择，避免依赖手动输入，若必须交互，可结合AutoCAD的GetInput方法（需较新版本支持）或通过事件监听（如acadDoc.CommandEnded事件）捕获完成状态。
Q2: 如何在VB6中获取CAD图形对象的属性？
A2: 通过Document对象的SelectionSet或遍历ModelSpace/PaperSpace集合获取对象引用后，直接访问其属性，例如获取直线起点坐标：Dim startPt As Variant startPt = lineObj.StartPoint，其中startPt是包含X、Y、Z坐标的数组，对于复杂属性（如图层、线型），可通过lineObj.Layer或lineObj.Linetype获取，需注意对象类型需匹配，如尝试访问圆的StartPoint属性会报错，可通过TypeName函数检查对象类型（TypeName(obj)）。
