如何快速的把几个点连成多段线，且避开边界线，不与相交,且指定首末，不用一个一个描

君是我的泪

其实就是定距等分，定数等分的逆过程
用CASS展点时候可以来连一下线能否避开某些边界线，且不与之相交，连线，这个有实用价值



这个比较相对容易，但也很难



下面比较难

qqqincccken

这样想法挺好只是有时顺序怎么要求呢呵

Lisphk

怎么连，有N种选择，楼主，你手工连一个截图上来啊，你要说明下规则啊

Lisphk

连线 搜索论坛咯

                               
登录/注册后可看大图

http://bbs.xdcad.net/thread-704415-1-1.html

君是我的泪

Lisphk 发表于 2017-12-31 15:16

运行不了，看不懂怎么运行lisp的，能解释一下吗？第一段就可以，两个先后拖进去CAD，运行tt，圆选不中，第二段自相交那个命令是啥？

newer

君是我的泪 发表于 2018-1-2 10:05

通用函数库函数  XD::PNTS:SORTBYJOIN



选择图块，连线插入点

1. (defun c:tt1 (/ ss)
   
2.   (if (setq ss (ssget '((0 . "INSERT"))))
   
3.     (progn
   
4.       (setq
   
5.         pts (mapcar '(lambda (x) (xdrx_getpropertyvalue x "POSITION"))
   
6.                     (xdrx_pickset->ents ss)
   
7.             )
   
8.         pts (XD::PNTS:SORTBYJOIN pts)
   
9.       )
   
10.       (xdrx_polyline_make pts)
    
11.     )
    
12.   )
    
13. )
    
14. 
    

(defun c:tt1 (/ ss)<br />   (if (setq ss (ssget '((0 . "INSERT"))))<br />     (progn<br />       (setq<br />         pts (mapcar '(lambda (x) (xdrx_getpropertyvalue x "POSITION"))<br />                     (xdrx_pickset->ents ss)<br />             )<br />         pts (XD::PNTS:SORTBYJOIN pts)<br />       )<br />       (xdrx_polyline_make pts)<br />     )<br />   )<br /> )<br /> <br />

kmliro_2017

不错，谢谢分享！！！！！