[LISP]关于修改标注尺寸大小的帮助

zhongguola

各位cad高手,我费了大半天的时间才把整个图形标注完毕，等到打印出来才发现标注的比例太小。如果一个一个的修改实在太麻烦了，真不知道该怎样解决？不知道请高手们编个程序能不能解决这个问题。请大家帮个忙吧！！！！！

liu22737

(setvar "DIMSCALE" 5)

(command "dim" "up" (ssget "x") "")

zhongguola

不行。

以前标注好的字高并没有发生任何变化！！！

zhongguola

真搞不懂，问题出在什么地方？

phoenixdjq

我试过了，可以呀，你是不是把标注炸开了。

 

zhongguola

是这样的。我把上面的程序改了一下，

（defun c:zz (/p)

(setq zz (getreal /n "请输入缩放比例数:"))

(setver "dimscale" zz)

(command "dim" "up" (ssget "x") "")

)

运行上面的程序时，以前标注的字高没有任何的变化。

所以想请大家帮忙，找一下症结所在

 

liu22737

zhongguola发表于2005-12-7 11:11:00 是这样的。我把上面的程序改了一下， （defun c:zz (/p) (setq zz (getreal /n \"请输入缩放比例数:\")) (se...

此程序只修改了当前的标注类型,

要先把你想修改的尺寸类型设为当前,然后再运行程序

zhongguola

成功了！！！

(setver "dimscale" 5)

为什么要把dimscale设置为5呢？

不同的数字代码又代表了什么意思呢？

liu22737

zhongguola发表于2005-12-7 11:11:00 是这样的。我把上面的程序改了一下， （defun c:zz (/p) (setq zz (getreal /n \"请输入缩放比例数:\")) (se...

(setver "dimscale" zz),改为(setvar "dimscale" zz)

呆呆

偶也想知道