新手求教，如何把2个CAD命令合并成一个连续的命令

yigcungang · 发表于 2011-2-22 20:32

期待高手解答

ZZXXQQ · 发表于 2011-2-22 22:52

本帖最后由 ZZXXQQ 于 2011-3-2 10:06 编辑

(defun c:tt ()
(if (setq ss (ssget)) (progn
  (command "chprop" ss "" "LA" "0" "")  ;1把选择对象转为0层
  (command ".erase" "ALL" "R" ss "")    ;2删除选择外所有图形
  (command ".purge" "ALL" "*" "N")    ;3清理全部pu
))
(princ)
)

669423907 · 发表于 2011-2-28 22:04

版主啊，这个程序没反应啊！！！

仲文玉 · 发表于 2011-3-1 08:01

本帖最后由仲文玉于 2011-3-1 08:02 编辑

669423907 发表于 2011-2-28 22:04
版主啊，这个程序没反应啊！！！

要学会调试！只是少了个）而已
(defun c:tt ()
(if (setq ss (ssget)) (progn
  (command "chprop" ss "" "LA" "0" "")  ;1把选择对象转为0层
  (command ".erase" "ALL" "R" ss "")    ;2删除选择外所有图形
  (command ".purge" "ALL" "*" "N")    ;3清理全部pu
)
(princ)
)
)

669423907 · 发表于 2011-3-1 10:52

(progn）
提示语法错误啊？？？！！！

669423907 · 发表于 2011-3-1 20:45

谢谢！！！
是我愚笨！

emch · 发表于 2015-10-18 21:31

学习了，方法比较多啊。

账号		自动登录	找回密码
密码			注册

[基础] 新手求教，如何把2个CAD命令合并成一个连续的命令

浏览过的版块