/db_自贡黄明儒_ 发表于 2014-4-15 09:08:44

多段线顶点之间的最大距离

;;多段线顶点之间的最大距离
;;(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:15:05

本帖最后由 kwok 于 2014-4-15 09:17 编辑

顶贴坐沙发.:lol

jwj0805 发表于 2014-4-15 09:22:17

好程序，如果要知道每一段的长度呢？

819534890 发表于 2014-4-15 15:25:02

学习总是要回复的，好态度好心情。

q3_2006 发表于 2014-4-15 17:50:24

学习学习.....谢谢分享!

清风明月10 发表于 2014-4-15 20:41:15

谢谢楼主！又学一招。

HLCAD 发表于 2014-4-15 21:35:32

支持，支持！

Lisphk 发表于 2014-4-15 22:06:31

能介绍下算法吗，黄大师。

ynhh 发表于 2014-4-16 09:31:10

看看黄工新作品
{:soso_e189:}

杜流浪人 发表于 2014-6-3 20:51:03

支持楼主    好程序

PLgis 发表于 2014-6-8 07:55:22

本帖最后由 PLgis 于 2014-6-8 08:00 编辑

查看本帖隐藏内容，确实不错

dzgsfjw 发表于 2014-6-9 16:50:04

收集起来，有用

yoyoho 发表于 2014-6-21 11:24:48

支持楼主,好程序!

dnbcgrass 发表于 2014-6-21 20:16:14

学习学习！

桥云山 发表于 2014-8-4 19:34:22

学一下，好东西
页: [1] 2 3
查看完整版本: 多段线顶点之间的最大距离