bubu 发表于 2006-8-14 22:48:00

如何才能用VBA直接新建一个moldplace

<P>我学习新建一段创建新图形的程序</P>
<P><FONT style="BACKGROUND-COLOR: #ffff00">Public Sub creatDocument()<BR>Dim doc As AcadDocument<BR>On Error Resume Next</FONT></P>
<P><FONT style="BACKGROUND-COLOR: #ffff00">Set doc = ThisDrawing.Application.Documents.Add()<BR>End Sub</FONT></P>
<P><FONT style="BACKGROUND-COLOR: #eeeeee">发现只能在有图形空间打开的情况下才能成功,在图形空间都关闭的情况下就不行了.</FONT></P>
<P><FONT style="BACKGROUND-COLOR: #eeeeee">请各位高手老师指点一下,怎样才能在图形空间都关闭的情况下启动一个新文档?</FONT></P>

雪山飞狐_lzh 发表于 2006-8-14 23:03:00

<FONT style="BACKGROUND-COLOR: #ffff00">Set doc = Application.Documents.Add()</FONT><BR>

bubu 发表于 2006-8-15 20:52:00

<P>谢谢您了,不过还是不行啊!我用的是CAD2004</P>

雪山飞狐_lzh 发表于 2006-8-15 23:26:00

<P>把代码放在模块里，而不是ThisDrawing模块里</P>

offloading 发表于 2009-1-9 09:08:00

本帖最后由 作者 于 2009-1-9 9:14:28 编辑

-

geabus 发表于 2009-1-12 10:03:00

<p>dim APP AS acadapplicaton</p><p>set APP=getobject("autocad.application")</p><p>set doc=app.documents.add()</p><p></p>
页: [1]
查看完整版本: 如何才能用VBA直接新建一个moldplace