社区 › VB › [求助]在Autocad中添加新图层的问题

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

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

我用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

谢谢，可以了。       
http://smileys.smileycentral.com/cat/4/4_1_200v.gif
       



http://www.smileycentral.com/sig.jsp?pc=ZSzeb044&pp=ZNxdm744YYCN

查看完整版本: [求助]在Autocad中添加新图层的问题