多段线顶点之间的最大距离
;;多段线顶点之间的最大距离;;(setq lst1 (HH:PtLists (car(entsel))))
;;(w1 lst1)
(defun w1 (lst1 / L1 X Y)
(while (cdr lst1)
(setq y (car lst1))
(setq lst1 (cdr lst1))
(mapcar
'(lambda (x)
(setq L1 (cons (distance x y) L1))
)
lst1
)
)
(apply 'max L1)
)
**** Hidden Message *****
本帖最后由 kwok 于 2014-4-15 09:17 编辑
顶贴坐沙发.:lol 好程序,如果要知道每一段的长度呢?
学习总是要回复的,好态度好心情。
学习学习.....谢谢分享!
谢谢楼主!又学一招。
支持,支持!
能介绍下算法吗,黄大师。
看看黄工新作品
{:soso_e189:}
支持楼主 好程序 本帖最后由 PLgis 于 2014-6-8 08:00 编辑
查看本帖隐藏内容,确实不错
收集起来,有用 支持楼主,好程序! 学习学习! 学一下,好东西