topic Re: vla-put-tagstring problem in Visual LISP, AutoLISP and General Customization Forum

vla-put-tagstring problem

Patrick.De.Neef — Fri, 22 Oct 2021 07:34:51 GMT

Hello All

need a little bit of help here

Trying to modify the attribute tag name via vla-put-tagstring

the following code does everything I want it to do, except the vla-put-tagstring

Actually it removes the attribute prompt (please see screendumps)

I must be overlooking something basic

Please don't tell me that the code looks awful, I know 😓, it is not optimized, just tried to divide it up into every possible single piece to see what is going wrong

(vlax-for obj (vla-item (vla-get-Blocks (vla-get-Document blockobj)) (if (vlax-property-available-p blockobj 'EffectiveName) (vla-get-EffectiveName blockobj) (vla-get-Name blockobj) ) ) (if (eq "AcDbAttributeDefinition" (vla-get-ObjectName obj)) (progn (setq Blk_Tag (vla-get-TagString obj)) (setq Blk_XYZ (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint obj)))) (setq Blk_Prm (vla-get-PromptString obj)) (setq Blk_X (rtos(car Blk_XYZ) 2 0 )) (setq Blk_Y (rtos(cadr Blk_XYZ) 2 0 )) (princ "Blk_Tag = ")(princ Blk_Tag)(princ "\t")(princ "Blk_X = ")(princ Blk_X)(princ "\t")(princ "Blk_Y = ")(princ Blk_Y)(princ "\t")(princ "Blk_Prm = ")(princ Blk_Prm)(princ "\n") (foreach line Exl_Attrib_Info (if (/= (car line) "Column1") (progn (setq Exl_Tag (nth 0 line)) (setq Exl_Prm (nth 1 line)) (setq Exl_X (nth 2 line)) (setq Exl_Y (nth 3 line)) (setq Exl_NewTag (nth 4 line)) (if (and ( = Blk_tag Exl_Tag) ( = Blk_Prm Exl_Prm) ( = Blk_X Exl_X) ( = Blk_Y Exl_Y)) (progn (princ "found correct settings \t")(princ "Old Prompt = ")(princ Blk_Prm)(princ "\t")(princ "New Tag Will be = ")(princ Exl_NewTag)(princ "\n") (setq result (vla-put-tagstring obj Exl_NewTag)) (princ "result = ")(princ result)(princ "\n") )) )) ) )) ; )

(the variable Exl_Attrib_Info comes from an excel file and is correct)

thanks in advance

Patrick

Re: vla-put-tagstring problem

john.uhden — Sun, 24 Oct 2021 18:15:43 GMT

The only problem that jumps out at me is that the result will be nil...

(setq result (vla-put-tagstring obj Exl_NewTag))

because all vla-puts and vlax-puts return nil I'm pretty sure.

But does the attribute show the desired result?

Anyway, I prefer to use vlax-get/put... because it takes and returns plain AutoLisp lists, etc. as in

(vlax-put obj 'tagstring Exl_NewTag)

You don't have to jerk around with variants and safearrays.

Re: vla-put-tagstring problem

Patrick.De.Neef — Mon, 25 Oct 2021 08:37:08 GMT

Hello John

Thanks for the tip, but it does not work

Result is still the same, the attribute tag name is not updates but the prompt is "erased" as you can see in the screen dumps attached to my initial message

There's also a zip file with data attached

I really don't understand what's happening, must be overlooking the obvious

Patrick

Re: vla-put-tagstring problem

martti.halminen — Mon, 25 Oct 2021 09:31:42 GMT

- The examples in the documentation also call vla-Update on the object, has that any effect?

- Your examples seem to show two different attributes with the same tag. That may cause problems if the program modifies the wrong one.

Re: vla-put-tagstring problem

Patrick.De.Neef — Mon, 25 Oct 2021 12:42:51 GMT

Hello Martti

replacing the duplicate attribute tags is exactly what I am trying to do 😞

adding vla-update did not help

Re: vla-put-tagstring problem

john.uhden — Mon, 25 Oct 2021 15:04:29 GMT

I don't see anything that would "erase" the prompt.

Are you sure about the order of values in the Excel file?

Are you sure that the Excel data are all strings rounded to the whole number?

How about if you try confirming the change...

(vla-put-tagstring obj Exl_NewTag) (princ "result = ") (princ (vlax-get obj 'Tagstring)) (princ "\n")

Then maybe you need to do an update on the block definition and/or a regen.

Re: vla-put-tagstring problem

Patrick.De.Neef — Tue, 26 Oct 2021 07:10:29 GMT

Hello All

can someone explain me the following and tell me that I am not getting ... 😋

After I ran the lisp program, eattedit always tells me that the attribute tag is not changed

However, this morning lightning struck my old brain and I tried BATTMAN

guess what ... this lovely command (and another lisp that I wrote) tells me everything is OK

so, what's wrong with eattedit ???

Please have a look at the attached word document 😀

Patrick

Re: vla-put-tagstring problem

kpblc2000 — Tue, 26 Oct 2021 11:58:20 GMT

Did you ran _.attsync command ?

Re: vla-put-tagstring problem

john.uhden — Tue, 26 Oct 2021 12:30:30 GMT

I think you're getting 😖

Are you sure an update here and there won't bring it around?

Re: vla-put-tagstring problem

Patrick.De.Neef — Tue, 26 Oct 2021 13:11:12 GMT

Hello John

Yep, was almost ... 😵😡

but kpblc2000 gave the solution 😄

(command "_.attsync" "_name" (vla-get-Name blockobj))

@kpblc2000: THANK YOU VERY MUCH !

I knew I was overlooking the obvious, Thanks for following up

Patrick

Re: vla-put-tagstring problem

john.uhden — Tue, 26 Oct 2021 13:51:02 GMT

YAY!! ☺