Simple text move

[BB8x]

Hello

I need lisp to move x/y all texts based on their rotation in direction shown on attached screenshot

I would imagine this as reading text rotation, add (or remove) 90 deg and calculate azimuth. Then move text insertion point with azimuth and distance of 0.05 units

Thanks

 

[Kent1Cooper]

Yes, exactly, though as described and illustrated, always adding 90°.  Here's one way to do it:

(defun C:TU05 ; = Text Upwards by 0.05 units
  (/ ss n txt ins)
  (if (setq ss (ssget '((0 . "TEXT"))))
    (repeat (setq n (sslength ss))
      (setq txt (ssname ss (setq n (1- n))))
      (setpropertyvalue txt "Position"
        (polar
          (getpropertyvalue txt "Position")
          (+ (getpropertyvalue txt "Rotation") (/ pi 2))
          0.05
        )
      )
    )
  )
  (princ)
)

That calls for User selection.  If you really want to do all Text objects without User selection:

  (if (setq ss "_X" (ssget '((0 . "TEXT"))))

And it assumes you meant Text objects specifically, not [or not also] Mtext, but if you need Mtext too [whether or not you include the "_X"]:

  (if (setq ss (ssget '((0 . "*TEXT"))))

[Sea-Haven]

Just a suggestion for "X" so moves within only current tab.

(if (setq ss "_X" (ssget '((0 . "TEXT")(cons 410 (getvar 'ctab)))))

[BB8x]

I have "ads request error"

[TomBeauford]

Maybe it would be best to modify the code or procedure that's placing the text incorrectly to avoid having to fix it ever again.

[john.uhden]

@BB8x 

We don't know what version of AutoCAD you are using.

@Kent1Cooper ,  @ВeekeeCZ  when did getpropertyvalue come along?

[TomBeauford]

4 new AutoLISP functions in A2012

 http://www.theswamp.org/index.php?topic=39259

[Sea-Haven]

getproperty not supported in Bricscad and maybe other non acad software.