[编程申请]：求对文字操作的lsp程序，选定文字，则其 字型（E）变为HZ-MJ，对齐（J）

lengliqun

求对文字操作的lsp程序，选定文字，则其　字型（E）变为HZ-MJ，对齐（J）变为左对对齐，字符高度变为250，宽底因数变为0.75，其中字型（E）:HZ-MJ在DWT模板中我已定义好。谢谢。
（能多选）

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. 
    
16. ;|
    
17. 窗选文字，则:
    
18. 字型变为"HZ-MJ";
    
19. 对齐变为左对齐;
    
20. 字符高度变为250;
    
21. 宽度因数变为0.75
    
22. |;
    
23. (defun c:test ()
    
24.   (CMDLA0)
    
25.   (setq        ss (ssget '((0 . "TEXT")))
    
26.         i  -1
    
27.   )
    
28.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
29.     (sub_upd s1 7 "HZ-MJ")
    
30.     (sub_upd s1 40 250)
    
31.     (sub_upd s1 41 0.75)
    
32.     (sub_upd s1 72 0)
    
33.   )
    
34.   (CMDLA1)
    
35. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> <br /> ;|<br /> 窗选文字，则:<br /> 字型变为"HZ-MJ";<br /> 对齐变为左对齐;<br /> 字符高度变为250;<br /> 宽度因数变为0.75<br /> |;<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (sub_upd s1 7 "HZ-MJ")<br />     (sub_upd s1 40 250)<br />     (sub_upd s1 41 0.75)<br />     (sub_upd s1 72 0)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

lengliqun

CAD2002测试可用，谢谢xyp1964斑竹。

mann_ygw

如果是块参照的文字，可以修改吗？

eachy

2. 
   
3. (defun c:tt (/ ss e el)
   
4.   (if (setq ss (ssget '((0 . "text"))))
   
5.     (progn
   
6.       (setq e  (ssname ss 0)
   
7.             el (entget e)
   
8.             el (subst '(7 . "HZ-MJ") (assoc 7 el) el)
   
9.             el (subst '(41 . 0.75) (assoc 41 el) el)
   
10.             el (subst '(40 . 250) (assoc 40 el) el)
    
11.       )
    
12.       (entmod el)
    
13.       (command ".matchprop" e ss "")
    
14.       (command ".justifytext" ss "" "L")
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

<br /> (defun c:tt (/ ss e el)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq e  (ssname ss 0)<br />             el (entget e)<br />             el (subst '(7 . "HZ-MJ") (assoc 7 el) el)<br />             el (subst '(41 . 0.75) (assoc 41 el) el)<br />             el (subst '(40 . 250) (assoc 40 el) el)<br />       )<br />       (entmod el)<br />       (command ".matchprop" e ss "")<br />       (command ".justifytext" ss "" "L")<br />     )<br />   )<br />   (princ)<br /> )

lengliqun

eachy斑竹的程序经CAD2002测试，对所选字符没改动。

mann_ygw

对块参照文字还是改不了。