viernes, 15 de noviembre de 2002

Re: [ACAD] program lisp-Autor: SpeedCAD

Hola...

Bueno Jose Luis para desactivar las referencias a objetos es muy facil...

Abre la rutina en Visual Lisp y haz lo siguiente:

Despues de esta linea (defun c:texcir (/ cen rad alt grc txt tcar nord angec
letra pt angrt) debes poner lo siguiente: (ademas debes agregar la variable fer
para descargarla de la memoria)

(defun c:texcir (/ cen rad alt grc txt tcar nord angec letra pt angrt ref)
(setq ref (getvar "OSMODE")) ;Para extraer el valor actual de OSMODE
(setvar "OSMODE" 0) ;Para desactivar las referencias a objetos
...
...

Luego al final de la rutina, pero antes del ultimo parentesis (el que cierra
defun) debes poner lo siguiente:

...
...
(setvar "OSMODE" ref) ;Para activar las referencia a objetos que tenias
)

Y listo cuando ejecutes la rutina primero extraera el valor de la variable de
sistema OSMODE, luego desactiva las referencias a objetos poniendo el valor 0 a
la variable OSMODE. Finalmente despues de ejecutar la rutina volvera a activar la
referencia a objeto con el valor obtenido de ref...

Espero que lo puedas hacer...

Un saludo de SpeedCAD... :-)