[求助]如何获得任意闭合曲线或多义线的，中点坐标

kgd4510

[求助]如何获得任意闭合曲线或多义线的，中点坐标，曲线的顶点都知道。CAD本身有自带的命令吗？如果没有，那用lsip该如何编写呢？谢谢

xyp1964

2. (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. 通用函数下载地址:
12. dispbbs.asp?boardID=3&ID=37554&page=1
13. |; ;;;曲线中点坐标标注
14. (defun c:test ()
15.    (cmdla0)
16.    (jzhz)
17.    (setq  e       (car (entsel "\n选择曲线 : "))
18.   leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
19.   pt1   (vlax-curve-getPointAtDist
20.                (vlax-ename->vla-object e)
21.                (/ leng 2.0)
22.            )
23.    )
24.    (mkla"坐标"3)
25.    (x_zb pt1)
26.    (cmdla1)
27. )

(load "xyp_lib");加载通用函数 ;| 如果已经下载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屏幕 通用函数下载地址: dispbbs.asp?boardID=3&ID=37554&page=1 |; ;;;曲线中点坐标标注 (defun c:test ()    (cmdla0)    (jzhz)    (setq  e       (car (entsel "\n选择曲线 : "))   leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))   pt1   (vlax-curve-getPointAtDist                (vlax-ename->vla-object e)                (/ leng 2.0)            )    )    (mkla"坐标"3)    (x_zb pt1)    (cmdla1) )

LONGXIN

xpy兄，楼主要求是质心坐标

xyp1964

质心坐标更简单：

2. (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. 通用函数下载地址:
12. dispbbs.asp?boardID=3&ID=37554&page=1
13. |;
14. ;;;曲线质心点坐标标注
15. (defun c:test ()
16.    (cmdla0)
17.    (jzhz)   
18.    (mkla"坐标"3)
19.    (x_zb (zxd))
20.    (cmdla1)
21. )

(load "xyp_lib");加载通用函数 ;| 如果已经下载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屏幕 通用函数下载地址: dispbbs.asp?boardID=3&ID=37554&page=1 |; ;;;曲线质心点坐标标注 (defun c:test ()    (cmdla0)    (jzhz)       (mkla"坐标"3)    (x_zb (zxd))    (cmdla1) )