- 积分
- 5163
- 明经币
- 个
- 注册时间
- 2004-1-23
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2004-3-12 20:28:00
|
显示全部楼层
大家不要这么费劲了,其实就是在缩放的尺寸前,把要缩放的尺寸文字锁定不改变,下面就给大家一个小程序,作用就是把尺寸当前测量尺寸锁定的,加载后输入"dd"然后选择你要锁定的尺寸,你就可以放心的缩放了!
;================= ;锁定当前测量尺寸文本。 ;LJC 2004.2 ;==================== (DEFUN C:DD(/ ss n a d i ) (SETQ SS(SSGET '((0 . "dimension")))) (setq n(sslength ss) i 0) (repeat n (setq d(entget (ssname ss i))) (IF (= """" (cdr(assoc 1 d) ) ) (progn (setq a(itoa(fix (+ (cdr(assoc 42 d) ) 0.5)))) (setq d (subst (cons 1 a) (assoc 1 d) d)) (entmod d) (entupd (ssname ss i)) ) ) (setq i (1+ i)) ) ) |
|