(defun vypisInformaci(volajObj reactorObj paramList)
  (vl-load-com)
  (if (vlax-property-available-p volajObj "Length")
   (progn
    (princ "\nPrávě jste změnil velikost čáry ve výkresu!\n Nová délka čáry je: \n")
    (princ (vla-get-length volajObj))
   )
  )
)

(defun c:cara()
  (vl-load-com)
  (setq prvniBod (getPoint "\nZadej první bod čáry: "))
  (setq druhyBod (getPoint "\nZadej druhý bod čáry: "))
  
  (setq acadObjekt (vlax-get-acad-object)) 
  (setq acadDokument (vla-get-ActiveDocument acadObjekt))
  (setq modelProstor (vla-get-ModelSpace acadDokument)) 
  (setq mojeCara
   (vla-addLine modelProstor
    (vlax-3d-point prvniBod) (vlax-3d-point druhyBod)
   )
  )

  (setq lineReaktor   (vlr-object-reactor (list mojeCara)
	   "Line Reactor" '((:vlr-modified . vypisInformaci))))
)

(princ "\nFunkce se spustí příkazem (c:cara) v IDE Visual LISPu")
(princ "\nFunkce se spustí příkazem cara v AutoCADu")