topic Re: Blockreplace - keeping Value with same Attribute tags in Visual LISP, AutoLISP and General Customization Forum

Blockreplace - keeping Value with same Attribute tags

Anonymous — Fri, 24 May 2019 08:59:54 GMT

Hi ,

is it somehow possible to replace blocks with the same Attribute tags but diffrent Value without losing the original values ?

Re: Blockreplace - keeping Value with same Attribute tags

pbejse — Fri, 24 May 2019 09:15:10 GMT

@Anonymous wrote:

Hi ,

is it somehow possible to replace blocks with the same Attribute tags but diffrent Value without losing the original values ?

Yes indeed, as long as they have the same tags. or at least a list of tags as reference.

Re: Blockreplace - keeping Value with same Attribute tags

Anonymous — Fri, 24 May 2019 09:29:46 GMT

Story behind - we use a LISP that blockreplace all block that are counted up like : " A , A_1 , A_2 , A_3 " to only " A " then we change the Attribute tags of the block ( A ) to "C1" and "C2" and at this point every Value becomes the same.

maybe a way to lock all Values via a Lisp or script to prevent them all changiging to the same ?

thanks beforehand tho

Re: Blockreplace - keeping Value with same Attribute tags

Anonymous — Fri, 24 May 2019 09:33:38 GMT

Script for refrence

;;-------------------=={ Edit Attributes }==------------------;;

;;------------------------------------------------------------;;

;;; Rename attributes
(defun RenAttrib ($blk $old $new / blocks bo eo ao)
  ;; Get blocks collection in current drawing
  (setq blocks (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
  ;; Step through all blocks
  (vlax-for bo blocks
    ;; Step through all entities inside block
    (vlax-for eo bo
      (cond
        ;; If attdef & in target block & old tag
        ((and (= (vla-get-ObjectName eo) "AcDbAttributeDefinition")
              (= (strcase (vla-get-Name bo)) (strcase $blk))
              (= (vla-get-TagString eo) $old)
         ) ;_ end of and
         (vla-put-TagString eo $new) ;Change to new name
        )
        
        ;; If block reference & target block
        ((and (= (vla-get-ObjectName eo) "AcDbBlockReference")
              (= (strcase (vla-get-EffectiveName eo)) (strcase $blk))
         ) ;_ end of and
         ;; Step through all attributes
         (foreach ao (vlax-safearray->list (vlax-variant-value (vla-GetAttributes eo)))
           ;; Check if target attrib
           (if (= (strcase (vla-get-TagString ao)) (strcase $old))
             (vla-put-TagString ao $new) ;Change to new name
           ) ;_ end of if
         ) ;_ end of foreach
        )
      ) ;_ end of cond
    ) ;_ end of vlax-for
  ) ;_ end of vlax-for
) ;_ end of defun

;;-------------------=={ Blockreplace }==------------------;;

;;------------------------------------------------------------;;

(defun c:mega (/ lst ss i sn en f)

;;--------------------------------------------;;

(setq lst '(("3-Wegearmatur_1" . "3-Wegearmatur")
	("3-Wegearmatur_2" . "3-Wegearmatur")
	("3-Wegearmatur_3" . "3-Wegearmatur")
	("3-Wegearmatur_4" . "3-Wegearmatur")
	("3-Wegearmatur2_1" . "3-Wegearmatur2")
	("3-Wegearmatur2_2" . "3-Wegearmatur2")
	("3-Wegearmatur2_3" . "3-Wegearmatur2")
	("3-Wegearmatur2_4" . "3-Wegearmatur2")
	("9A1_1" . "9A1")

)

)

(if (setq ss (ssget "_X" (list '(0 . "INSERT")

(cons 2 (apply 'strcat (mapcar '(lambda (x) (strcat (car x) ",")) lst))))))

(repeat (setq i (sslength ss))

(setq sn (ssname ss (setq i (1- i)))

en (entget sn))

(if (and (setq f (assoc (cdr (assoc 2 en)) lst))

(tblsearch "BLOCK" (cdr f))

(entmake (append (list '(0 . "INSERT") (cons 2 (cdr f)))

(vl-remove-if-not '(lambda (v) (member (car v) '(6 8 10 41 42 43 50 62))) en)))

)

(entdel sn)

)

)

)

