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

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

我用vba中添加新图层的代码转换成vb码后，运行就出错，怎么回事？


Dim AcadLayer as Object


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


请各位帮忙看看，谢谢！<BR>

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

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

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

AcadApp-&gt;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

谢谢，可以了。        <A href="http://www.smileycentral.com/?partner=ZSzeb001_ZNxdm744YYCN" target="_blank" ><IMG alt=Goofy src="http://smileys.smileycentral.com/cat/4/4_1_200v.gif" border=0></A>        <BR><BR><BR><BR><BR><BR><A href="http://www.smileycentral.com/?partner=ZSzeb044_ZNxdm744YYCN" target="_blank" ><IMG src="http://www.smileycentral.com/sig.jsp?pc=ZSzeb044&amp;pp=ZNxdm744YYCN" border=0></A>
页: [1]
查看完整版本: [求助]在Autocad中添加新图层的问题