陈亚娣 发表于 2013-6-18 17:19:29

这是怎么回事？？？？

香田里浪人 发表于 2013-6-23 21:55:16

不知好用在哪里？

自贡黄明儒 发表于 2013-6-23 22:03:05

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

写得很精简，功力很深厚

fuweihua 发表于 2013-9-25 23:17:52

学习下，不能很好的完成文字居中对齐，希望能学到手。

newbuser 发表于 2013-9-26 08:56:12

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

固然有nonsmall的实力啊
(vl-remove-if 'not (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget (car(entsel)))))

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 ...

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

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 ...

两位大佬都写得好啊，如此简洁，我实现同样功能写了一长串......
页: 1 [2]
查看完整版本: 选择封闭区域内一点获取封闭区域的顶点坐标