高手帮解决下，判断线收尾连接，希望对其他线形起作用

egoroom

再看下。这个。。。

egoroom

Andyhon 发表于 2012-7-3 15:31
另给实例如何?
看懂了,才知有无能力回应呀

我发了个更有针对性的。

egoroom

高手帮看看。。。。

328302216

Andyhon 发表于 2012-7-3 14:38
Command: ccc

Select objects: Specify opposite corner: 7 found

估计他想要的是 不管是什么线只要端点之间有练就就不用提示，如果是没有其他直线、多段线或弧线的端点连接就提示出来……

jhkdyhl1

占个位。。。。

龙吟小调

楼主你要的应该是，检查图形是否闭合的程序吧

vladimirputin

非常不错的代码，谢谢楼主分享啊。

llsheng_73

不管什么线（CIRCLE,ELLIPSE,xline，ray等无所谓起止的除外)，提取起点和止点，然后找出容差范围内只出现过一次的点，画圆

1. (defun c:tt(/ s a pt e n)
   
2.   (and(or(setq a(getreal"容差[1e-3]"))(setq a 1e-3))
   
3.       (setq s(ssget'((0 . "*polyline,line,arc,ellipse,spline"))))
   
4.       (while(setq e(ssname s 0))
   
5.         (ssdel e s)
   
6.         (setq pt(vl-list*(vlax-curve-getstartpoint e)(vlax-curve-getendpoint e)pt)))
   
7.       (while pt(setq n(length pt))
   
8.         (if(=(1- n)(length(setq e(car pt)pt(vl-remove-if(function(lambda(x)(equal x e a)))(cdr pt)))))
   
9.           (entmakex(list'(0 . "circle")'(62 . 1)(cons 10 e)'(40 . 1)))))))

(defun c:tt(/ s a pt e n)<br />   (and(or(setq a(getreal"容差[1e-3]"))(setq a 1e-3))<br />       (setq s(ssget'((0 . "*polyline,line,arc,ellipse,spline"))))<br />       (while(setq e(ssname s 0))<br />         (ssdel e s)<br />         (setq pt(vl-list*(vlax-curve-getstartpoint e)(vlax-curve-getendpoint e)pt)))<br />       (while pt(setq n(length pt))<br />         (if(=(1- n)(length(setq e(car pt)pt(vl-remove-if(function(lambda(x)(equal x e a)))(cdr pt)))))<br />           (entmakex(list'(0 . "circle")'(62 . 1)(cons 10 e)'(40 . 1)))))))