lisp to rotate 180 degrees (AutoCAD 2004)

[Anonymous]

Is there a lisp program availabe that would enable me to rotate any selected text 180 degrees relative to the current position of the text? I tried the TORIENT command, but that seems to work by absolute rotation rather than just relative to the current position of the text. Thanks for any advice on this.

[Anonymous]

Here is a quickie....

(defun c:Text180 (/ ss i ename data pair)
(setq ss (ssget '((0 . "TEXT,MTEXT"))))
(if ss
(progn
(setq i -1)
(repeat (sslength ss)
(setq ename (ssname ss (setq i (1+ i))))
(setq data (entget ename))
(setq pair (assoc 50 data))
(entmod (subst (cons 50 (+ pi (cdr pair))) pair data))
)
)
)
(princ)
)

--

-Jason
Member of the Autodesk Discussion Forum Moderator Program


"rob8397" wrote in message news:f196237.-1@WebX.maYIadrTaRb...
> Is there a lisp program availabe that would enable me to rotate any selected text 180
degrees relative to the current position of the text? I tried the TORIENT command, but
that seems to work by absolute rotation rather than just relative to the current position
of the text. Thanks for any advice on this.

[Anonymous]

Jason,

Thanks very much for your help with this. The lisp routine works great!

Rob

[Anonymous]

You're welcome.

--

-Jason
Member of the Autodesk Discussion Forum Moderator Program


"rob8397" wrote in message news:f196237.1@WebX.maYIadrTaRb...
> Jason,
> Thanks very much for your help with this. The lisp routine works great!
>
> Rob
>