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

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

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

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

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

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

我已经搞定了，谢谢

账号		自动登录	找回密码
密码			注册