acad hispano
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Hacer cambios y cerrar

Ir abajo

Hacer cambios y cerrar Empty Hacer cambios y cerrar

Mensaje por eliasp Mar Abr 27, 2021 11:11 pm

Buen día señores. Espero que ya hayan recibido o estén por recibir vacuna, como yo ya estoy viejito, creo que todos son igual, en fin. Saludos a todos.

El asunto es que con una rutina lisp hago algunos cambios a los archivos y me gustaría que al terminar, se cierre el archivo guardando cambios o en su defecto, que al cerrar el archivo, se ejecute la rutina... lo que suceda primero.

Saludos y gracias..........

PD. No creo que sea necesario, pero anexo la rutina que estoy usando.
Código:

(DEFUN C:cerrar()
  (setq conj1(ssget "X" (list
  (cons 0 "VIEWPO*")
  ;(cons 8 "DEFPOINTS")
  )))
  (setq cuantos(sslength conj1))
  (setq i 0)
  (repeat cuantos
    (setq ent1(ssname conj1 i))
    (setq obj1(vlax-ename->vla-object ent1))
    (vla-put-color obj1 256)
    (setq i(1+ i))
    )
  (vl-cmdf "-layer" "_off" "defpoints" "")
  (vl-cmdf "-purge" "_A" "" "_N")
  (vl-cmdf "-purge" "_R" "" "_N")
  (vl-cmdf "_clayer" "0")
  
  )

eliasp

Mensajes : 103
Fecha de inscripción : 17/03/2016

Volver arriba Ir abajo

Hacer cambios y cerrar Empty Re: Hacer cambios y cerrar

Mensaje por Marco Jacinto Jue Abr 29, 2021 5:29 pm

Al final de la rutina, solo agrega un qsave y luego close.

También podrías usar un reactor, pero estos tienen la peculiaridad que no deben de usarse command o sus variantes.

Marco Jacinto

Mensajes : 84
Fecha de inscripción : 12/08/2016

Volver arriba Ir abajo

Hacer cambios y cerrar Empty Re: Hacer cambios y cerrar

Mensaje por eliasp Lun Mayo 03, 2021 3:54 pm

Muchas gracias.....
Aprovechando la vuelta, otro punto importante. Como se ve en la rutina, selecciono todos los viewports del dibujo, peero... si hay viewports que se hicieron con objetos, como una polilínea irregular, éste no se selecciona, alguna sugerencia?

Otra vez gracias

eliasp

Mensajes : 103
Fecha de inscripción : 17/03/2016

Volver arriba Ir abajo

Hacer cambios y cerrar Empty Re: Hacer cambios y cerrar

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.