社区 › 源码共享 › 高手帮解决下，判断线收尾连接，希望对其他线形起作用

egoroom 发表于 2012-7-3 15:38:53

再看下。这个。。。

egoroom 发表于 2012-7-3 15:39:25

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



我发了个更有针对性的。

egoroom 发表于 2012-7-4 09:39:43

高手帮看看。。。。

328302216 发表于 2012-9-26 11:04:47

Andyhon 发表于 2012-7-3 14:38 static/image/common/back.gif
Command: ccc

Select objects: Specify opposite corner: 7 found


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

jhkdyhl1 发表于 2013-4-10 03:28:33

占个位。。。。

龙吟小调 发表于 2013-4-17 08:22:33

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

vladimirputin 发表于 2023-3-9 14:22:22

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

llsheng_73 发表于 2023-3-9 14:41:25

本帖最后由 llsheng_73 于 2023-3-9 15:17 编辑

不管什么线（CIRCLE,ELLIPSE,xline，ray等无所谓起止的除外)，提取起点和止点，然后找出容差范围内只出现过一次的点，画圆
(defun c:tt(/ s a pt e n)
(and(or(setq a(getreal"容差"))(setq a 1e-3))
      (setq s(ssget'((0 . "*polyline,line,arc,ellipse,spline"))))
      (while(setq e(ssname s 0))
      (ssdel e s)
      (setq pt(vl-list*(vlax-curve-getstartpoint e)(vlax-curve-getendpoint e)pt)))
      (while pt(setq n(length pt))
      (if(=(1- n)(length(setq e(car pt)pt(vl-remove-if(function(lambda(x)(equal x e a)))(cdr pt)))))
          (entmakex(list'(0 . "circle")'(62 . 1)(cons 10 e)'(40 . 1)))))))

查看完整版本: 高手帮解决下，判断线收尾连接，希望对其他线形起作用