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

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

本帖最后由巛丸于 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)
)

齐天大圣3386 · 发表于 2012-9-17 18:39:57

发错地方啦，应该发到lisp板块。

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

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

本帖子中包含更多资源

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