请问如何加个相同颜色过滤条件？

wmj1999

(defun c:qs()                                  ;;选择类似对象。可批量选择多个类型图元，类似cad2012版的SELECTSIMILAR命令
(setvar "cmdecho" 0)                      ;;_禁止回显
(vl-load-com)
(setq ss1 nil)
  (while (setq s1 (car (entsel "\n选择模板对象: ")))               ;;car：返回列表中的第一个元素，点选一个模板对象
    (setq ss (ssget "x"                                           ;;ssget "x"：取得根据过滤列表所指定范围的选择集
               (list (cons 0 (cdr (assoc 0 (entget s1))))         ;;群码0对应“对象类别”
                     (cons 8 (cdr (assoc 8 (entget s1))))         ;;群码8对应“图层名称”
                     ;(cons 62 (cdr (assoc 62 (entget s1))))
                           )
              )
    )
    (setq ss1 (xlr_ss_he ss ss1 ))                                  ;;
    (sssetfirst nil ss1)                                            ;;被nil被掣动；ss1被选取

         (princ "\n")(princ (strcat "当前选择了:" (rtos (sslength ss1) 2 0) "个；"))
      ;(setq ysbh (cdr (assoc 62 (entget s1))))
          (setq ysbh(vla-get-color (vlax-ename->vla-object s1)))        ;;可识别ByBlock、ByLayer,cad2012须加载(vl-load-com)
           (cond
          ((= ysbh 0)(princ "颜色编号:ByBlock；"))
          ((= ysbh 256)(princ "颜色编号:ByLayer；"))
          ((princ "颜色编号:")(princ ysbh)(princ "；"))
                )
     (setq dxlb (cdr (assoc 0 (entget s1))))
          (princ "对象类别:")(princ dxlb)
   )
  ;;(command "_text" (getpoint "\n插入点:")  300 0 (strcat "\na=" (rtos ss1 2 5)))
  (princ)
)


(defun xlr_ss_he (ss1 ss2 / hilite ss3)
  (command "SELECT" ss1 ss2 "")
  (setq ss3 (ssget "p"))                                            ;; 两选择集的并集;差集(command "_.select" SS1 "remove" SS2 "")
)

iLisp

62 是颜色dxfcode

marting

在颜色是随层的时候，是没有祖码62的，所以你得判断下源实体是否有62祖码，如果有就SSGET里面过滤，如果没有还得循环下判断过滤出来。