框选 图层对调 求助 --------------
(defun c:as ()(vl-load-com)
(setvar "cmdecho" 0)
(graphscr)
(if (setq sss (ssget '((0 . "line") (8 . "colu,ct"))))
(progn (setq sss1 (ssget "p" '((8 . "ct"))))
(command "_.select" sss "remove" sss1 "")
(setq sss2 (ssget "p"))
)
)
(对调函数)
(princ)
)
**** Hidden Message ***** 发错地方啦，应该发到lisp板块。
页:
[1]