[分享]：修改文字旋转角、倾角、宽度因子的程序...

eachy

已修改

2. [FONT=courier new]
   
3. ;|
   
4.    命令：txt_modangle
   
5.    
   
6.    功能：修改文字的旋转角和倾斜角度
   
7.    
   
8.    说明：支持成批修改
   
9. 
   
10.         程序配合XDRX_API build 20630＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的
    
11.         LISP目录，自己加入到菜单里面就可以非常方便的使用了。
    
12.         关于程序的建议请到“晓东CAD空间-编程申请”论坛
    
13.         [url]http://www.xdcad.net/forum留言[/url]         
    
14. |;
    
15. (defun c:txt_modangle (/ ss code $angle)
    
16.   (xdrx_begin)
    
17.   (while (progn
    
18.            (princ "\n选择要修改角度/倾角文字<回车退出>: ")
    
19.            (setq ss (ssget '((0 . "text"))))
    
20.          )
    
21.     (if        ss
    
22.       (progn
    
23.         (xdrx_setsstodb ss 0)
    
24.         (initget 128 "Angle")
    
25.         (setq $angle (getangle "\n旋转角[A - 倾角]<0>: "))
    
26.         (if (and (= (type $angle) 'STR)
    
27.                  (/= $angle "")
    
28.             )
    
29.           (progn
    
30.             (setq $angle (getangle "\n倾  角<0>: "))
    
31.             (setq code 51)
    
32.           )
    
33.           (progn
    
34.             (setq code 50)
    
35.           )
    
36.         )
    
37.         (if (not $angle)
    
38.           (setq $angle 0)
    
39.         )
    
40.         (while (xdrx_getentdata 0)
    
41.           (xdrx_modent code $angle)
    
42.         )
    
43.       )
    
44.     )
    
45.   )
    
46.   (xdrx_end)
    
47.   (princ)
    
48. )
    
49. (defun c:txt_modwid (/ tf1 high e val)
    
50.   (xdrx_begin)
    
51.   (while (progn
    
52.            (prompt "\n请选取要修改字宽的文字<退出>:")
    
53.            (setq ss (ssget '((0 . "*text"))))
    
54.          )
    
55.     (if        ss
    
56.       (progn
    
57.         (initget 6 "1 2")
    
58.         (setq tf1 (getkword "\n请输入选项[1 - 统一 / 2 - 变比]<1>:"))
    
59.         (if (not tf1)
    
60.           (setq tf1 1)
    
61.         )
    
62.         (initget 6)
    
63.         (setq val (getreal (strcat "\n请输入文字"
    
64.                                    (if (= tf1 2)
    
65.                                      "缩放比例"
    
66.                                      "新宽度因子"
    
67.                                    )
    
68.                                    (if #val_txth
    
69.                                      (strcat "<"
    
70.                                              (rtos #val_txth 2 1)
    
71.                                              ">"
    
72.                                      )
    
73.                                      ""
    
74.                                    )
    
75.                                    ":"
    
76.                            )
    
77.                   )
    
78.         )
    
79.         (if (not val)
    
80.           (setq val #val_txth)
    
81.           (setq #val_txth val)
    
82.         )
    
83.       )
    
84.       (xdrx_setsstodb ss 0)
    
85.       (while (setq e (xdrx_getentdata 0))
    
86.         (setq high (xdrx_getentdxf 41))
    
87.         (xdrx_modent
    
88.           41
    
89.           (if (= tf1 2)
    
90.             (* high val)
    
91.             val
    
92.           )
    
93.         )
    
94.       )
    
95.     )
    
96.   )
    
97.   (xdrx_end)
    
98.   (princ)
    
99. )[/font]

[FONT=courier new]<br /> ;|<br />    命令：txt_modangle<br />    <br />    功能：修改文字的旋转角和倾斜角度<br />    <br />    说明：支持成批修改<br /> <br />         程序配合XDRX_API build 20630＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的<br />         LISP目录，自己加入到菜单里面就可以非常方便的使用了。<br />         关于程序的建议请到“晓东CAD空间-编程申请”论坛<br />         [url]http://www.xdcad.net/forum留言[/url]         <br /> |;<br /> (defun c:txt_modangle (/ ss code $angle)<br />   (xdrx_begin)<br />   (while (progn<br />            (princ "\n选择要修改角度/倾角文字<回车退出>: ")<br />            (setq ss (ssget '((0 . "text"))))<br />          )<br />     (if        ss<br />       (progn<br />         (xdrx_setsstodb ss 0)<br />         (initget 128 "Angle")<br />         (setq $angle (getangle "\n旋转角[A - 倾角]<0>: "))<br />         (if (and (= (type $angle) 'STR)<br />                  (/= $angle "")<br />             )<br />           (progn<br />             (setq $angle (getangle "\n倾  角<0>: "))<br />             (setq code 51)<br />           )<br />           (progn<br />             (setq code 50)<br />           )<br />         )<br />         (if (not $angle)<br />           (setq $angle 0)<br />         )<br />         (while (xdrx_getentdata 0)<br />           (xdrx_modent code $angle)<br />         )<br />       )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> (defun c:txt_modwid (/ tf1 high e val)<br />   (xdrx_begin)<br />   (while (progn<br />            (prompt "\n请选取要修改字宽的文字<退出>:")<br />            (setq ss (ssget '((0 . "*text"))))<br />          )<br />     (if        ss<br />       (progn<br />         (initget 6 "1 2")<br />         (setq tf1 (getkword "\n请输入选项[1 - 统一 / 2 - 变比]<1>:"))<br />         (if (not tf1)<br />           (setq tf1 1)<br />         )<br />         (initget 6)<br />         (setq val (getreal (strcat "\n请输入文字"<br />                                    (if (= tf1 2)<br />                                      "缩放比例"<br />                                      "新宽度因子"<br />                                    )<br />                                    (if #val_txth<br />                                      (strcat "<"<br />                                              (rtos #val_txth 2 1)<br />                                              ">"<br />                                      )<br />                                      ""<br />                                    )<br />                                    ":"<br />                            )<br />                   )<br />         )<br />         (if (not val)<br />           (setq val #val_txth)<br />           (setq #val_txth val)<br />         )<br />       )<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq high (xdrx_getentdxf 41))<br />         (xdrx_modent<br />           41<br />           (if (= tf1 2)<br />             (* high val)<br />             val<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )[/font]

自由的鱼

不错！！

不好意思哦,你是知道规则的,做版主可不能偏心.......-----梦断江南

lsjjm

最初由 自由的鱼 发布
[B]不错！！ [/B]

也不是新手了, 把两年前的贴子na 出来, 就跟"不错" 两个字, 不让人家说是水贴呀?!

自由的鱼

呵呵~~~没办法，第一次看到，我可没有深翻帖子，两年前我可还没来呢，该扣，下次我要注意了~~，：）