scale text and Move text in the angle of its orientation

[symoin]

Hai,

 

I have lots of text parallet to polylines, I have to scale them to reduce the size then I have to move the text towards the polyline to reduce the gap between the polylines and the text. These polylines and text are in different directions.

Iam looking for a lisp code.

 

Help is always appreciated.

[Tharwat]

Hi

You can try this one;

(defun c:gap (/ scalefactor input ent xcar)
 (setq scalefactor(getreal(strcat "\nSpecify scale factor:")))
 (setq input scalefactor)
 (setq ent (car (entsel "\nSelect text: ")))
 (setq xcar(cdr (assoc 10 (entget ent))))
 (command "_scale" ent "" xcar input "")
 (princ "CadTutor Forum")
 (princ))
 

Regards

Tharwat

[symoin]

Thanks Tharwat313,

 

when I copied the lisp into autocad 2009 or when i copied the content into notepad and saved as lisp and apploaded it in autocad 2009 it shows an error messege.

 

(LOAD "d:/moin/gap.lsp") ;

error: bad argument type: numberp: nil

 

can you fix this.

Thanks

 

[Tharwat]

Hi

Do not worry here is the lisp file attached below.

 

regards,

Tharwat

gap.LSP

[asos2000]

What is usage of these 2 lines?

 

(setq scalefactor(getreal(strcat "\nSpecify scale factor:")))
 (setq input scalefactor)

 

Shouldnt be

  (setq input (getreal(strcat "\nSpecify scale factor:")))

 

What is usage of strcat?

 

 
(setq input (getreal "\nSpecify scale factor:"))

or you want to convert real to string

(setq input (rtos (getreal "\nSpecify scale factor:")))

 

Regards

[symoin]

asos2000

can you fix this i have absolutely no coding knowledge. iam requesting the users for the codes.

[Tharwat]

What is usage of these 2 lines?

 

(setq scalefactor(getreal(strcat "\nSpecify scale factor:")))
 (setq input scalefactor)

 

Shouldnt be

  (setq input (getreal(strcat "\nSpecify scale factor:")))

 

What is usage of strcat?

 

 
(setq input (getreal "\nSpecify scale factor:"))

or you want to convert real to string

(setq input (rtos (getreal "\nSpecify scale factor:")))

 

Regards

I used the 'strcat' because I wanted to add the entered value by the user

and I changed my mind due to personal reasons.

 

So that does not affect on the performance of the program Mr asoooooooooos

 

Tharwat

[symoin]

Hai all,

 

If you could look GT_TXTSLIDE at this link http://www.4d-technologies.com/geotools/manual/text_tools.htm.

 

My requirement is exactly the same as this. can you code something like this.

[Tharwat]

Hai all,

 

If you could look GT_TXTSLIDE at this link http://www.4d-technologies.com/geotools/manual/text_tools.htm.

 

My requirement is exactly the same as this. can you code something like this.

 

most of these commands are included with Autocad express menu, so try to use them , and you will be in no need for any codes except for special routines.

 

Regards

Tharwat

[alanjt]

Hai all,

 

If you could look GT_TXTSLIDE at this link http://www.4d-technologies.com/geotools/manual/text_tools.htm.

 

My requirement is exactly the same as this. can you code something like this.

Why not use what they provide? It's actually really easy to code. Just select the text/mtext, define a rotation and distance, then use the polar command to define and place a new insertionpoint for the text/mtext.

 

eg.

 

[Lee Mac]

I used the 'strcat' because I wanted to add the entered value by the user

and I changed my mind due to personal reasons.

 

So that does not affect on the performance of the program Mr asoooooooooos

 

Tharwat

 

That makes no sense.

[The Buzzard]

That makes no sense.

Just imagine this if they decide to open the archive.

[alanjt]

Just imagine this if they decide to open the archive.

:lol:

[alanjt]

That makes no sense.

That's just horrible.

[The Buzzard]

:ouch:

That's just horrible.

Ouch! The truth can hurt.

[alanjt]

:ouch:

Ouch! The truth can hurt.

I just couldn't help myself. 'personal reasons'

[Lee Mac]

[alanjt]

Not you, what you were responding to. I forgot the you can't quote nested posts.

[Tharwat]

Hi experts

 

the truth is that I made the sense of communications between all

memers of this esteemed Forum within a quick reply to a member.

 

And that's so precious ..... isn't?

Hot regards,

 

Tharwat

[Lee Mac]

the truth is that I made the sense of communications between all

memers of this esteemed Forum within a quick reply to a member.

 

And that's so precious ..... isn't?

 

Is it not better to take a moment and provide a correct response? Rather than post erroneous quickly?