chonglang 发表于 2005-11-25 16:39:00

[求助]如何新建一个dwg文件，然后保存

<P>如何新建一个dwg文件，然后保存</P>
<P>帮我写一小段代码作为参考，谢谢了</P>

9831LAOYIN 发表于 2005-11-25 19:16:00

<P>楼主所问何意啊?你文件新建不就可以了?然后保存啊.如果说的不对还请包涵啊</P>

songzhi 发表于 2005-11-25 21:31:00

<P>&nbsp;&nbsp;&nbsp; Dim objDoc&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; As AcadDocument<BR>&nbsp;&nbsp;&nbsp; Set objDoc = ThisDrawing.Application.Documents.Add<BR>........................</P>
<P>&nbsp;&nbsp;&nbsp; ThisDrawing.SaveAs FileName, DrawType</P>
<P>&nbsp;&nbsp;&nbsp; objDoc.Close False</P>
<P>&nbsp;&nbsp;&nbsp; Set objDoc = Nothing<BR><BR><BR></P>

chonglang 发表于 2005-11-25 21:33:00

<P>Sub NewFile()<BR>&nbsp;&nbsp;&nbsp; Dim objDoc As AcadDocument<BR>&nbsp;&nbsp;&nbsp; Set objDoc = ThisDrawing.Application.Documents.Add&nbsp;&nbsp; <BR>End Sub</P>
<P>我运行的时候为什么会出现 不能运行宏 autocad忙</P>

songzhi 发表于 2005-12-4 11:06:00

我用的时候好象没有问题呀！你看看是否在运行命令前在执行其他没有结束的命令呀？
页: [1]
查看完整版本: [求助]如何新建一个dwg文件，然后保存