还想请教一个问题?

小静

就是在2000中怎样实现缩小图型比例,而标注的尺寸又不变化呢?

rongml

把它explode掉!

lcad

请参照本人上一篇贴子中的程序，内有尺寸变量的自动适应

龙龙仔

lvshanlicool

把尺寸炸好再缩放就好了，不过比较麻烦了

wylza

标注属性中有比例,按你缩放图形的比例,填入标注属性中的比例即可.

phoenixdjq

;修改尺寸为原来值

(DEFUN C:qw( / ss n d a i )
   (SETQ SS(SSGET '((0 . "dimension"))))
   (setq n (sslength ss)  i 0)
   (repeat n
      (setq d(entget (ssname ss i)))
      (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))
    )
)

声明：这个程序是我从论坛下的

如果想恢复的话，用dimreassoc可以恢复，不过这个命令我只在express tools中看到过，不知道没有安装express tools行不行