(princ)
(command "_.purge" "_all" "*" "_no"
	"_.ATTsync" "n" "*"
	   )
)

;;-------------------=={ Attribut Namen Neu }==------------------;;

;;------------------------------------------------------------;;

(defun c:geil (/ i f)
  ;; RJP » 2019-05-22
  ;; Renames all attribute tags in blocks to X1,X2 etc... USE AT YOUR OWN RISK!!
  (vlax-for a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (cond ((= 0 (vlax-get a 'islayout) (vlax-get a 'isxref))
	   (setq i 0)
	   (vlax-for b a
	     (and (= "AcDbAttributeDefinition" (vla-get-objectname b))
		  (vlax-write-enabled-p b)
		  (vla-put-tagstring b (setq f (strcat "C" (itoa (setq i (1+ i))))))
	     )
	   )
	  )
    )
  )
  (and f (command "_attsync" "_n" "*"))
  (princ)
)
(vl-load-com)

Re: Blockreplace - keeping Value with same Attribute tags

pbejse — Fri, 24 May 2019 10:03:24 GMT

You mind posting an example drawing. Not sure I completely understand the requirement.

Re: Blockreplace - keeping Value with same Attribute tags

Anonymous — Fri, 24 May 2019 10:52:45 GMT

Sadly i can't...

I'll try it as good as i can.

First we convert drawings from Microstation.

Afterconvertion blocks are names like:

A
A_1
A_2
A_3

Attribe Tags are the same:

Tag----------------------------Value

A_Tag_1790 10

A_Tag_29184 15

A_1

Tag----------------------------Value

A_Tag_458 20

A_Tag_4777 25

etc.

(A_Tag_1790 The "1790" is always randomiced)

Summed up there are probably 50.000 combinations of A_1 , A_2 , A_3 with diffrent block names and diffrent Attribute Tags. This Happens with every Block Converted.

The Thoughts behind this is: Use the "c:mega" so there is only one block to edit then use the "C:geil" to rename the randomised Tags to "C1" and "C2" depending on the order they are listet with "battman".

After that we run a whole lot comands copied from a excel like:

(RenAttrib "A" "C1" "ARMATURENBEZEICHNUNG")

(RenAttrib "A" "C2" "NENNWEITE")

so all the A Blocks with the Tag "C1" will get the Tag "ARMATURENBEZEICHNUNG".

Even tho all C1 Tags in A are "ARMATURENBEZEICHNUNG" the Value changes.

----------------After everything is done------------------------

A (Was A)

Tag-----------------------------------------------Value

ARMATURENBEZEICHNUNG 10

NENNWEITE 15

A (Was A_1)

Tag-----------------------------------------------Value

ARMATURENBEZEICHNUNG 10

NENNWEITE 15

so all the values will set to the block where everything got replaced to.

Thought about a lock system thingy - so anything cant touch the Value until i told it to Unlock alls Values again.

I hope i could be specific enough for a solution tho. English is not my native language 😕

Best regards

Re: Blockreplace - keeping Value with same Attribute tags

pbejse — Fri, 24 May 2019 11:48:07 GMT

I'll see what I can do..

Re: Blockreplace - keeping Value with same Attribute tags

Moshe-A — Fri, 24 May 2019 11:52:04 GMT

@Anonymous hi,

i'm sorry that i have to do that but this is the forth time in only 8 days that you open a new thread all with the same issue? why don't you stick to the first so any one who tries to help you will know what you got up to that point?

>> this is the first <<

>> and this is the second <<

>> and this is the third <<

you changed the topic 4 time, is this to confuse us or you still do not knows what do you want?

i understand that you can not post a dwg cause it's confidential and i think no one here has problem with that, the least you could do is create a dummy drawing with dummy attributes with dummy value and post it here long ago. cause anyone who want to solves this will need to create this dummy database in order to check his solution.

