社区 › Auto Lisp › 电子传递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

 
http://media.monstersandcritics.com/articles/1206371/article_images/aceinaction.jpg

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

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


(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)
)


我哪里做错了？你能给我指一下com beginers网站上的lisps吗。我觉得我现在开始对别人要求太多了
 
米尔西
 
 
Millsy-请使用
标签，因为它使代码更容易阅读。谢谢

alanjt 发表于 2022-7-6 11:48:53

让我们让事情变得更容易理解（未经测试）。。。
 
7
 
 
请看我签名中指向AfraLISP的链接。

查看完整版本: 电子传递lisp