kaierme 发表于 2004-7-4 15:56:00

利用VBA从EXCEL调用AUTOCAD，如何创建图层，谢谢

本帖最后由 作者 于 2004-7-4 16:30:50 编辑

利用VBA从EXCEL调用AUTOCAD，如何创建图层，谢谢

efan2000 发表于 2004-7-4 20:12:00

Sub test()<BR>                       ' 连接ACAD<BR>                       Dim AcadApp As        Object<BR>                       Set AcadApp = GetObject(, "AutoCAD.Application")<BR>                       If Err Then<BR>                                                       Err.Clear<BR>                                                       Set AcadApp = CreateObject("AutoCAD.Application")<BR>                                                       If Err Then Exit Sub<BR>                       End If<BR>                       ' 创建层<BR>                       AcadApp.ActiveDocument.Layers.Add ("New_Layer")<BR>End Sub

meflying 发表于 2004-7-4 20:50:00

是VBA中，最后一句就可以了吧

mccad 发表于 2004-7-4 20:56:00

是从EXCEL调用AUTOCAD

kaierme 发表于 2004-7-5 12:30:00

我已经搞定了，谢谢
页: [1]
查看完整版本: 利用VBA从EXCEL调用AUTOCAD，如何创建图层，谢谢