电子传递lisp

alanjt · 发表于 2022-7-6 11:19:34

不客气。

(defun c:Test nil
 (vl-load-com)
 (command "_.qsave"
          "_.-etransmit"
          "_c"
          (strcat (getvar 'dwgprefix)
                  (vl-filename-base (getvar 'dwgname))
                  ".zip"
          )
 )
 (princ)
)

Millsy29 · 发表于 2022-7-6 11:24:57

艾伦，你是王牌！

alanjt · 发表于 2022-7-6 11:25:58

登录/注册后可看大图

Lee Mac · 发表于 2022-7-6 11:30:42

：lol：

Millsy29 · 发表于 2022-7-6 11:32:40

哈哈哈，文图拉先生，在…之后的最后添加分离x-ref和吹扫有多难。。。？

我在调色板上为这些功能创建了按钮

-清除
全部的
*
不

和

-xr公司
D
*

这些工作很好，但我开始寻找在一个自动化的东西，因为没有什么比努力工作，使你的生活更容易从长远来看！（或者让cad lisp gods向您展示它是如何完成的）

米尔西

alanjt · 发表于 2022-7-6 11:35:33

您已经计算出了语法。你只需要以（命令“-xref”“\u d”“*”）的形式应用它。

是否要在电子传递之前分离所有内容，但不以这种方式保存图形？

Millsy29 · 发表于 2022-7-6 11:39:04

我明白了，我会试试看，然后告诉你我的进展情况。。这个想法是在电子传递之后做额外的功能。因此，它在文件中留下了一个空的shell图形，因此我们无法在再次更新图形时对其进行覆盖。

再次感谢

米尔西

alanjt · 发表于 2022-7-6 11:40:55

如果你需要帮助，大声喊叫。

Millsy29 · 发表于 2022-7-6 11:45:18

我试过了，但没有成功。这就是我在下面所做的。电子传递当然起作用，但我放进去的其余部分不起作用

copy


(defun c:et nil
(vl-load-com)
(command "_.qsave"
"_.-etransmit"
"_c"
(strcat (getvar 'dwgprefix)
(vl-filename-base (getvar 'dwgname))
".zip"
)
command "_.-xref" "_d" "*") 
)
command "_.-purge" "_all" "*" "no") 
)
)
(princ)
)