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

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

求助：怎么样通过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添加图层呢？

发表回复

精选推荐