I want an arrow.

[tom9054]

Be nice, first post and I came to LISP?

 

We/I do presentations weekly to managers or any one interested and I would like to have a pointer/arrow in place of crosshair/aperature.

 

Thinking it would be easier for some to follow the bouncing ball?

 

I'm sure this is why laser pointers where invented, however, there is a thing called essential tremors. Without getting all medical here, it was a guy with essential tremors that also invented laser light shows!

 

Perhaps, we just need new managers.

 

thanks in advance

Tom

[David Bethel]

Have you tried setting the crosshair size to 1 and the color to say red? It's a lot easier than a custom routine. Also it might vary from release to release as to builtin options in ACAD. -David

[Lee Mac]

Here is a toggle for what David suggests:

 

(defun c:test (/ r g b Disp)
 (vl-load-com)
 ;; Cross Hair Toggle  ~  Lee Mac  ~  24.01.10

 (setq r 255 g 0 b 0)

 (setq *acad (cond (*acad) ((vlax-get-acad-object)))
       Disp  (vla-get-Display (vla-get-Preferences *acad)))

 (or OldSettings
   (setq OldSettings
     (cons (getvar 'CURSORSIZE)
           (vlax-variant-value
             (vlax-variant-change-type
               (vla-get-ModelCrossHairColor Disp) vlax-vbLong)))))

 (cond (*flag*  (setvar 'CURSORSIZE (car OldSettings))
                (vla-put-ModelCrossHairColor Disp (cdr OldSettings))
                (setq *flag* nil))

       ((setq *flag* t)

              (setvar 'CURSORSIZE 3)
              (vla-put-ModelCrossHairColor Disp (+ r (* 255 g) (* 65536 b)))))

 (princ))