Reactor to rotate attributes

Hello everyone. I would like to setup a reactor that every time I insert a block with attributes (from a library, design center, tool palettes, etc) to rotate the attribute(s) to the block rotation angle. Any help would be greatly appreciated.

AD

 

The attributes are within block rotation angle... did I miss something?

Cheers

 

hehehe I am missing my head. Sorry. I want to keep the attributes horizontal (0 degree) no matter what angle I inserted the block.

 

(defun C:rotatts ()

 

Hi adiaz

human nature...<vbg>

One more question: keep att's at zero deg's by inserting the block or also
by rotate them later by rotate command?

Cheers

 

You shouldn't need a reactor for the callouts in the tool palette and the
design center. They are automatically set up to display attributes at
0 rotation. Unless you are rotating the keys after the fact, they should
be correct.

attributes (from a library, design center, tool palettes, etc) to rotate the attribute(s)
to the block rotation angle. Any help would be greatly appreciated.

 

hehehe

Not a reactor, but I use this in a LSP to rotate all atts within the last
block inserted to 0.

(setq blk (entlast))
(setq att blk)
(if (assoc 66 (entget blk))
(while (= (cdr (assoc 0 (entget (setq att (entnext att)))))
"ATTRIB")
(command "-attedit" "y" "" "" "" att "a" "0" "")
)
)

 

I believe I know what you're talking about...

Simply watch that block for insertion...

(vl-load-com)

(vlr-editor-reactor nil '(vlr-commandended . editor-issue)))

(defun editor-issue (f v / val)
(setq val (strcase (car v)))

(if (= val_list "INSERT")
(progn
; if, last, insert, object, blockname, objectname, insertion, check
rotation, return attributes, rotate attributes, etc.
)
)
(princ)
)