框选 图层对调 求助 --------------
本帖最后由 巛丸 于 2012-9-17 14:31 编辑(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)
)
发错地方啦，应该发到lisp板块。
页:
[1]