topic Betreff: Lisp gives duplicated key error while no duplicates are present in Visual LISP, AutoLISP and General Customization Forum

Lisp gives duplicated key error while no duplicates are present

DGRL — Mon, 29 Jan 2018 11:21:27 GMT

Dear forum members

Thanks to @_gile for the time and afford helping me

I added 1 line to add custom props as well but the routine keeps giving back a automation error

; error: Automation Error. Duplicate key

The list that is use looks like this is only way longer
(("ISO_PIPESPEC" "n.v.t.1" "A" "b") ("ISO_MEDIUM" "n.v.t.2" "A" "b") ("ISO_DESIGN_PRESS" "n.v.t.3" "A" "b"))

The variable that holds the list is vier

This is the script I use.
Below script I have more info

(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq dwgprop (vla-get-summaryinfo(vla-get-activedocument(Vlax-get-acad-object))))

(vla-endundomark doc)
(vla-startundomark doc)
;; iterate the block table
(vlax-for blk (vla-get-blocks doc)
    (if (= :vlax-false (vla-get-isxref blk))
      (progn
        (vlax-for obj blk
          (if (and (= "AcDbAttributeDefinition" (vla-get-objectname obj))
                   (setq new (assoc (vla-get-tagstring obj) vier))
              )
            (progn
              ;; rename the tag and prompt of the ATTDEF
              ;(vla-put-tagstring obj (cadr new)) ;(princ new)
              ;(vla-put-textstring obj (cadddr new)) ;(princ new)
              ;(vla-put-promptstring obj (caddr new)) ;(princ new)
             ;(vla-addcustominfo obj (cadr new)(cadddr new))
     (vla-addcustominfo dwgprop (cadr new)(cadddr new))
            ;(vla-addcustominfo(vla-get-summaryinfo(vla-get-activedocument(Vlax-get-acad-object)))(cadr new)(cadddr new))
              (setq name (vla-get-Name blk))
            )
          )
        )
        ;; ATTSYNC the inserted references
        (if (= name (vla-get-Name blk))
          (command "_.ATTSYNC" "_Name" name)
        )
      )
    )
);end vlax-for blk
(vla-endundomark doc)
(princ)

The TAG / TEXT and PROMPSTRING are working fine

The addcustominfo gives back the error

What am I doing wrong here?

Betreff: Lisp gives duplicated key error while no duplicates are present

cadffm — Mon, 29 Jan 2018 11:52:57 GMT

vla-addcustominfo CREATE a new custominfo

If you create "ABC" and you try to create a new custominfo with the same name you get an error,

because customInfo Tag have to unique.

What you have to do is:

1. Check if your customInfo still exist,

2. if not existing create a new custominfo -> vla-addcustominfo

3. if your wanted custimInfo allready exist, change only the value of this custominfo -> vla-setCustomByKey

https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-ActiveX/files/GUID-AE25EAE8-012B-4E16-BE71-13BC07313E07-htm.html

Betreff: Lisp gives duplicated key error while no duplicates are present

DGRL — Mon, 29 Jan 2018 12:03:13 GMT

HI @cadffm

Thanks for the info will read it

I just added this after the end of vlax-for blk and before (vla-endundomark doc) and works perfect

(foreach att vier (vla-addcustominfo dwgprop (cadr att)(caddr att)))