[求助]：关于点标注(X,Y,Z)

yunzhu076

我在图纸上经常用到点的标注，就是标注　X，Y，Z　的格式，用CAD中的点标注只能标注其中的一个。用文字标注的话得先计下点值才能输入。有没有办法，用鼠标点一下点，就能在旁边自动出现X、Y、Z的值。

xyp1964

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. ★通用函数下载地址：
    
13. [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]
    
14. |;
    
15. 
    
16. (defun c:test ()
    
17.   (CMDLA0)
    
18.   (mkla"zb"4)
    
19.   (while (setq pt (getpoint "\n位置点 : "))
    
20.     (command"point" pt)
    
21.     (setq txt (strcat "X= "
    
22.                       (rtos (car pt) 2 3)
    
23.                       "; Y= "
    
24.                       (rtos (cadr pt) 2 3)
    
25.                       "; Z= "
    
26.                       (rtos (caddr pt) 2 3)
    
27.               )
    
28.     )
    
29.     (xiezi pt txt)
    
30.   )
    
31.   (CMDLA1)
    
32. )[/FONT]

[FONT=courier new]<br /> (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 /> ★通用函数下载地址：<br /> [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (mkla"zb"4)<br />   (while (setq pt (getpoint "\n位置点 : "))<br />     (command"point" pt)<br />     (setq txt (strcat "X= "<br />                       (rtos (car pt) 2 3)<br />                       "; Y= "<br />                       (rtos (cadr pt) 2 3)<br />                       "; Z= "<br />                       (rtos (caddr pt) 2 3)<br />               )<br />     )<br />     (xiezi pt txt)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

yunzhu076

版主，我会用了。但是有一个小问题，请问标注字的对齐方式能不能改。我想用左下对齐。

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (CMDLA0)
   
4.   (mkla"zb"4)
   
5.   (while (setq pt (getpoint "\n位置点 : "))
   
6.     (command"point" pt)
   
7.     (setq txt (strcat "X= "
   
8.                       (rtos (car pt) 2 3)
   
9.                       "; Y= "
   
10.                       (rtos (cadr pt) 2 3)
    
11.                       "; Z= "
    
12.                       (rtos (caddr pt) 2 3)
    
13.               )
    
14.     )
    
15.     (xyp-Text pt 1 txt)
    
16.   )
    
17.   (CMDLA1)
    
18. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (CMDLA0)<br />   (mkla"zb"4)<br />   (while (setq pt (getpoint "\n位置点 : "))<br />     (command"point" pt)<br />     (setq txt (strcat "X= "<br />                       (rtos (car pt) 2 3)<br />                       "; Y= "<br />                       (rtos (cadr pt) 2 3)<br />                       "; Z= "<br />                       (rtos (caddr pt) 2 3)<br />               )<br />     )<br />     (xyp-Text pt 1 txt)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

yunzhu076

版主不好用，点击点以后就退出到命令状态。
写字的命令　　xyp_Text       写字     (xyp_Text 点表 文本)　
它的参数是两个，你命令中是３个，请问参数中的１是啥参数。
删除１后，命令好用，但还是中中对齐方式。
请版主看看哪里的问题？

xyp1964

最初由 yunzhu076 发布
[B]版主不好用，点击点以后就退出到命令状态。
写字的命令　　xyp_Text       写字     (xyp_Text 点表 文本)　
它的参数是两个，你命令中是３个，请问参数中的１是啥参数。
删除１后，命令好用，但还是中中对齐方式... [/B]

根据你的要求，已经修改了通用函数，(xyp-Text 点表 模式 文本)。模式：从左下到右上1～9种。
请重新下载通用函数。

yunzhu076

版主，函数库十分不好下，我到现在还没有下来。有没有好方法让我下来

xyp1964

最初由 yunzhu076 发布
[B]版主，函数库十分不好下，我到现在还没有下来。有没有好方法让我下来 [/B]

机器该换了！呵呵……
告诉信箱发给你？

yb790101

不错！

yunzhu076

版主。
我还是下载不下来。你给我发份好吗？
我的邮箱是2052776@163.com,


版主我收到了，是否你把函数改错了。为何还不好用。请版主费心看看

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (CMDLA0)
   
4.   (mkla "zb" 4)
   
5.   (jzhz)
   
6.   (while (setq pt (getpoint "\n位置点 : "))
   
7.     (command "point" pt)
   
8.     (setq txt (strcat "X= "
   
9.                       (rtos (car pt) 2 3)
   
10.                       "; Y= "
    
11.                       (rtos (cadr pt) 2 3)
    
12.                       "; Z= "
    
13.                       (rtos (caddr pt) 2 3)
    
14.               )
    
15.     )
    
16.     (xyp-Text pt 1 txt);1～9可用
    
17.   )
    
18.   (CMDLA1)
    
19. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (CMDLA0)<br />   (mkla "zb" 4)<br />   (jzhz)<br />   (while (setq pt (getpoint "\n位置点 : "))<br />     (command "point" pt)<br />     (setq txt (strcat "X= "<br />                       (rtos (car pt) 2 3)<br />                       "; Y= "<br />                       (rtos (cadr pt) 2 3)<br />                       "; Z= "<br />                       (rtos (caddr pt) 2 3)<br />               )<br />     )<br />     (xyp-Text pt 1 txt);1～9可用<br />   )<br />   (CMDLA1)<br /> )[/FONT]

yunzhu076

版主，好用了。谢谢。