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

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

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

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

分享了，，，不错的思路，，

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