topic Re: Text Width in Visual LISP, AutoLISP and General Customization Forum

Text Width

Anonymous — Thu, 17 Jun 2021 03:47:06 GMT

Request to provide option in AutoCAD file all text width factor change in one command.

Re: Text Width

Kent1Cooper — Fri, 18 Jun 2021 13:29:24 GMT

Try some Searching -- I imagine there is something already available. If you don't find something that does what you want, I have questions:

Is it your intention to change the width factor in all text Style definitions, or to impose a width factor override on all Text objects?

By "text" do you mean only Text objects specifically, or do you also want it done to Mtext, and/or Block Attributes, Dimension text content, Multileaders, etc.?

Re: Text Width

ВeekeeCZ — Fri, 18 Jun 2021 13:34:26 GMT

So do I have a question.

How would you like to change it? Like stretch some and narrow others? Or stretch all but with an increasing width factor? That could grow linearly or logarithmically or according to some other function. Plenty of options here. Or ever we could change it just for a split of second and get it back before the command ends. Just thinking out loud.

Re: Text Width

ParishSouthBdx — Fri, 18 Jun 2021 14:15:53 GMT

could you change the width factor with the command STYLE? if you set that width factor there it should change it per design session within autocad. where its using that style of course. not sure if it changes it globally. you may have to change the width factor of the font within the style, one style at a time.

Re: Text Width

Anonymous — Tue, 22 Jun 2021 07:42:30 GMT

In my current AutoCAD ".dwg" File

We want to change all Single line & Multiline text width factor in a single command.

I want to set width factor of text is only “1.0”

Whatever be text style.

@Kent1Cooper @ВeekeeCZ @ParishSouthBdx

Re: Text Width

hak_vz — Tue, 22 Jun 2021 08:59:13 GMT

(defun wf ( / ss i) (setq ss (ssget "X" '((0 . "TEXT"))) i -1) (while (< (setq i (1+ i)) (sslength ss)) (vlax-put (vlax-ename->vla-object (ssname ss i)) 'ScaleFactor 1.0) ) ) (defun c:wf nil (wf))

Re: Text Width

Anonymous — Tue, 22 Jun 2021 09:10:37 GMT

@hak_vz

Hi, We don't know AutoLisp program in a CAD file how to change in a single command?

Re: Text Width

hak_vz — Tue, 22 Jun 2021 09:33:26 GMT

Save code into a file with extension .lsp inside trusted directory. Then true drop down menus go to TOOLS -> load application and chose startup suite, and load file. It will be loaded with every drawing. Chose command wf to put width factor to 1.

I don't understand why you need lisp or any code for this since it can be easily done to tools->quickselect

Re: Text Width

Anonymous — Tue, 22 Jun 2021 09:51:58 GMT

@hak_vz

Dear Sir,

Thank you very much, for solutions.

>quickselect

Fantastic second option we like.

Request to you please share me your personal email id for my record purpose.

With Best Regards,

PRUTHVIRAJ DHAVALE

Order Related Engineering

SULZER PUMPS INDIA PVT. LTD.

9-MIDC Thane Belapur Road
Digha, Navi Mumbai 400708, INDIA

Mobile: + 91 9764036692

E-mail: pruthviraj.dhavale@gmail.com

Re: Text Width

hak_vz — Tue, 22 Jun 2021 10:55:43 GMT

@AnonymousYou can always use private messages among registered users profiles. Just make mouse over my profile and pop-up will show with a contact link to send me private message.