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

chonglang

如何新建一个dwg文件，然后保存

帮我写一小段代码作为参考，谢谢了

9831LAOYIN

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

songzhi

    Dim objDoc                  As AcadDocument
    Set objDoc = ThisDrawing.Application.Documents.Add
........................

    ThisDrawing.SaveAs FileName, DrawType

    objDoc.Close False

    Set objDoc = Nothing

chonglang

Sub NewFile()
    Dim objDoc As AcadDocument
    Set objDoc = ThisDrawing.Application.Documents.Add  
End Sub

我运行的时候为什么会出现 不能运行宏 autocad忙

songzhi

我用的时候好象没有问题呀！你看看是否在运行命令前在执行其他没有结束的命令呀？