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

lichh_2003 发表于 2004-11-8 11:42:00

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

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

tjdxtm 发表于 2004-11-8 12:03:00

先把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 发表于 2004-11-8 14:12:00

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

wyj7485 发表于 2004-11-8 16:18:00

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

查看完整版本: 求助：怎么样通过VB在CAD添加图层呢？