[建议]：变化比例

花狐狸

请问：不知晓东工具箱是否有变比例的功能，就是将图形缩放，但是标注的内容和大小不变。假如没有
，请求假如此功能，许多人确实需要在R14下有此功能，谢谢

XDSoft

最初由 花狐狸 发布
[B]请问：不知晓东工具箱是否有变比例的功能，就是将图形缩放，但是标注的内容和大小不变。假如没有
，请求假如此功能，许多人确实需要在R14下有此功能，谢谢 [/B]

晓东工具箱对文字、尺寸、线型都在相应工具里面提供了让文字和尺寸根据自身变比（支持批量）的工具。

去文字工具、标注工具中和工具里面找找。

花狐狸

你知道tssd2.0中的“变比例”命令吗
我说的就是那个

zhuqi75

可以实施

花狐狸

最初由 zhuqi75 发布
[B]可以实施 [/B]

我将尺寸和图形变大后（作详图），尺寸值可以改过来，但是尺寸线也变得很长，那么如何处理

aeo

R14的dim是很难弄.
我写了一个,把标注值固定.
先用我的命令,再进行缩放.

2. 
   
3. (defun c:Fzbz( / q q1 ss value sel2lst)
   
4. (defun sel2lst( sel / n l)
   
5.   (repeat (setq n (sslength sel))
   
6.    (setq n (1- n) l (cons (ssname sel n) l))))
   
7. 
   
8. (setq ss(ssget '((0 . "DIMENSION"))))
   
9. (setq ss(sel2lst ss))
   
10. (foreach  x ss
    
11. (setq q1(entget x))
    
12. (setq q(dxf 2 q1))
    
13. (setq q(tblsearch"BLOCK" q))
    
14. (setq q (entget (entnext (dxf -2 q))))
    
15. (while(/=(dxf 0 q) "MTEXT")
    
16. (setq q(entget(entnext(dxf -1 q))))
    
17. )
    
18. (setq value(dxf 1 q))
    
19. (setq value(substr value 5))
    
20. (entmod(setq q1(subst(cons 1 value)(assoc 1 q1)q1)))
    
21. )(princ)
    
22. )
    

<br /> (defun c:Fzbz( / q q1 ss value sel2lst)<br /> (defun sel2lst( sel / n l)<br />   (repeat (setq n (sslength sel))<br />    (setq n (1- n) l (cons (ssname sel n) l)))) <br /> <br /> (setq ss(ssget '((0 . "DIMENSION"))))<br /> (setq ss(sel2lst ss))<br /> (foreach  x ss<br /> (setq q1(entget x))<br /> (setq q(dxf 2 q1))<br /> (setq q(tblsearch"BLOCK" q))<br /> (setq q (entget (entnext (dxf -2 q))))<br /> (while(/=(dxf 0 q) "MTEXT")<br /> (setq q(entget(entnext(dxf -1 q))))<br /> )<br /> (setq value(dxf 1 q))<br /> (setq value(substr value 5))<br /> (entmod(setq q1(subst(cons 1 value)(assoc 1 q1)q1)))<br /> )(princ)<br /> )<br />

至于尺寸线长,用stretch就可以.或者再下一命令.这论坛有的,找找.