X REF with adjustable text height
X REF with adjustable text height
(OP)
Dear Folks;
When you import an xref into a drawing can you set things up so that text within the xref scales up to the text height set in your target drawing ?
Best Regards
Adrian D.
aaadrafting.com
When you import an xref into a drawing can you set things up so that text within the xref scales up to the text height set in your target drawing ?
Best Regards
Adrian D.
aaadrafting.com





RE: X REF with adjustable text height
You need the services of a lisp programmer to be
to do what you want done. Besides, if you have
multiple line of text, it will mess up text
placements when text sizes are scaled-up.
However, you can scale-up all the text before you
do your xref...change properties..
RE: X REF with adjustable text height
Load it and then run it bytyping "IX".
It inserts an xref called "cust" at a point you pick and then scales it based on the height of some text you pick (or use a default of TEXTHEIGHT). My CUST block has text set to 1 unit high so when I IX it into a drawing, it is scaled to the textheight of the drawing.
(DEFUN C:IX (/ OM SM P B T2 H) ; XRef CUST block
(setq OM (GetVar "OSMODE")
SM (getvar "ORTHOMODE"))
(COMMAND "OSNAP" "END")
(setq B (getstring "\nEnter an X-Ref name: <CUST> ")
P (Getpoint "\nPick the insert point (endpoint):")
T2 (entsel "\nPick text for size: <TEXTSIZE> ")
)
(IF (= "" B) (setq B "CUST"))
(IF (= nil T) (setq H (getvar "TEXTSIZE")) (setq H (cdr (assoc 40 (entget (car T2))))))
(COMMAND "XREF" "A" B P H "" "")
(setvar "OSMODE" 0)
(setvar "ORTHMODE" 0)
(COMMAND "MOVE" "L" "")
(setvar "OSMODE" OM)
(setvar "ORTHMODE" SM)
(PRINC)
)
;