如何实现选取一条直线后返回直线的中点和两端点坐标？？

Jeff101217

如何实现选取一条直线后返回直线的中点和两端点坐标？？

ZZXXQQ

2. ;返回所选直线的中点和两端点坐标
3. (DEFUN C:L3P ()
4. (IF (SETQ SS (ENTSEL "\nSelect a Line :")) (PROGN
5.   (SETQ ENT (ENTGET (CAR SS))
6.         NN (CDR (ASSOC 0 ENT)))
7.   (IF (= NN "LINE") (PROGN
8.    (SETQ P1 (CDR (ASSOC 10 ENT))
9.          P2 (CDR (ASSOC 11 ENT))
10.          PM (POLAR P1 (ANGLE P1 P2) (/ (DISTANCE P1 P2) 2))
11.          PL (LINS P1 P2 PM))
12.   ))
13. ))
14. PL
15. )

复制代码

xyp1964

2. (load "xyp_lib.vlx")   ;版本 V.20051126
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]dispbbs.asp?boardID=3&ID=37554&page=1[/url]
14. |;
15. ;;;标注直线的中点和两端点坐标
16. (defun c:test ()
17.   (CMDLASC0)(mkla"zb"3)
18.   (while (setq s1 (car (entsel "\n选择LINE线 : ")))
19.     (if (= (xyp-get-dxf 0 s1) "LINE")
20.       (progn
21. (setq pt10 (xyp-get-dxf 10 s1)
22.        pt11 (xyp-get-dxf 11 s1)
23.        pt12 (xyp-get-MidPoint pt10 pt11)      
24.        )
25. (x_zb pt10)
26. (x_zb pt11)
27. (x_zb pt12)
28.       )
29.     )
30.   )
31.   (CMDLA1)
32. )

(load "xyp_lib.vlx")   ;版本 V.20051126 ;|加载通用函数(可在签名栏直接下载) 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url] |; ;;;标注直线的中点和两端点坐标 (defun c:test ()   (CMDLASC0)(mkla"zb"3)   (while (setq s1 (car (entsel "\n选择LINE线 : ")))     (if (= (xyp-get-dxf 0 s1) "LINE")       (progn (setq pt10 (xyp-get-dxf 10 s1)        pt11 (xyp-get-dxf 11 s1)        pt12 (xyp-get-MidPoint pt10 pt11)              ) (x_zb pt10) (x_zb pt11) (x_zb pt12)       )     )   )   (CMDLA1) )

xyp1964

效果：