BIGAL 发表于 2022-7-5 17:38:13

在脚本中打开DWG

我通过使用Vla open解决了第一个问题，即文件名和目录中有空格，它适用于单个DWG。我需要做一个脚本过程，脚本打开一个dwg，使其成为默认值，但随后停止，不运行预加载的defun或使用（加载“xxxx”），它只是将命令返回到当前图形。任何想法都非常令人沮丧，128个单独的目录。
 
Lisp
(defun openblk (blkname / adocs)
(setq acDocs (vla-get-documents (vlax-get-acad-object)))
(vla-open acDocs blkname)
(vla-activate (vla-item acdocs 1))
;(vla-put-activedocument (vlax-get-acad-object) (vla-item acdocs 1))
)

script
Filedia 0
(openblk "P:/2014 Projects/2014073/Design/basin 1/2014073-1")
(plotbasin)
CLOSE N

rlx 发表于 2022-7-5 17:52:14

嗨，比格尔，
 
 
我假设openblk和plotbasin都是自动/预加载的？
 
 
Gr.Rlx

bababarghi 发表于 2022-7-5 17:57:26

我非常喜欢李的节目。99.99%的时候，我用他的剧本作者来写剧本。如果所有图形都位于单个文件夹中，请尝试。
 

BIGAL 发表于 2022-7-5 18:02:38

谢谢大家解决了这个问题，实际上这不是dwg名称的问题，而是lisp程序最后一行的拼写错误，这会导致错误，因此脚本停止，运行lisp时可以工作，我忽略了发生的错误。

David Bethel 发表于 2022-7-5 18:12:19

我认为用下划线替换空格同样适用于纯脚本行-大卫
 

open
p:/2014_projects/   ....

 
-大卫

BIGAL 发表于 2022-7-5 18:19:44

David your需要重命名的目录和文件正确但有128个，修复了lisp，并有几个失败，这些都是现在排序的绘图问题，原始起草人遗漏了我在脚本中输入的一个数字，生成了148个pdf，每个dwg大约4秒。

samifox 发表于 2022-7-5 18:24:23

有没有办法覆盖打开的对话框？（aka-打开）？

dbroada 发表于 2022-7-5 18:37:54

看看比格尔的剧本，
Filedia 0

samifox 发表于 2022-7-5 18:44:30

 
Thanx。还有什么没有命令版本（no-command）？
页: [1]
查看完整版本: 在脚本中打开DWG