handling duplicate attributes in block

[Patrick.De.Neef]

Hello all

I "inherited a large number of autocad drawings where the title blocks have a lot of duplicate attributes (see block_attributes.png in zip file)

I thought I could get around the problem (replacing/renaming the duplicates) by using also the prompt which (for some reason) is unique but trying to extract also the tag name and the value results in returning the same twice for the duplicates or giving double output

I based all my attempts on two lsp files I found (one from Lee Mac and another from Kevin, thank you both)

I included the original lsp's and the output in the zip file

Hope someone here can help me out

Thanks & Regards

Patrick

[marko_ribar]

See if this post can help you...

http://www.theswamp.org/index.php?topic=55172.msg594767#msg594767 

[ВeekeeCZ]

Not sure what your goal is, but this lists all atts/attd 

def-prompt def-tag ref-tag ref-value

(defun c:ListAtts (/ er ed d rl dl )

  (if (and (setq er (car (entsel "Select a block: ")))
	   (setq ed (tblobjname "BLOCK" (cdr (assoc 2 (entget er))))))
    (progn
      (while (setq ed (entnext ed))
	(if (= "ATTDEF" (cdr (assoc 0 (setq d (entget ed)))))
	  (setq dl (cons (list (cdr (assoc 3 d)) (cdr (assoc 2 d))) dl))))
      (while (and (setq er (entnext er))
		  (= "ATTRIB" (cdr (assoc 0 (setq d (entget er))))))
	(setq rl (cons (list (cdr (assoc 2 d)) (cdr (assoc 1 d))) rl)))))
  (foreach l (reverse (mapcar 'append dl rl))
    (princ "\n") (print l))
  (princ)
  )

[pbejse · Accepted solution]

Replace this from GetAttributeTagPromptValue function [ at test_leemac.lsp ]

(mapcar
    (function
      (lambda ( attrib )
        (append (assoc (vla-get-TagString attrib) lst) (list (vla-get-TextString attrib)))
      )
    )
    (vlax-invoke block 'GetAttributes)
  )

With this

(mapcar
    (function
      (lambda ( attrib values)
       (list (cAR attrib)(cadr attrib)(Vla-get-textstring values))
      )
    )
    (reverse lst)(vlax-invoke block 'GetAttributes))

HTH

[Patrick.De.Neef]

Hello pbejse

Thank You Very Much !!!

Awsome, this is exactly what I need, you saved me hours of work

Best Regards

Patrick