Is it possible to suppress the echo ‘command’ in
(vla-select newsset acSelectionSetAll nil nil filter_code filter_value)
Code:
(defun C:SelLin (/ filter_code filter_value)
(setq ssets (vla-get-selectionsets (vla-get-activedocument (vlax-get-acad-object))))
(setq newsset (vla-add ssets "SS1"))
(setq filter_code (vlax-make-safearray vlax-vbinteger '(0 . 3)))
(setq filter_value (vlax-make-safearray vlax-vbvariant '(0 . 3)))
(vlax-safearray-fill filter_code '(-4 0 8 -4))
(vlax-safearray-fill
filter_value
(list "<AND" "LINE" "0" "AND>")
)
(princ "\nStart Echo")
(vla-select newsset acSelectionSetAll nil nil filter_code filter_value)
(princ "\nEnd Echo")
(vla-delete (vla-item ssets "SS1"))
(textpage)
(princ)
)