只能选择多段线,其他的都选择不了(setq ss (LC:ssget-CASSCode (list (cons 0 "line")(cons 8 "DMX")'(-3 ("south"))) "992000")) (defun LC:ssget-CASSCode(filter sCode / ss sn si i ed sc scss) (setq ss(ssget "X" filter )) (setq sn (if ss (sslength ss) 0)) (setq scss(ssadd)) (setq i 0) (while(< i sn) (setq si(ssname ss i)) (setq ed(entget si '("south"))) (setq sc(cdr(cadr (cadr (assoc -3 ed))))) (if(= sc sCode) (ssadd si scss) ) (setq i(1+ i)) ) scss )