怎么设置过滤器 VLA-SELECT

zark

(vlax-for ob (Vlax-Get dbx 'ModelSpace)
    (if (And
   (= "TK" (Vlax-Get ob 'Layer))
   (= "AcDbBlockReference" (Vlax-Get ob 'ObjectName))
   (= "ac50tk" (Vlax-Get ob 'Name))
   )
   (setq ptlist (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ob))))
)
    )


我只是想找“TK"层中一个块名叫"ac50tk"的对象，这样就能找出图廓西南角坐标，现在不懂得用过滤器，执行一次就要把整幅图判断一遍，好累呀~~~~请大侠指点一下，能不能做用AUTOLISP一样，使用(SSGET “x" '((8 . "TK")))，这样省事多了。

artken

同问.....................