[编程申请]：快速颜色选择

0+0=20

求程序：使用快速选择的方式，用选颜色的方法来选择物体。斑竹也帮我看看啊。。。。急啊。每次用快速选择命令，很麻烦。。。。

xyp1964

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthre...threadid=325268
(load "xyp_lib")

(defun c:test()
  (setq no1 (uint 1 "" "\n颜色号" no1)
        SS (ssget (list (cons 62 no1)))
        )
  (princ"\n选择集 : !SS")
  (princ)
  )
[/php]

tonhh

这模块就拮据了

sdwy19691229

(defun C:S1 (/ A M)
             (setq m:err *error* *error* *merr*)
             (setvar "cmdecho" 0)
             (command "UNDO" "G")
             (prompt "选择图形")
             (setq A (ssget '((62 . 1)) ))
             (if (/= A nil)(progn
             (setq M (sslength A))
             (command "Select" A "")
             (princ "\n共选择红色图元<")(princ M)(princ ">个")
             ))
             (command "UNDO" "E")  
             (princ)  )

ljpnb

我的绘图方式通常都是颜色随层，所以(setq A (ssget '((62 . 1)) ))这句操作反而不会起作用，并且随层的话，比较容易进行各类操作。

1365252869

xzczxc

tc405003

能否按颜色选取并归并一个层;而且只显示该层

它山之石

用WKAI斑主的选择易。