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

fenny

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

yulijin608

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

雪山飞狐_lzh

AcadApp->AcadApp.ActiveDocument

fenny

运行前abc不存在


另: AcadApp=AcadObj.ActiveDocument.ModelSpace


提示错误438，说没有这个属性。

mccad

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

fenny

谢谢，可以了。