this issue could been solved a week ago (help us to help you ).

moshe

Re: Blockreplace - keeping Value with same Attribute tags

ВeekeeCZ — Fri, 24 May 2019 12:13:44 GMT

I remember that I wrote a routine that solved this issue... basically, it merged all ABC# blocks into one. You might try to search for it. I have no luck at this time.

Ou, found it in a different directory. And HERE the thread which it was written for.

Re: Blockreplace - keeping Value with same Attribute tags

Anonymous — Fri, 24 May 2019 12:22:38 GMT

Yeah i know , dont worry to be rude - im very new to LISP and im sorry if this is gonna prevent helping but im working around a big problem with these .dwg

>> this is the first << couldn't get the attribute change by order working tho so i scrapped that idea instead wanted to change the Tag globally and change it afterwards - here comes post number two:

>> and this is the second <<

Accepted solution and tried to build the C:Renattrib into the LISP to make it dummie proof - couldn't get it working so here comes Post number three

>> and this is the third <<

I still don't get **** (really) this problem made a long way and is now working as intendet (almost) but the Value keeps changing and here we are

I'm sorry for the spam but it feels like it is building up - atleast i think so and im trying to explain it everytime a bit more in detail because i should have to post several .dwg to show someone the problem.

Universal use is the keyword here

You got a point with the sticky tho.

>> this is the first <<

>> and this is the second <<

>> and this is the third <<

its just hard to explain such a complex problem with a LISp that i cant really read and totally cant really write myself.

Best regards

Re: Blockreplace - keeping Value with same Attribute tags

pbejse — Fri, 24 May 2019 12:37:17 GMT

@Moshe-A wrote:

@Anonymous hi,

i'm sorry that i have to do that but this is the forth time in only 8 days that you open a new thread all with the same issue? why don't you stick to the first so any one who tries to help you will know what you got up to that point?

-----------------

@ВeekeeCZ wrote:

I remember that I wrote a routine that solved this issue...

Oops, I wasn't aware of those discussion, been away too long 🙂

Re: Blockreplace - keeping Value with same Attribute tags

Anonymous — Fri, 24 May 2019 12:42:11 GMT

The merge works fine , its not the problem tho (Still pretty impressive)

after merging everything , then renaming attributes all values still changing after renaming Tags.

(defun c:geil (/ i f)
  ;; RJP » 2019-05-22
  ;; Renames all attribute tags in blocks to C1,C2 etc... USE AT YOUR OWN RISK!!
  (vlax-for a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (cond ((= 0 (vlax-get a 'islayout) (vlax-get a 'isxref))
	   (setq i 0)
	   (vlax-for b a
	     (and (= "AcDbAttributeDefinition" (vla-get-objectname b))
		  (vlax-write-enabled-p b)
		  (vla-put-tagstring b (setq f (strcat "C" (itoa (setq i (1+ i))))))
	     )
	   )
	  )
    )
  )
  (and f (command "_attsync" "_n" "*"))
  (princ)
)
(vl-load-com)

is there a way to keep the diffrent values while changing the Tags ?

Re: Blockreplace - keeping Value with same Attribute tags

ВeekeeCZ — Fri, 24 May 2019 13:01:22 GMT

@pbejse wrote:

@Moshe-A wrote:

@Anonymous hi,

i'm sorry that i have to do that but this is the forth time in only 8 days that you open a new thread all with the same issue? why don't you stick to the first so any one who tries to help you will know what you got up to that point?

-----------------

@ВeekeeCZ wrote:

I remember that I wrote a routine that solved this issue...

Oops, I wasn't aware of those discussion, been away too long 🙂

🙂 I'm new here too. My routine was for someone else with MicroStation.

... apparently no luck HERE. Didn't get the issue right. So feel free to try yours,

Re: Blockreplace - keeping Value with same Attribute tags

pbejse — Fri, 24 May 2019 13:19:06 GMT

