[求助]： 文字改变对齐方式后,不能移到指定点?

Dallas_whu

想改变文字的对齐方式后,再将文字移到指定点!怎么实现不了?

[PHP]
(DEFUN C:TTTT ()
  (SETQ SS (SSGET '((0 . "TEXT"))))
  (SETQ INDEX -1)
  (WHILE (SETQ ENAME (SSNAME SS (SETQ INDEX (1+ INDEX))))
    (SETQ ENT (ENTGET ENAME))
    (SETQ ENT (SUBST (CONS 72 1) (ASSOC 72 ENT) ENT))
    (SETQ ENT (SUBST (CONS 73 2) (ASSOC 73 ENT) ENT))
    (SETQ ENT (SUBST (CONS 10 '(100 100 0)) (ASSOC 10 ENT) ENT))
    (ENTMOD ENT)
    )
  )
[/PHP]

cy956

你到明经通道找找，mj写了一个这样的程序。

eachy

改 11 组码

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051205 (1781)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;|
    
15. 72码
    
16. 文字水平对正类型（可选；默认值 = 0）整数代码（非按位编码）
    
17. 0 = 左对正；1 = 居中对正；2 = 右对正
    
18. 3 = 对齐（如果垂直对齐 = 0）
    
19. 4 = 中间（如果垂直对齐 = 0）
    
20. 5 = 拟合（如果垂直对齐 = 0）
    
21. 73码
    
22. 文字垂直对正类型（可选；默认值 = 0）：整数代码（非按位编码）：
    
23. 3 = 顶端对正
    
24. 2 = 居中对正；
    
25. 1 = 底端对正；
    
26. 0 = 基线对正；
    
27. |;
    
28. 
    
29. (DEFUN C:Test ()
    
30.   (SETQ        SS (SSGET '((0 . "TEXT")))
    
31.         i  -1
    
32.   )
    
33.   (WHILE (SETQ S1 (SSNAME SS (SETQ i (1+ i))))
    
34.     (setq pt0 (xyp-get-DXF 10 s1))
    
35.     (SUB_UPD s1 72 1)
    
36.     (SUB_UPD s1 73 3)
    
37.     (setq pt1 (xyp-get-DXF 10 s1))
    
38.     (command "move" s1 "" pt1 pt0)
    
39.   )
    
40. )
    
41. [/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20051205 (1781)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;|<br /> 72码<br /> 文字水平对正类型（可选；默认值 = 0）整数代码（非按位编码）<br /> 0 = 左对正；1 = 居中对正；2 = 右对正<br /> 3 = 对齐（如果垂直对齐 = 0）<br /> 4 = 中间（如果垂直对齐 = 0）<br /> 5 = 拟合（如果垂直对齐 = 0）<br /> 73码<br /> 文字垂直对正类型（可选；默认值 = 0）：整数代码（非按位编码）：<br /> 3 = 顶端对正<br /> 2 = 居中对正；<br /> 1 = 底端对正；<br /> 0 = 基线对正；<br /> |;<br /> <br /> (DEFUN C:Test ()<br />   (SETQ        SS (SSGET '((0 . "TEXT")))<br />         i  -1<br />   )<br />   (WHILE (SETQ S1 (SSNAME SS (SETQ i (1+ i))))<br />     (setq pt0 (xyp-get-DXF 10 s1))<br />     (SUB_UPD s1 72 1)<br />     (SUB_UPD s1 73 3)<br />     (setq pt1 (xyp-get-DXF 10 s1))<br />     (command "move" s1 "" pt1 pt0)<br />   )<br /> )<br /> [/FONT]

Dallas_whu

哦,谢谢eachy&xyp二位大侠.明白了