仿照改变曲线宽度程序,编程实现注记缩放程序 (defun c:qxkd( / ss i ename kd) (setq ss (ssget (list (cons 0 "LWPOLYLINE")))) (if ss (progn (setq kd (getreal "\n线宽改为图上几毫米 ? ")) (if kd (progn (setq ne (sslength ss) i 0) (while (< i ne) (setq ename (ssname ss i)) (command "pedit" ename "w" kd "") (setq i (1+ i)) ) )) )) (princ) )