请大家帮忙编一个程序

xyp1964

2. ;|检查图形中多段线是否有重复的点，把图形中所有的多段线，
3. 只要有重复点的就把它找出来，
4. 然后在把这些有问题的线，全部转换到一个图层上。
5. |;
6. (load "xyp_lib")
7. ;|加载通用函数(可在签名栏直接下载)
8. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
9. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
10. 1.在acad.lsp中增加(load"xyp_lib")
11. 2.在每个程序内增加(load"xyp_lib")
12. 3.在command下，输入(load"xyp_lib")
13. 4.在菜单.mnl中增加(load"xyp_lib")
14. 5.将xyp_lib.vlx文件直接拽到cad屏幕
15. [COLOR=red] ★通用函数下载地址：[/COLOR]
16. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
17. [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
18. ;;;多段线闭合并改层
19. (defun c:test ()
20.   (CMDLA0)
21.   (setq ss (ssget "X" '((0 . "*POLYLINE")))
22. i  -1
23.   )
24.   (mkla "check" 1)
25.   (while (setq s1 (ssname ss (setq i (1+ i))))
26.     (if
27.       (and (= (cdr (assoc 70 (entget s1))) 0)
28.     (equal (vlax-curve-getEndPoint (vlax-ename->vla-object s1))
29.     (vlax-curve-getstartPoint (vlax-ename->vla-object s1))
30.     )
31.       )
32.        (command "change" s1 "" "p" "la" "check" "" "pedit" s1 "c" "")
33.     )
34.   )
35.   (CMDLA1)
36. )

;|检查图形中多段线是否有重复的点，把图形中所有的多段线， 只要有重复点的就把它找出来， 然后在把这些有问题的线，全部转换到一个图层上。 |; (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屏幕 [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 ()   (CMDLA0)   (setq ss (ssget "X" '((0 . "*POLYLINE"))) i  -1   )   (mkla "check" 1)   (while (setq s1 (ssname ss (setq i (1+ i))))     (if       (and (= (cdr (assoc 70 (entget s1))) 0)     (equal (vlax-curve-getEndPoint (vlax-ename->vla-object s1))     (vlax-curve-getstartPoint (vlax-ename->vla-object s1))     )       )        (command "change" s1 "" "p" "la" "check" "" "pedit" s1 "c" "")     )   )   (CMDLA1) )

无痕

重复点不一定是起点终点

meflying

可是如果重复点是这样的,你想怎么除?

 

ZZXXQQ

应该是判断相邻两点或首尾点是否重合。

sieben

判断多义线中是否存在零长度的段

spring

楼主要求的点,而不是线

这个问题难啊.