[求助]在Autocad中添加新图层的问题

fenny · 发表于 2005-1-8 13:54:00

我用vba中添加新图层的代码转换成vb码后，运行就出错，怎么回事？
Dim AcadLayer as Object
Set AcadLayer = AcadApp.Layers.Add("ABC")
请各位帮忙看看，谢谢！

yulijin608 · 发表于 2005-1-8 17:23:00

是不是层"ABC"已经存在啊

雪山飞狐_lzh · 发表于 2005-1-8 17:55:00

AcadApp->AcadApp.ActiveDocument

fenny · 发表于 2005-1-9 08:53:00

运行前abc不存在
另: AcadApp=AcadObj.ActiveDocument.ModelSpace
提示错误438，说没有这个属性。

mccad · 发表于 2005-1-9 09:12:00

Set AcadLayer = AcadApp.ActiveDocument.Layers.Add("ABC")

fenny · 发表于 2005-1-9 09:35:00

谢谢，可以了。