巛丸 发表于 2012-9-17 14:34:06

框选图层对调求助

本帖最后由 巛丸 于 2012-9-17 14:38 编辑

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


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

求 对调函数

Andyhon 发表于 2012-9-17 15:38:30


(defun c:as ()
(vl-load-com)
(setvar "cmdecho" 0)
(cond
   ((Null (setq sss (ssget '((0 . "line") (8 . "colu,ct"))))))
   (T
   (setq sss1 (ssget "p" '((8 . "ct"))))
   (command "_.select" sss "remove" sss1 "")
   (setq sss2 (ssget "p"))
   (command "Chprop" sss1 "" "LA" "colu" "")
   (command "Chprop" sss2 "" "LA" "ct" "")
    )
)
(princ)
)

hao3ren 发表于 2012-9-17 16:13:19

用change啊，你的选择集都出来了

巛丸 发表于 2012-9-17 17:01:10


杨如迁 发表于 2012-9-17 17:47:55

好厉害
页: [1]
查看完整版本: 框选图层对调求助