[编程交流] 按线型过滤的选择

(defun c:TEST ( / ent layername layerinf linetype lay index  )
;; FUNCTION FILTER SELECTION OF OBJECT ON SPECIFIC LAYER BY LINE TYPE
(if (setq ent (car (entsel "\nSelect object to get its layer name : ")))
 (progn
  (setq layername (cdr (assoc 8 (entget ent))))
  (setq layerinf (tblsearch "LAYER" layername))
  (setq linetype (cdr (assoc 6 layerinf)))
  ;; MAKE THE SELECTION SELECTION THEN ENTER AND OBJEST HIGHLIGHTED
  (if (setq lay (ssget "_X" (list '(0 . "*LINE") (cons 8 layername) (cons 6 linetype))))
   (progn
    (setq index 0)
    (repeat (sslength lay)
     (redraw (cdr (assoc -1 (entget (ssname lay index))))  3)
     (setq index (1+ index))
    )
   )
  )
 )
)
(princ)
)

(defun c:test ( / en la )
   (if (setq en (car (entsel)))
       (progn
           (setq en (entget en)
                 la (tblsearch "LAYER" (cdr (assoc 8 en)))
           )
           (sssetfirst nil (ssget "_X" (list '(0 . "*LINE") (assoc 8 en) (assoc 6 la))))
       )
   )
   (princ)
)

(defun [color="red"]namedfunction[/color]( / ss_lay cnt i nm ent lt nlt)
(setq ss_lay (ssget "X" (list (cons 0 "LINE")(cons 8 "[color="red"]layer name[/color]"))))
(if ss_lay
  (progn
     (setq Cnt (sslength ss_lay))
(setq i 0)
(repeat Cnt
   (setq NM (ssname ss_lay i))
   (setq ENT (entget NM))
          (setq LT (cdr (assoc 6 ent)) NLT "Continuous")
          (while (< i cnt)
             (if (= LT NLT)
             ([color="red"]what ever you want to do with the lines[/color])
             );if
          );while
      (setq i (+ i 1))
      );repeat 
  );progn
);if
);defun