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

bubu

我学习新建一段创建新图形的程序

Public Sub creatDocument()
Dim doc As AcadDocument
On Error Resume Next

Set doc = ThisDrawing.Application.Documents.Add()
End Sub

发现只能在有图形空间打开的情况下才能成功,在图形空间都关闭的情况下就不行了.

请各位高手老师指点一下,怎样才能在图形空间都关闭的情况下启动一个新文档?

雪山飞狐_lzh

Set doc = Application.Documents.Add()

bubu

谢谢您了,不过还是不行啊!我用的是CAD2004

雪山飞狐_lzh

把代码放在模块里，而不是ThisDrawing模块里

offloading

-

geabus

dim APP AS acadapplicaton

set APP=getobject("autocad.application")

set doc=app.documents.add()