lisp ssget 浩辰_[原创]带关键字的ssget - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

本帖最后由 作者 于 2008-11-4 15:51:37 编辑

(defun c:mjtd(/ setmode ss i mode)

(cmdbe)

(princ"\n程序功能：快速剪掉多段线内或外的对象")

(if mode mode (setq mode "内部"))

(setq setmode t)

(while setmode

(princ (strcat "\n当前剪切模式是:" mode))

(setq ss (ko-ssget (strcat "\n选择对象或[设置剪切环境(S)]:") "S" '((0 . "*polyline"))))

(cond

((= ss "S") (setq mode (settrimmode mode))

)

((= (type ss) 'PICKSET) (trimmainprogram ss) (setq setmode nil)

)

((= ss nil) (setq setmode nil)

)

)

)

(cmde)

(princ)

)

(defun trimmainprogram(ss / i lst ena)

(command "._zoom" "o" ss "")

(setq i 0)

(repeat (sslength ss)

(setq ena (ko-convert-pline (ssname ss i)))

(cond

((= mod