Align Text to a Line

[jarrod822295]

Good Morning,

Is anyone aware of a LISP that aligns text to a line by select the line, then selecting the text. Ensuring the text is not turned upside down, leeping it in a north south or east west allignment.

We previously had a LISP that did this but it would often turn the text upside down

It is below for reference

;--------------------------------------------------------
;lisp program...............................aligntxt.lsp
;
; aligns text to a line
;
;---------------------------------------------------------
(defun c:at (/ LINE ED SP EP A2 TEXT ED2)

(setq LINE (entsel "\n Choose line: \n")
ED (entget (car LINE))
SP (cdr (assoc 10 ED))
EP (cdr (assoc 11 ED))
A2 (angle SP EP)
TEXT (entsel "\n Choose text: \n")
ED2 (entget (car TEXT))
AT (cdr (assoc 50 ED2))
ED2 (subst
(cons 50 A2)
(assoc 50 ED2)
ED2)
)
(entmod ED2)

(prompt "\n \n")
(princ)
)

[avinash patil]

Good Morning,

Is anyone aware of a LISP that aligns text to a line by select the line, then selecting the text. Ensuring the text is not turned upside down, leeping it in a north south or east west allignment.

We previously had a LISP that did this but it would often turn the text upside down

It is below for reference

;--------------------------------------------------------
;lisp program...............................aligntxt.lsp
;
; aligns text to a line
;
;---------------------------------------------------------
(defun c:at (/ LINE ED SP EP A2 TEXT ED2)

(setq LINE (entsel "\n Choose line: \n")
ED (entget (car LINE))
SP (cdr (assoc 10 ED))
EP (cdr (assoc 11 ED))
A2 (angle SP EP)
TEXT (entsel "\n Choose text: \n")
ED2 (entget (car TEXT))
AT (cdr (assoc 50 ED2))
ED2 (subst
(cons 50 A2)
(assoc 50 ED2)
ED2)
&nbsp
(entmod ED2)

(prompt "\n \n")
(princ)
)

Hi,

I have attached lisp file it is downloaded from lee-mac.com

Thanks,

Avinash

[BIG-AL]

Here is another simple version based on 2 pts.

(defun C:T2pts ( / pt1 pt2 ang tobj vlobj)
(SETQ PT1 (GETPOINT "\nPick 1st pt" ))
(SETQ PT2 (GETPOINT "\nPick 2nd pt" ))
(setq ang (angle pt1 pt2))

(SETQ TOBJ (ENTSEL "\nPick Text"))

(setq vlobj (vlax-ename->vla-object (car tobj)))
(vlax-put-property vlobj "Rotation" ang)

)
(C:T2pts)

[aaronic_abacus]

;the first autolisp program I wrote!

(DEFUN C:RAT (/ LOOP LP ENT ENTN ENTL RP ENTRA ENTR)
(PROMPT "*ROTATIONAL ALIGNMENT OF TEXT* ")
(SETQ LOOP 1)
(WHILE LOOP
(SETQ LP 1)
(WHILE LP
(PRINT)
(SETQ ENT (ENTSEL "Select text: "))
(IF (/= ENT NIL) (SETQ LP NIL))
)
(SETQ ENTN (CAR ENT))
(SETQ ENTL (ENTGET ENTN))
(IF (= (CDR(ASSOC 0 ENTL)) "TEXT") (SETQ LOOP NIL) (PROMPT "SELECTED OBJECT IS NOT TEXT"))
)
(COMMAND "CHANGE" ENTN "" "" "" "" "" "90" "")
(print)
(Prompt "align to: ")
(COMMAND "ROTATE" ENTN "" "@" "PER" PAUSE)
(SETQ ENTL (ENTGET ENTN))
(SETQ ENTRA (ASSOC 50 ENTL))
(SETQ ENTR (CDR ENTRA))
(SETQ ENTR (/ (* 180 ENTR) PI))
(SETQ ENTR (- ENTR (* (FIX (/ ENTR 360)) 360)))
(IF (AND (> ENTR 90) (< ENTR 270)) (SETQ ENTR (+ ENTR 180)))
(COMMAND "CHANGE" ENTN "" "" "" "" "" ENTR "") 
(print)
(prompt "new position: ")
(COMMAND "MOVE" ENTN "" "@" PAUSE)
)

[BIG-AL]

aaronic_abicus a couple of suggestions to look at use (setq ent (ssget (list (cons 0 "text")))) this will pick only text objects so no checking needed, you can pick just one object using ssget. Just me but I have started using Vl more vla-get-startpoint, endpoint then check its direction so get correct angle for text. Then use the vl "Rotation" as per previous post. I will try to find posted something recently pick the two end points and text is placed at midpoint correct angle. If your going to use the Assoc's of the entity, rather than (COMMAND "CHANGE" ENTN "" "" "" "" "" ENTR "") you can use a entmod on the assoc 50 that will change the text angle = vl rotation.

Good effort though for 1st lisp.

[remi678731]

Question why don't you just use the orient text in express tools

[aaronic_abacus]

RAT.LSP will rotate text using perpendicular on all objects not just a line, and will not rotate upsidedown.

[framedNlv]

"Torient" seems to work for me.