表统计分类

wosiguwozai0830

;刚好遇到需要将块选择集对应的图元表分类统计，将图块名称相同的图块图元，对应的图元名称分别组合成子表。
;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))
)