分享一个调整所选对象的比例的小工具（我只是搬运工）......

XO-20170910

;sgg 调整所选对象的比例
  (defun c:sgg ()

  (setq ss (ssget '((0 . "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,SPLINE"  ))))

  (setq sgg (GETVAR "LTSCALE"))

  (setq n (GETREAL (STRCAT "\n输输入线型比例<全局比例:"(RTOS sgg)">:")))

  (command "chprop" ss "" "ltscale" n "" )

(princ)

)