楼主: xj6019
|
取出所选图形中的闭合区域 取封闭轮廓 |
发表于 2022-5-21 08:14:44
|
显示全部楼层
点评
(defun ss2list (SS)(vl-remove-if-not '(lambda(x)(= 'ENAME (type x))) (mapcar 'cadr (ssnamex SS)))) ; 选择集->图元列表
| ||
| ||
| ||
| ||
发表于 2022-5-21 11:21:58
|
显示全部楼层
| ||