关于图层组过滤器

q3_2006

图层多了用layer 里组过滤器分成N个组每次只显示一个组的图层..方便操作..
现在想写个小程序往组里添加或删除图层..遇到问题了..希望研究过的前辈指导一下(if
(and(setq OBJ (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
      (= (vla-get-ha**tensiondictionary OBJ) :vlax-true)
      (setq OBJ (vla-GetExtensionDictionary OBJ))
      (not(vl-catch-all-error-p
            (setq DICT (vl-catch-all-apply 'vla-item (list OBJ "AcLyDictionary")))
          )
      )
  )
  (progn;
  (setq ln nil)
(vlax-for xrec DICT
        (vla-getXrecordData xrec '#typ '#dat)
        (setq   #typ (vlax-Safearray->list #typ)
        #dat (vlax-Safearray->list #dat);
  )
  (setq lx (mapcar '(lambda(x) (if (= 'SAFEARRAY (type x)) (vlax-safearray->list x) x)) (mapcar 'vlax-variant-value #dat)))
  (setq ln (cons lx ln))
)
)
)

我的代码..返回表里图层变成了两个数字..(862083312 852373013)..这个数字跟图层名什么转换关系不清楚..想通过vla-setXrecordData来添加图层..没办法写了..研究过或没研究过但有兴趣的来研究下哈..很有用的功能..希望找到解决办法
我只知道两种方法entmod试过..表更新了..但组里图层并没增加..不知道什么原因..两条路都进展不下去..真是无语

tzfcn

一般多是一个个关闭打开、这个办法好。