社区 › VB › 如何才能用VBA直接新建一个moldplace

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

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

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

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

Set doc = Application.Documents.Add()

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

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

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

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

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

-

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

dim APP AS acadapplicaton
set APP=getobject("autocad.application")
set doc=app.documents.add()

查看完整版本: 如何才能用VBA直接新建一个moldplace