本帖最后由 390311997 于 2021-6-27 21:55 编辑
- ;;;测试: (SSGetByPoly (car (entsel "\n 选择多段线: ")) '((0 . "*text"))) (defun SSGetByPoly (poly filter / pl ss) (setq pl (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) (entget poly)))) (setq ss (ssget "wp" pl filter)) )
怎么我加载了没反应
|