BUSCO AL AUTOR DE ESTE LISP

Ver el tema anterior Ver el tema siguiente Ir abajo

BUSCO AL AUTOR DE ESTE LISP

Mensaje por 1VANNA el Vie Ene 06, 2017 3:51 pm

Este lisp lo hizo un amigo y lo colgó en Hispacad, fue hace mucho tiempo y no recuerdo quien   ...mi pc se averió y perdí casi todo.
El caso es que necesitaba que se ejecute una rutina antes del comando "LINE" pero ahora no recuerdo como funciona.
Por favor si estas por ahí podrías ayudarme con esto.
Muchas gracias.

(vl-load-com)
(vlr-command-reactor "XDATA-REACTOR" '((:vlr-commandEnded . aftercommand)))

(defun aftercommand (calling-reactor endcommandInfo / thecommandend drgName newname)
 (setq thecommandend (nth 0 endcommandInfo))
 (if (= thecommandend "LINE")
   (progn
     (addxdata (vlax-ename->vla-object (entlast))
'((1001 . "IVANNA_APP") (1000 . "IVANNA"))
     )
   )
 )
)

(defun addxdata (vlaobj xdata)
 (setq xdata (filter (mapcar
'(lambda (item / key)
  (setq key (car item))
  (if (<= 1010 key 1033)(cons key (vlax-variant-value (vlax-3d-point (cdr item)))) item)
)
xdata
     )
     )
 )
 (vla-setxdata vlaobj (car xdata) (cadr xdata))
)

(defun filter (filter)
 (mapcar
   '(lambda (lst typ)
      (vlax-make-variant
(vlax-safearray-fill
  (vlax-make-safearray
    typ
    (cons 0 (1- (length lst)))
  )
  lst
)
      )
    )
   (list (mapcar 'car filter)
 (mapcar 'cdr filter)
   )
   (list vlax-vbinteger vlax-vbvariant)
 )
)

1VANNA

Mensajes : 22
Fecha de inscripción : 15/09/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: BUSCO AL AUTOR DE ESTE LISP

Mensaje por 1VANNA el Vie Ene 13, 2017 2:37 pm

Alguien contesteee.

1VANNA

Mensajes : 22
Fecha de inscripción : 15/09/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: BUSCO AL AUTOR DE ESTE LISP

Mensaje por saulo2016 el Vie Ene 13, 2017 3:28 pm

IVANNA, presiento que el codigo que estas posteando.....está incompleto.


no lo he checado bien, pero asi de primera vista me da esa impresion.


Saludos
avatar
saulo2016

Mensajes : 119
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: BUSCO AL AUTOR DE ESTE LISP

Mensaje por Marco Jacinto el Vie Ene 13, 2017 5:20 pm

Es un reactor, solo necesitas cargar el codigo en autocad. Lo que realiza el reactor es establecer el valor (1001 . "IVANNA_APP") (1000 . "IVANNA") cada vez que se crea una linea en el dibujo

Marco Jacinto

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

Ver perfil de usuario

Volver arriba Ir abajo

Re: BUSCO AL AUTOR DE ESTE LISP

Mensaje por 1VANNA el Jue Feb 02, 2017 2:08 pm

Gracias por contestar.
Como funciona?
No tiene una defun c: como se llama a la funcion, eso es lo que no entiendo.

1VANNA

Mensajes : 22
Fecha de inscripción : 15/09/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: BUSCO AL AUTOR DE ESTE LISP

Mensaje por Marco Jacinto el Jue Feb 02, 2017 3:29 pm

Los reactores trabajan esperando que ocurran ciertas condiciones para actuar o reaccionar, en este caso que se termine el comando activo y que este haya sido el comando Line. Para que esto ocurra sólo es necesario cargar el lisp, sin requerir a posterior mayor interacción del usuario

Marco Jacinto

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

Ver perfil de usuario

Volver arriba Ir abajo

Re: BUSCO AL AUTOR DE ESTE LISP

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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