topic Re: Change multiple values by same amount in Visual LISP, AutoLISP and General Customization Forum

Change multiple values by same amount

Anonymous — Tue, 09 Nov 2021 09:58:45 GMT

Good Morning,

I was wondering if there is a shortcut or LISP that would enable me to change multiple values by the same amount.

The example is I want to drop a site by say 300mm therefore I want 100 values to drop by 0.3. I am trying to avoid doing this manually.

Thanks in advance.

Re: Change multiple values by same amount

hak_vz — Tue, 09 Nov 2021 10:10:03 GMT

@Anonymous

How your elevation texts are created. as a text entity or block?

Are they placed in single or multiple layers. Do you want to pick texts one by one or automatically select all text (mtext) entities in particular layer?

If you want lisp solution post your request in Visual Lisp, AutoLISP and General Customization forum.

Attach sample drawing (dwg) to help make code easier, without need for many additional questions.

Re: Change multiple values by same amount

Anonymous — Tue, 09 Nov 2021 10:17:27 GMT

Morning,

They are on the same layer and in blocks. I would want to select the ones to change as not all will.

What is the best way going forward. I have included a dwg with the blocks in it.

Dan

Re: Change multiple values by same amount

hak_vz — Tue, 09 Nov 2021 10:28:39 GMT

I'll make a script for your particular case. Since I'm currently at work I'll work on it during a break.

Re: Change multiple values by same amount

Anonymous — Tue, 09 Nov 2021 10:34:04 GMT

Thats very kind of you. Is there somewhere I can learn to write scripts/LISPs?

Re: Change multiple values by same amount

hak_vz — Tue, 09 Nov 2021 11:16:25 GMT

You can read about autolisp and visual lisp in Autocad help, check site like AfraLisp

and you have autolisp forum link in previous post.

I'll have to postpone my answer for later today since your level attribute values are not consistent. In some of them you have value like "102.5x" , so code will be a bit longer, and I'm flooded with work.

Re: Change multiple values by same amount

Anonymous — Tue, 09 Nov 2021 12:30:14 GMT

Ignore the ones with x, they are existing and therefore will never change. Sorry I forgot about those

Re: Change multiple values by same amount

jrreid — Tue, 09 Nov 2021 12:59:50 GMT

You can use Express Tool Block ATTOUT,

Open the TXT file into Excel.

Sort the file and remove the ones with X's.

Then use a formula to subtract.

The use Express Tool Block ATTIN.

Done.

See Attached.

Hope this helps.

JRR.

Re: Change multiple values by same amount

hak_vz — Tue, 09 Nov 2021 13:01:38 GMT

@Anonymous wrote:

Ignore the ones with x, they are existing and therefore will never change. Sorry I forgot about those

Take care about this.

OP has accepted solution at Visual lisp forum

Re: Change multiple values by same amount

john.uhden — Wed, 10 Nov 2021 00:54:17 GMT

Somewhere in this vast repository of donated code is my EDITNUM.lsp, for which I once charged a bundle but nowadays everyone wants the same for free. So search and enjoy. I think it handles most kinds of textstrings, but maybe mtext formatting will not provide desired results. I don't remember.

Re: Change multiple values by same amount

Sea-Haven — Wed, 10 Nov 2021 06:53:38 GMT

This is quick and dirty.

; adjust level 1 attribute block if more atts need to look at tag name ; By AlanH NOV 2021 (defun c:add2att ( / lay ss num val x) (setq num (getreal "\nEnter change ")) (setq lay (cdr (assoc 8 (entget (car (entsel "\nPick a block for layer ")))))) (setq ss (ssget "X" (list (cons 0 "INSERT")(cons 8 lay)(cons 410 "Model")))) (repeat (setq x (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1))))) (if (= (Vla-get-EffectiveName obj) "ACE-EL-POINT_LEVEL") (progn (foreach att (vlax-invoke obj 'getattributes) (setq val (vla-get-textstring att)) (if (or (wcmatch val "*x*")(wcmatch val "*X*" )) (princ "\nmiss existing") (progn (setq val (+ num (atof val))) (vla-put-textstring att (rtos val 2 2)) ) ) ) ) ) ) (princ) )