求可记忆的修改文字与标注文字高度的代码

Free-Lancer

lucas3 发表于 2014-2-26 13:19
谢谢大侠，我将FL的代码转到明经，edata帮我改好了，用的是“样式替代”的方式

很混乱的标注

1. (defun c:tt (/ hi ss)
   
2.   (fy:begin)
   
3.   (if (setq hi (getdist        (strcat        "\nTextSize<"
   
4.                                 (vl-princ-to-string (getvar "textsize"))
   
5.                                 ">: "
   
6.                         )
   
7.                )
   
8.       )
   
9.     (setvar "textsize" hi)
   
10.     (setq hi (getvar "textsize"))
    
11.   )
    
12.   (setvar "dimscale" 1.)
    
13.   (setvar "dimtxt" hi)
    
14.   (if (ssget '((0 . "*Text,Dim*")))
    
15.     (mapcar
    
16.       '(lambda (x / typ)
    
17.          (if (wcmatch (strcase (vla-get-objectname x))
    
18.                       "*DIM*"
    
19.              )
    
20.            (vlax-put x
    
21.                      "Scalefactor"
    
22.                      (/ hi (vlax-get x "TextHeight"))
    
23.            )
    
24.            (vlax-put x "Height" hi)
    
25.          )
    
26.        )
    
27.       (fy:cset->objs)
    
28.     )
    
29.   )
    
30.   (fy:end)
    
31.   (princ)
    
32. )

(defun c:tt (/ hi ss)<br />   (fy:begin)<br />   (if (setq hi (getdist        (strcat        "\nTextSize<"<br />                                 (vl-princ-to-string (getvar "textsize"))<br />                                 ">: "<br />                         )<br />                )<br />       )<br />     (setvar "textsize" hi)<br />     (setq hi (getvar "textsize"))<br />   )<br />   (setvar "dimscale" 1.)<br />   (setvar "dimtxt" hi)<br />   (if (ssget '((0 . "*Text,Dim*")))<br />     (mapcar<br />       '(lambda (x / typ)<br />          (if (wcmatch (strcase (vla-get-objectname x))<br />                       "*DIM*"<br />              )<br />            (vlax-put x<br />                      "Scalefactor"<br />                      (/ hi (vlax-get x "TextHeight"))<br />            )<br />            (vlax-put x "Height" hi)<br />          )<br />        )<br />       (fy:cset->objs)<br />     )<br />   )<br />   (fy:end)<br />   (princ)<br /> )

lucas3

Free-Lancer 发表于 2014-3-1 17:19
很混乱的标注

谢谢FL大师！为什么说很混乱呢？

wangxf888

这些小编程都挺好的 谢谢晓东论坛