(defun c:Y( / sl-mapcar-ens ss) (defun sl-mapcar-ens (func ss) (mapcar func (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))) (princ "n선 양끝 남기기") (and (setq ss (ssget '((0 . "LINE")))) (or *dis* (setq *dis* 50)) (setq *dis* (cond ((getdist (strcat "n남길 길이 ...더 읽기
홈/리습/양끝남기기/양끝/색상