[求助]ActiveX技朮問題

jxh2003zfr

以下為選擇集的功能，但問題是選擇的物體為圖中所有物體，請高手查查是什麼原因，應如何改

(defun testing(/ ssexam ssAxen safe_type safe_data flt_type flt_data)
(setq ssexam (vla-add (acad-Selectsets) "acadset0")
       safe_type (vlax-make-safearray vlax-vbinteger '(0 . 0))
       safe_data (vlax-make-safearray vlax-vbvariant '(0 . 0)))
 (vlax-safearray-fill safe_type '(6))
 (vlax-safearray-fill safe_data (list "Hidden"))
 (setq flt_type (vlax-make-variant safe_type)
       flt_data (vlax-make-variant safe_data))
 (vla-select ssexam acSelectionSetAll flt_type flt_data)

 (vlax-get-property ssexam "count");此數量顯示的是所有物體的數量而不是線型為虛線的物體數量
)

无痕

调'(0 . 0)

Dallas_whu

    将：(vla-select ssexam acSelectionSetAll flt_type flt_data)

改为：(vla-select ssexam acSelectionSetAll nil nil flt_type flt_data)

试试!