@ВeekeeCZ wrote:

🙂 I'm new here too. My routine was for someone else with MicroStation.

... apparently no luck HERE. Didn't get the issue right. So feel free to try yours,

What do you mean? it's perfect for the issue ---> "Blockreplace - keeping Value with same Attribute tags"

The whole discussion is too deep to get involved with anyways

Exactly the same feeling as T Maybe. 🙂

Re: Blockreplace - keeping Value with same Attribute tags

ВeekeeCZ — Fri, 24 May 2019 13:33:30 GMT

@pbejse wrote:

@ВeekeeCZ wrote:

... apparently no luck HERE. Didn't get the issue right. So feel free to try yours,

What do you mean? it's perfect for the issue...

That was my thinking too, but that was not the problem...

@Anonymous wrote:

The merge works fine , its not the problem tho (Still pretty impressive)

after merging everything , then renaming attributes all values still changing after renaming Tags.

....

is there a way to keep the diffrent values while changing the Tags ?

As you saying, it's too deep to dive for me too. @Moshe-A - any oxygen left to you?

Re: Blockreplace - keeping Value with same Attribute tags

ВeekeeCZ — Fri, 24 May 2019 13:45:54 GMT

@Anonymous wrote:

Story behind - we use a LISP that blockreplace all block that are counted up like : " A , A_1 , A_2 , A_3 " to only " A " then we change the Attribute tags of the block ( A ) to "C1" and "C2" and at this point every Value becomes the same.

Make a table. BlockName, Tags, Values. All in states before (have) and after (want to have). Make more examples to see the pattern.

Re: Blockreplace - keeping Value with same Attribute tags

Anonymous — Fri, 24 May 2019 13:47:07 GMT

Oh i guess i know what u guys are talking about Titel would better be " Blockreplace - keeping Value without same Attribute tags" (?????)

Please dont make me do another thread..

thought this would clear thigs up

A
Tag----------------------------Value
A_Tag_1790                               10
A_Tag_29184                             15

A_1
Tag----------------------------Value
A_Tag_458                                 20
A_Tag_4777                                25

(...)

//////////////After everything is done////////////////

A (Was A)
Tag-----------------------------------------------Value
ARMATURENBEZEICHNUNG                                     10
NENNWEITE                                        15

A (Was A_1)
Tag-----------------------------------------------Value
ARMATURENBEZEICHNUNG                                     10
NENNWEITE                                        15

Re: Blockreplace - keeping Value with same Attribute tags

Anonymous — Fri, 24 May 2019 14:00:45 GMT

@ВeekeeCZ wrote:
@Anonymous wrote:
Story behind - we use a LISP that blockreplace all block that are counted up like : " A , A_1 , A_2 , A_3 " to only " A " then we change the Attribute tags of the block ( A ) to "C1" and "C2" and at this point every Value becomes the same.
Make a table. BlockName, Tags, Values. All in states before (have) and after (want to have). Make more examples to see the pattern.

i made a table like this , its exactly 702.215 lines in excel i could work tho but it takes forever ...

it contains every "_[Number]" after every block and the Random ending number after every Tag..

Re: Blockreplace - keeping Value with same Attribute tags

ВeekeeCZ — Fri, 24 May 2019 14:10:27 GMT

OK, I see. A question.

Why the value of 1st att of A_1 block changed from 20 to 10. I can see that this is the value of the 1st attribute of the root block... But this can't be caused by some DGN -> DWG conversion... The value of 20 will be lost for good if we do what you're asking for. It makes no sense. Are you sure?

Re: Blockreplace - keeping Value with same Attribute tags

Anonymous — Fri, 24 May 2019 14:15:51 GMT

Oh my god , im kinda hyped right now

The Blocks are Text bubbles (The bubbles are the same block but with diffrent text(Values) in it )

im trying to do a dummy .dwg right now to post for u guys but i dont know if i can recreate the problem propperly :x

The value of 20 will be lost for good if we do what you're asking for. It makes no sense. Are you sure?

I want to keep the value of 20