Arrow Leader to show Correct azimuth

[Sambuddy]

This post is very similar to what I intended with rotating blocks by first determining True North and then new azimuth from true north (I succeeded in doing that one no perfectly but it does most of what I wanted). I did try, in the past to obtain some dxf entities from blocks but am clueless when I look at the result. I would like to see, in each drawing file: set an arrow block to North then with a magical lisp each time I enter the command I would like the an insert of the block with inputting new degree from the North to be inserted.

and to top it off, if there is a way for the degree to show up on the #### that would be excellent.

I also cannot figure out an efficient way to flip the text so it always shows the text correctly but that is another problem.

 

Is there anyone that can cook something up for me please?

in the past, BIGAL had helped me a lot in determining my block rotation but this seems it has a lot of DXF entity I cannot figure out!

I played around with this lisp but cannot do much!

(vl-load-com)

(defun c:IR ( / centro angR Fr obj)
  (setq centro (getpoint "\nSelect Block Insertion Point : ")
        angD (getreal "\nEnter Rotation Angle for Block in Degrees : ")
        Fr (getstring "\nEnter Force applied : ")
        angR (* pi (/ angD 180.0))
  );end_setq
  (command "_-insert" "r" "_s" "1" centro (angtos angR) Fr (strcat (angtos angR) "%%d"))
	(setq obj (vlax-ename->vla-object (entlast)))
	(if (< (/ pi 2) angR (* (/ pi 2) 3))
          (foreach prop (vlax-invoke obj 'getdynamicblockproperties)
            (if (= (strcase (vla-get-propertyname prop)) "????")
              (vla-put-value prop (vlax-make-variant 180.0 (vlax-variant-type (vla-get-value prop))))
            );end_if
          );end_foreach            
  );end_if
  (princ)
);end_defun
(princ)

 

Thank you

 

Arrows.dwg

[BIGAL]

The only way I can seem to insert blocks at a adjusted  angle is using UCS. I just use UCS ob with a line at correct angle this becomes zero angle. Ps pick left end.

Edited November 28, 2019 by BIGAL