如何用lisp控制OVERKILL命令面板上的选项?

自贡黄明儒

i小小白i 发表于 2024-9-29 08:57
overkill在低版本CAD里属于ET扩展的名令，后来才变成高版本CAD自带的命令的。可以在CAD2010的安装目录里找 ...

我差点就相信你了，打开2010看了一上，没有汉字。老外也不可能搞成汉字呀？

1. ;;1 调用overkill
   
2.   (if (wcmatch (getvar "AcadVer") "*BricsCAD*")
   
3.     (vl-catch-all-apply 'vl-cmdf (list "_.overkill" ss "" ""))
   
4.     (vl-catch-all-apply 'vl-cmdf (list "_.overkill" ss ""))
   
5.   )
   

;;1 调用overkill<br />   (if (wcmatch (getvar "AcadVer") "*BricsCAD*")<br />     (vl-catch-all-apply 'vl-cmdf (list "_.overkill" ss "" ""))<br />     (vl-catch-all-apply 'vl-cmdf (list "_.overkill" ss ""))<br />   )<br />

i小小白i

自贡黄明儒 发表于 2024-9-29 16:21
我差点就相信你了，打开2010看了一上，没有汉字。老外也不可能搞成汉字呀？

  (command-s "-overkill" "all" "" "E" "N" "D");;提示错误，但改成  (command-s "-overkill" "all" "" "E" "否" "D")就可以了。

魔法披风

i小小白i 发表于 2024-9-29 16:35
(command-s "-overkill" "all" "" "E" "N" "D");;提示错误，但改成  (command-s "-overkill" "all" " ...

厉害了大佬