X REF with adjustable text height

[Adrian2]

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

 

[Estassoc]

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..

 

[IFRs]

Here is a routine you can modify to suit.
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&quot
SM (getvar "ORTHOMODE&quot)
(COMMAND "OSNAP" "END&quot
(setq B (getstring &quot;\nEnter an X-Ref name: <CUST> &quot
P (Getpoint &quot;\nPick the insert point (endpoint):&quot
T2 (entsel &quot;\nPick text for size: <TEXTSIZE> &quot
)
(IF (= &quot;&quot; B) (setq B &quot;CUST&quot)
(IF (= nil T) (setq H (getvar &quot;TEXTSIZE&quot) (setq H (cdr (assoc 40 (entget (car T2))))))
(COMMAND &quot;XREF&quot; &quot;A&quot; B P H &quot;&quot; &quot;&quot
(setvar &quot;OSMODE&quot; 0)
(setvar &quot;ORTHMODE&quot; 0)
(COMMAND &quot;MOVE&quot; &quot;L&quot; &quot;&quot
(setvar &quot;OSMODE&quot; OM)
(setvar &quot;ORTHMODE&quot; SM)
(PRINC)
)
;