求助：怎么样通过VB在CAD添加图层呢？

lichh_2003

求助：怎么样通过VB在CAD添加图层呢？


谢谢！！

tjdxtm

先把vb与cad建立连接 Set acadApp = GetObject(, "autocad.application.15")
If Err Then
Err.Clear
Set acadApp = CreateObject("autocad.application.15")
If Err Then
Err.Clear
Set acadApp = GetObject(, "autocad.application.16")
If Err Then
Err.Clear
Set acadApp = CreateObject("autocad.application.16")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
End If
End If 再建立图层。

lichh_2003

这个我已经实现了，那接着怎么办呢？

wyj7485

Dim LayObj As AcadLayer
Set LayObj = AcadApp.ActiveDocument.Layers.Add("test")