求教，如何获取点表中第二大值？[已解决]

a117034423 · 发表于 2020-11-28 14:32:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 a117034423 于 2020-11-30 09:34 编辑

求教，如何获取点表中第二大值？-1.jpg

研究了好久又蒙了试了好几个函数
分别有这四种情况，我现在已经知道怎么判断这四种情况
但是我实在是想不出来如何获取多段线点表内的第二大值坐标，即Xnd Ynd
尝试了
(setq pt (vl-remove (or (car ptmax) (nth 2 ptmax)) mod1))
cons
都是出错，哪位大神可以告诉我，如何提取下面点表中第二大的值并生成新点表，告诉我函数也可以
((17510.2 5000.0) (17510.2 0.0) (14510.2 0.0) (14510.2 4500.0) (15010.2 4500.0) (15010.2 5000.0) (17510.2 5000.0))

newer · 发表于 2020-11-28 23:53:44

什么叫表中的第二大值？

newer · 发表于 2020-11-29 00:11:12

要求你这图内部那个点，可以得到凸包，然后把不在凸包上的顶点留下就可以了
1. 求多段线顶点表
命令: (setq pts (xdrx-getpropertyvalue (entlast) "vertices"))
((5.63081 3.05299 0.0) (4.60125 3.05299 0.0) (4.60125 5.59912 0.0) (6.28599 5.59912 0.0) (6.28599 4.32605 0.0) (5.63081 4.32605 0.0) (5.63081 3.05299 0.0))

2.算点表的凸包
命令: (setq tb (xdrx-points-ghull pts))
((4.60125 3.05299) (5.63081 3.05299) (6.28599 4.32605) (6.28599 5.59912) (4.60125 5.59912))

3.加上Z坐标
命令: (setq tb1 (mapcar '(lambda(x)(list (car x)(cadr x) 0.0)) tb))
((4.60125 3.05299 0.0) (5.63081 3.05299 0.0) (6.28599 4.32605 0.0) (6.28599 5.59912 0.0) (4.60125 5.59912 0.0))

4.求不在凸包里面的顶点
命令: (setq a (vl-remove-if '(lambda(x)(vl-position x tb1)) pts))
((5.63081 4.32605 0.0))

a117034423 · 发表于 2020-11-29 15:45:24

newer 发表于 2020-11-29 00:11
要求你这图内部那个点，可以得到凸包，然后把不在凸包上的顶点留下就可以了
1. 求多段线顶点表
命令: (se ...

谢谢了，好东西，感谢

账号		自动登录	找回密码
密码			立即注册

[已解决] 求教，如何获取点表中第二大值？[已解决]

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。