框选图层对调求助 --------------

巛丸 · 发表于 2012-9-17 14:30:00

(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)
)

51sheao4ir1.jpg

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复