topic Re: Text rotation with UCS view in Visual LISP, AutoLISP and General Customization Forum

Text rotation with UCS view

venturini.anthony — Mon, 03 Jun 2024 21:39:59 GMT

Ive got this lisp that adds text to other pieces of text, mtext or multileaders. it only works in UCS-World, if not in world, the text goes off to space. if there is a view rotation from world view, the text is rotated to be world-oriented. is there a way around this? im looking to have it be placed horizontally where i want the text no matter the view. any other ideas on this to make it better are appreciated.

(defun common-function () (princ) ;; Prompt the user to select the entity (TEXT, MTEXT, or MULTILEADER) (setq entity (car (entsel "SELECT ENTITY (TEXT, MTEXT, OR MULTILEADER): "))) (setq entity-data (entget entity)) ;; Extract the position of the selected entity (setq pos (cdr (assoc 10 entity-data))) ;; Determine the type of entity and set offsets accordingly (cond ((= (cdr (assoc 0 entity-data)) "TEXT") (setq x-offset 0.0) ;; X offset for TEXT (setq y-offset -4.25) ;; Y offset for TEXT ) ((= (cdr (assoc 0 entity-data)) "MTEXT") (setq x-offset 0.0) ;; X offset for MTEXT (setq y-offset -6.65) ;; Y offset for MTEXT ) ((= (cdr (assoc 0 entity-data)) "MULTILEADER") (setq x-offset 1.3) ;; X offset for MULTILEADER (setq y-offset -5.65) ;; Y offset for MULTILEADER ) (t (princ "Selected entity is neither TEXT, MTEXT, nor MULTILEADER.") (exit) ) ) ;; Prompt the user to choose the text to be added (setq choice (getstring "\nChoose the text to add (1: TO BE REMOVED, 2: TO REMAIN): ")) (cond ((= choice "1") (setq text "TO BE REMOVED")) ((= choice "2") (setq text "TO REMAIN")) (t (princ "Invalid choice.") (exit)) ) ;; Calculate the new position for the text (setq new-pos (list (+ (car pos) x-offset) (+ (cadr pos) y-offset))) ;; Add the specified text at the new position (command "TEXT" new-pos "0" text) (princ) ) (defun C:DRT () (common-function))

Re: Text rotation with UCS view

paullimapa — Mon, 03 Jun 2024 23:11:47 GMT

For getting the correct text insertion point, replace this line:

;; Extract the position of the selected entity (setq pos (cdr (assoc 10 entity-data)))

With this line:

;; Extract the position of the selected entity (setq pos (trans (cdr (assoc 10 entity-data)) 0 1)) ; translate from wcs to ucs

For Text Rotation, add after this line:

;; Add the specified text at the new position (command "TEXT" new-pos "0" text)

The following:

;; add rotation match (setpropertyvalue (entlast) "Rotation" (getpropertyvalue entity "Rotation"))

Re: Text rotation with UCS view

venturini.anthony — Tue, 04 Jun 2024 19:58:37 GMT

that worked for the text and multileader, but mtext is still rotated, very strange. is there a better way to approach this to try and achieve something similar?

my ultimate goal would be to have it work on left & right facing multileader & multiline mtext/leaders with any justification. I wasn't able to get the text to be below the bounding box, just below the insertion point.