过滤器如何使用扩展数据

sieben

(defun c:sxd (/)
  (vl-load-com)
  (while (not (setq ent1 (car (entsel)))))
  (setq obj1 (vlax-ename->vla-object ent1))
  (setq Xtype nil
 Xdata nil
  )
  (setq list1 (list '(1001 . "apsM") '(1000 . "rrr")))
  (foreach n list1 (setq Xtype (cons (car n) Xtype)))
  (foreach n list1 (setq Xdata (cons (cdr n) Xdata)))
  (setq Xtype1 (vlax-make-safearray vlax-vbinteger (cons 0 (1- (length list1)))))
  (vlax-safearray-fill Xtype1 (reverse Xtype))
  (setq Xdata1 (vlax-make-safearray vlax-vbvariant (cons 0 (1- (length list1)))))
  (vlax-safearray-fill Xdata1 (reverse Xdata))
  (vla-setxdata obj1 Xtype1 Xdata1)
)

(setq ss1 (ssget "X" '( (-3 ("apsM" (1000 . "rrr")) ))))

我使用SXD给各种对象附加扩展数据,但在后面使用过滤器时却无法选择上Circle,Line,BlockReference等对象,只能选择上Lwpolyline,若取消(1000 . "rrr") 则可以,请教是怎么会事?

lockmyeye

关注

liu22737

(ssget "x"(list(append(list -3)(list(list "APSM")))))

gyxzzza

(foreach n list1 (setq Xtype (cons (car n) Xtype))),n是什么？

---------初学者

sieben

Re Liu22737 : 我想增加(1000 . "rrr")这个项或其他项啊!

Re gyxzzza : n 是List1 表里的一个元素,在此是'(1001 . "apsM")和 '(1000 . "rrr")

过滤器是不是只能用到扩展数据的注册应用程序这一项？

yunheng

我也要知道,困扰了好多天了,哪位高人指点一下,楼主弄明白了没?

yunheng

我是要要过滤出"south"的(1000 . "x710101")，但我目前只能过滤到"south",不知道我说明白没。