feitianyiliu 发表于 2012-8-12 17:06:25

选择封闭区域内一点获取封闭区域的顶点坐标

封闭区域可以不是PLine。
源码




nzl1116 发表于 2013-4-19 20:37:55

很简单的问题，也卖币
(mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (bpoly (getpoint "\n选择点"))))

edrise 发表于 2024-12-28 01:38:54

newbuser 发表于 2013-9-26 08:56
固然有nonsmall的实力啊
(vl-remove-if 'not (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entg ...

两位大佬都写得好啊，如此简洁，我实现同样功能写了一长串......

EOOW 发表于 2024-10-19 14:42:29

nzl1116 发表于 2013-4-19 20:37
很简单的问题，也卖币
(mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (bpoly (getpo ...

功力太深厚，感觉要长脑子了

461045462 发表于 2012-8-12 21:31:54

谢谢楼主的分享。
如果楼主能有截图就更好

LLXXZZ 发表于 2012-8-12 22:12:46

从文件容量上看,应该是调用了 边界 命令...
这样的话,程序的出错率就有些大.

挪威的森林 发表于 2012-8-13 09:32:26

真的太强大了，不知道楼上所说的出错率比较大是什么意思，在什么样的情况下可能出错呢？

feitianyiliu 发表于 2012-8-24 17:51:10

挪威的森林 发表于 2012-8-13 09:32 static/image/common/back.gif
真的太强大了，不知道楼上所说的出错率比较大是什么意思，在什么样的情况下可能出错呢？

我用这个完成了好多功能，都没出错，比如表格内文字居中等等

takeiteasy 发表于 2013-4-19 09:25:38

很好，有了这个可以搞出很多有用的东西来

vlisp2012 发表于 2013-4-19 20:24:44

果真边界命令啊！芭比赚回来！

vlisp2012 发表于 2013-4-20 07:52:01

果真神勇，多谢楼上的nzl1116。

xiabin68 发表于 2013-6-11 14:10:56

分享了，，，不错的思路，，
页: [1] 2
查看完整版本: 选择封闭区域内一点获取封闭区域的顶点坐标