suppress echo

[pvogt50]

Is it possible to suppress the echo ‘command’ in
(vla-select newsset acSelectionSetAll nil nil filter_code filter_value)

(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)
)

[BeKirra]

Is it possible to suppress the echo ‘command’ in
(vla-select newsset acSelectionSetAll nil nil filter_code filter_value)

(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)
)

A conditional statement will do the trick:

(if ...
(vla-select newsset acSelectionSetAll nil nil filter_code filter_value)
); end of if

[pvogt50]

A conditional statement will do the trick:

(if ...
(vla-select newsset acSelectionSetAll nil nil filter_code filter_value)
); end of if

Dear Bokirra,

The change in:

(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")
(If T
  (vla-select newsset acSelectionSetAll nil nil filter_code filter_value)
)
(princ "\nEnd Echo")
  (vla-delete (vla-item ssets "SS1"))
  (textpage)
  (princ)
)

gives no change of the result.

I get still the echo result:
Start Echo
Command:
End Echo

[irneb]

Unfortunately I can't seem to get rid of it making one blank command line. Neither CmdEcho, nor NoMutt have any effect.

Is there any reason you have to use the ActiveX selection set methods? Is there any reason you don't want to use ssget?

Also it doesn't seem to do anything, the vla-delete simply removes the selection set from the selection set collection - it doesn't delete the entities selected. So effectively your routine, filter selects lines on layer 0, then clears the selection. The lines remain and nothing is changed.

The absolute "simplest" way of doing what I think you're up to would be:

(defun c:SelLin (/ ss)
  (if (setq ss (ssget "X" '((8 . "0") (0 . "LINE"))))
    (command "._ERASE" ss "")
  )
  (princ)
)

If you want nothing displayed on the command line, you can look at the CmdEcho and NoMutt system variables. Or you can step through the selection set and use entdel to erase each programatically. The same way you "should" do using the vla selection set. The loop is simpler with the vla selection set, since you could then use vlax-for, but creating the filter is more complex - as your code shows with the 2 safearrays, the ssget's filter is a lot easier to use in lisp.

Also, you don't need to explicitly tell either the ssget of vla-ss to use AND. That's a given already - it's when you rather want to use OR (or others) that such things become important.

Unless I'm not understanding the desired result. The command name is a bit confusing if it's going to erase the lines. Were you wanting to select and grip these lines? If so look at the sssetfirst lisp function - in which case it would be a lot easier to use ssget.

[pvogt50]

Thanks Bokirra and Irneb,

I don’t understand why it is echoing, is this a mistake from AutoDesk?
I use the routine SelLin in a program for chancing objects and calculating length.

[alanjt]

It's just something that is displayed with a non-command routine is executed. Some versions of AutoCAD will suppress it with the nomutt variable, but not all.