表统计分类
本帖最后由 wosiguwozai0830 于 2023-1-9 09:16 编辑;刚好遇到需要将块选择集对应的图元表分类统计，将图块名称相同的图块图元，对应的图元名称分别组合成子表。
;sjb为全为块的名称表，其它的类型，可以根据需要更改，主要利用vl-remove-if-not 和vl-remove-if 函数
;tjb为返回的表
(setq tjb '() newsjb sjb)
(while newsjb
(setq mx (car newsjb) newsjb (cdr newsjb))
(setq tjb(append tjb(list(append (list mx)(vl-remove-if-not '(lambda(a)(= (cl:blkname-ssname mx)(cl:blkname-ssname a)))newsjb)))))
(setq newsjb(vl-remove-if '(lambda(a)(= (cl:blkname-ssname mx)(cl:blkname-ssname a)))newsjb))
)
(defun cl:blkname-ssname(ssname1)
(vla-get-EffectiveName(vlax-ename->vla-object ssname1))
)
页:
[1]