topic Re: LISP To change text width factor inside a block that is text only? in Visual LISP, AutoLISP and General Customization Forum

LISP To change text width factor inside a block that is text only?

jdmwrxpower — Sat, 21 May 2022 12:36:02 GMT

Hi everyone,

I have alot of blocks that are all different. When I go into the block (-bedit) the symbol is a letter or number in the middle of the block. It is text and not an attribute definition. The width factor is .85 and I need to change it to one. I tried Battman but this not show in the list because it's not an attribute definition.

Is there an LSP out that will go through all the blocks, find the text, it's width factor and change it to what you desire? Please help, thank you in advance

Re: LISP To change text width factor inside a block that is text only?

ВeekeeCZ — Sat, 21 May 2022 17:48:08 GMT

Try this. You should have posted a sample to test.

(vl-load-com)

(defun c:BTextWidth nil
  (vlax-for b (vla-get-blocks (setq doc (vla-get-activedocument (vlax-get-acad-object))))
    (if (and (= 0 (vlax-get b 'islayout))
	     (= 0 (vlax-get b 'isxref))
	     (/= "AcDbBlockReference" (vlax-get b 'objectname))
	     )
      (vlax-for e b
	(if (and (= "AcDbText" (vlax-get e 'objectname)
		 (vlax-write-enabled-p e)
		 )
	  (vla-put-scalefactor e 1)))))
  (vla-regen doc acactiveviewport) 
  (princ)
)

Re: LISP To change text width factor inside a block that is text only?

jdmwrxpower — Sat, 21 May 2022 17:39:40 GMT

That worked perfectly, thank you!