只需一步,快速开始
使用道具 举报
为什么要取消
(command)
或
(exit)
都应该可以
(defun c:TT (/ tag e) (setq tag T) (while tag (setq e (vl-catch-all-apply 'entsel)) (if (vl-catch-all-error-p e) (princ "拒绝ESC!") (setq tag nil) ) ) e)
3楼说得就应该满足你的要求了呀?
向4楼的学了一招,留着以后用!谢谢!
楼主的意思不大明白
不知道是不是要这个效果:命令杀手~
警告:程序加载后绝大部分命令将失效,请慎用!
您需要 登录 才可以下载或查看,没有账号?注册
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-11-6 09:24 , Processed in 0.247535 second(s), 26 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.