关于连线的一种方法

st788796

不交叉将所有特征点串联到一起，这个算法不新鲜，高飞版主的一个帖子中用到过，将点按角度和距离进行 vl-sort
排序部分

游客，如果您要查看本帖隐藏内容请回复

测试

2. 
   
3. (defun c:tt (/ ss)
   
4.   (if (setq ss (ssget '((0 . "circle"))))
   
5.     (progn
   
6.       (setq
   
7.         pts (mapcar '(lambda (x) (xdrx_getpropertyvalue x "Center"))
   
8.                     (xdrx_pickset->ents ss)
   
9.             )
   
10.         pts (ff pts)
    
11.       )
    
12.       (xdrx_polyline_make pts)
    
13.     )
    
14.   )
    
15. )

<br /> (defun c:tt (/ ss)<br />   (if (setq ss (ssget '((0 . "circle"))))<br />     (progn<br />       (setq<br />         pts (mapcar '(lambda (x) (xdrx_getpropertyvalue x "Center"))<br />                     (xdrx_pickset->ents ss)<br />             )<br />         pts (ff pts)<br />       )<br />       (xdrx_polyline_make pts)<br />     )<br />   )<br /> )

任意绘制的圆执行效果

winerfjy

我很想做一个S型的点连接程序在这见到了看有木有源码

WhoCanSay

画圆只要找到最远两点就可以了，同高飞的凸包扫描有什么关系

WhoCanSay

支持，看玩出的新花样。

st788796

简单应用，后面可以写字

Lisphk

这个依据是什么，ST大师，是最短路径吗？ 还有其他的连法吗？

lucas3

ST大师又在整高级的啊

st788796

Lisphk 发表于 2016-6-6 22:16
这个依据是什么，ST大师，是最短路径吗？ 还有其他的连法吗？

不是，只是简单连在一起

biscxz

学习下啊。。。。。。。。。。。

newer

st788796 发表于 2016-6-6 22:28
不是，只是简单连在一起

还有其他连法吗？ 哪种更好看些？ ST，写个通用函数放函数库论坛吧。

HLCAD

向ST大师学习程序

st788796

newer 发表于 2016-6-6 23:00
还有其他连法吗？ 哪种更好看些？ ST，写个通用函数放函数库论坛吧。

另外一个算法，但这个线段可能会有自相交情况

游客，如果您要查看本帖隐藏内容请回复

运行对比

Lisphk

st788796 发表于 2016-6-7 10:10
另外一个算法，但这个线段可能会有自相交情况
**** 本内容被作者隐藏 ****
运行对比

ST大师，起点是自动定的吗，能不能指定起点或终点？

st788796

Lisphk 发表于 2016-6-7 10:13
ST大师，起点是自动定的吗，能不能指定起点或终点？

第一种可以任意指定起点的，就是一个 闭合 Pline 中指定点处断开
第二种稍微修改下即可指定起点，不过自相交这个不好
你有什么其他算法高见？

杜流浪人

半智能化了      支持

杜流浪人

xdrx_getpropertyvalue这个函数是什么功能啊