只需一步,快速开始
使用道具 举报
try (acet-ss-clear-prev) ; need ET
先(SETQ SS (SSGET "p"))
再(SETQ SS nil)?
oyxx1023发表于2009-1-6 10:38:00先(SETQ SS (SSGET \"p\"))再(SETQ SS nil)?
我经常先选择一实体,察看实体的层等信息,之后就调用lisp命令,而此前的选择没有被清除,lisp命令建立在此选择后,很不好,那个ese逃脱符又不知道如何使用
\n为换行
\e、\t的都不行~~
命令: (ssget "p")nil
nonsmall发表于2009-1-7 14:55:00命令: (command \"select\" \"\")命令: (ssget \"p\")nil
这样也不行的,
先执行选择集操作确保 (ssget "p") 返回为真
然后(command "select" "")
再(ssget "p")---------------------------------------------只有返回nil才有效的
;;-------------这是ET的方法-------------------------------
;; ▓ (lta:ClearSS);; [功能] 清空选择集(defun lta:ClearSS (/ ss) (if (setq ss (ssget "_x" (list (cons 410 (getvar "ctab"))))) (progn (setvar "cmdecho" 0) (setvar "highlight" 0) (command "_.select" (ssname ss 0) "") (command "_.undo" "1") (setvar "highlight" 1) ) ) nil)
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-6-30 11:10 , Processed in 0.173384 second(s), 27 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.