本帖最后由 xyp1964 于 2014-4-27 11:38 编辑
![](source/plugin/imc_colorcode/images/loading.gif) - ;; 需要e派工具箱(XCAD)的支持:http://yunpan.cn/QXQKsW9gAPmpF 访问密码 2ffa
- (defun c:tt ()
- (setq int (Uint 7 "" "整数" int)
- sc (/ (getvar 'ltscale) int)
- i -1
- )
- (if (setq ss (ssget))
- (while (setq s1 (ssname ss (setq i (1+ i))))
- (if (setq ls (xyp-DXF 48 s1))
- (xyp-SubUpd s1 48 (* ls sc))
- (xyp-SubUpd s1 48 sc)
- )
- )
- )
- (setvar "ltscale" int)
- (princ)
- )
|