hide text that appears in the command window

[carlos_m_gil_p]

Hello boys how are you.
Can someone tell me how I can hide text that appears in the command window.

(defun c:xxx  (/)
  ;;
  (setvar "cmdecho" 0)
  ;;
  (command "-scalelistedit" "_r" "_y" "_e")
  ;;
  (command "_.-purge" "_a" "" "_n" "_.-purge" "_r" "" "n")
  (command "_.-purge" "_r" "" "n")
  ;;
  (setvar "cmdecho" 1)
  ;;
  (princ)
  ;;
  )

I attached an image so you can understand me.

Thank you very much.

[cadffm]

Try the handling with cmdecho

[carlos_m_gil_p]

Hello how are you.
Thanks for your help.
I had already implemented it, as you can see in the code.

[Kent1Cooper · Accepted solution]

This question goes  > > w a y b a c k < < .  That's just one example -- put "Suppress Purge Command Echoing" into the Search window for some other threads on the same topic, and one the same about PEDIT.  Unfortunately, it doesn't seem there's any way to suppress echoing of certain elements of certain commands.

[cadffm]

OMG, i am sorry it was written in hurry.

embarrassing

[jlojeda]

(GRAPHSCR)

[carlos_m_gil_p]

Hello how are you.
Thanks to everyone, I did not know that this text could not be hidden.
Thank you.

[jlojeda]

Dear, write (GRAPHSCR) at the end of the code of your peogram, with this it will show the editor of autocad and therefore it will hide the text screen.

[carlos_m_gil_p]

Hi, jlojeda, how are you?
I do not need to hide the window.
I need to hide the text. (the echo)
Excuse my English, I only speak Spanish

[jlojeda]

A ok, sorry si por si ya lo escribieron más arriba pero, probaste con (setvar "cmdecho" 0) al inicio del programa?

[carlos_m_gil_p]

Hola, no sabias que hablabas español.

Si ya lo probe, por eso coloque el codigo al principio para descartar esas opciones.

Pero solo pasa con algunos comandos.

Mil gracias por tu ayuda.

[jlojeda]

A sí perdón, puedes usar esto para el purge, al menos es más silencioso:

(vla-PurgeAll (vla-get-activedocument (vlax-get-acad-object)))

[carlos_m_gil_p]

Si lo intente, pero no es tan bueno como el otro.

Por ejemplo:

Cuando hay lineas con longitud cero, no las purga.

Por eso prefiero quedarme con el método que estoy utilizando. Jejeje.

[jlojeda]

Para borrar las lineas de longitud = 0:

(setq sel (ssget "X" (list (cons 0 "LINE"))))
(if sel
(progn
(setq n 0)
(repeat (sslength sel)
(setq ename (ssname sel n))
(setq startpoint (cdr (assoc 10 (cdr (entget ename)))))
(setq endpoint (cdr (assoc 11 (cdr (entget ename)))))
(setq dist (distance startpoint endpoint))
(if (= dist 0.0)(entdel ename))
(setq n (1+ n))
)
)
(princ)
)

[carlos_m_gil_p]

Hola hermano, gracias por esa solución.

Es mas código pero valida.

Un saludo.