ForYang 发表于 2019-9-11 14:38:51

新建图形文件

如何使用Autolisp在CAD新建图形文件，并在里面绘图？请教各位大神:handshake

Andyhon 发表于 2019-9-11 14:38:52

(command "._VBASTMT" "AcadApplication.Documents.Add \"Acad.DWT\"")

You might replace Acad.dwt

ForYang 发表于 2019-9-12 10:54:18

Andyhon 发表于 2019-9-11 16:57
(command "._VBASTMT" "AcadApplication.Documents.Add \"Acad.DWT\"")

You might replace Acad.dwt

thank you very much, it works well.

bloodtempt 发表于 2019-9-12 14:01:47

(vla-add #docs#)

ForYang 发表于 2019-9-14 16:18:27

Andyhon 发表于 2019-9-11 14:38
(command "._VBASTMT" "AcadApplication.Documents.Add \"Acad.DWT\"")

You might replace Acad.dwt

你好，我使用上述命令能够创建新的图形文件，但是同时会返回"错误，函数已取消"。请问这可能是什么原因造成的？

ForYang 发表于 2019-9-14 17:40:29

bloodtempt 发表于 2019-9-12 14:01
(vla-add #docs#)

你好，请问具体怎么使用，能写个实例吗？

Andyhon 发表于 2019-9-15 18:15:19

@5#
单此句(command "._VBASTMT" "AcadApplication.Documents.Add \"Acad.DWT\"")
我这兒无错

13648893846 发表于 2019-9-15 23:44:13

(setq *AcadDocument* (Vla-Get-ActiveDocument (Vlax-Get-Acad-Object)))                                      (setq path (strcat (qf_getFolder "\n 选择图纸所在文件夹：") "\\"))         (setq dwgname (strcat (getstring "\n 请输入文件名:") ".dwg"))               (vlax-invoke-method *AcadDocument* 'SaveAs (strcat path dwgname)) ;新建图纸       

ForYang 发表于 2019-9-16 08:57:25

13648893846 发表于 2019-9-15 23:44
(setq *AcadDocument* (Vla-Get-ActiveDocument (Vlax-Get-Acad-Object)))                                      (setq path (strcat (qf_g ...

谢谢你的回复，但是感觉这个好像是更改文件名的，并没有新建图形文件

ForYang 发表于 2019-9-16 09:13:25

Andyhon 发表于 2019-9-15 18:15
@5#
单此句(command "._VBASTMT" "AcadApplication.Documents.Add \"Acad.DWT\"")
我这兒无错

我直接复制过去，运行过去可以新建文件，但是仍然返回“错误: 函数已取消”，我用cad2016和2018都一样，是不是我的版本原因呢
页: [1] 2
查看完整版本: 新建图形文件