你是不是这个意思?
![](source/plugin/imc_colorcode/images/loading.gif) - (defun C:WPS4 (/ ELIST PTS SS)
- (princ "\nPick a polyline: ")
- (if (setq ss (ssget ":E:S" '((0 . "LWPOLYLINE"))))
- (progn
- (setq elist (entget (ssname ss 0)))
- (setq elist (vl-remove-if-not '(lambda (x) (= (car x) 10)) elist))
- (setq pts (mapcar 'cdr elist))
- (apply 'command (append '("select" "wp") pts '("" "")))
- )
- )
- (princ)
- )
|