怎样在activex中实现选择过滤

liu_kunlun · 发表于 2012-6-26 15:07:01

本帖最后由 liu_kunlun 于 2012-6-26 15:28 编辑

怎样实现选择过滤
我打算用批处理方法收集文件夹内所有图纸的图框信息,这就必须采用activex方法选出图纸中的具有属性的块.
先想实现最基本的将块过滤出来:
在建立选择集ss之后,建立过滤数据:
1) 数据类型
(setq dtp (vlax-make-safearray vlax-vbinteger '(0 . 0)))
(vlax-safearray-fill dtp (list 0 ))
2) 数据
(setq dt (vlax-make-safearray vlax-vbstring  '(0 . 0)))
(vlax-safearray-fill dt (list "INSERT"))
用 (vlax-invoke-method ss 'Select acSelectionSetAll dtp  dt)未实现过滤,选到了整个图形的内容
用(vlax-invoke-method ss 'Select acSelectionSetCrossing  (vlax-3D-point (getpoint)) (vlax-3D-point (getpoint)) dtp  dt)显示"参数FilterType(位于Select中)无效"
用(vlax-invoke-method ss 'Select acSelectionSetCrossing  (vlax-3D-point (getpoint)) (vlax-3D-point (getpoint)) 0  "INSERT")也显示"参数FilterType(位于Select中)无效"
请高手指教

crazylsp · 发表于 2012-6-26 18:21:49

vla的select方法是好像有问题。

Gu_xl · 发表于 2012-6-26 18:53:54

本帖最后由 Gu_xl 于 2012-6-26 19:00 编辑

(vla-select
(setq
ssset (vla-get-ActiveSelectionSet
(vla-get-ActiveDocument (vlax-get-acad-object))
)
)
acSelectionSetAll
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbInteger
(cons 0 1)
)
'(0 8)
)
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbVariant
(cons 0 1)
)
'("insert" "0")
)
)
上面语句相当于
(setq ss (ssget "x" '((0 . "insert") (8 . "0"))))

VBALISPER · 发表于 2012-6-26 19:55:46

还是最后一句精练啊.

liu_kunlun · 发表于 2012-6-27 12:06:40

谢谢版主出面！！

liu_kunlun · 发表于 2012-7-3 17:36:47

操作其它文档时，仍然是选到全体实体，高手帮忙！！

账号		自动登录	找回密码
密码			注册

怎样在activex中实现选择过滤

相关帖子