×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

X REF with adjustable text height

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

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

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")
       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)
)
;

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources