; Fehler: ActiveX-Server gab folgenden Fehler zurück: unbekannter Name: update (defun link_update_tool3 (ent keyval / acadObj acadDoc lstlT linkSel f na ObjIDs vlaobj str objID my_link key_values keyvalue key_name ) ;; Make GetLinks() return all linktypes. (setq linkTypes (+ caok-kEntityLinkType caok-kFSLabelType caok-kAttachedLabelType)) ;;toget object id's (setq vlaobj (vlax-ename->vla-object ent)) (setq objID (vlax-get-property vlaobj "ObjectID")) (setq ObjIDs (vlax-make-safearray vlax-vbLong (cons 0 1))) (vlax-safearray-put-element ObjIDs 0 objID) (setq str(getvar "DWGNAME")) (setq str(STRCASE (SUBSTR str 1 (- (STRLEN str) 4)))) ;; Could use vlax-invoke-method, but you cannot use error-handling. (setq linkSel (vlax-invoke-method dbConnect "GetLinks" linktemplate ObjIDs linkTypes)) >>>>>> (vlax-for link linksel (setq f(vlax-get-property Link 'LinkTemplate)) (setq na(strcase(vlax-get-property f 'Name))) (if (= na str) (progn (setq my_link link) )) ) (setq key_values(vlax-get-property my_link 'keyvalues)) (setq keyvalue(vlax-invoke-method key_values "Item" 0)) (setq key_name(vlax-get-property keyvalue 'FieldName)) (if (= key_name "AREA_ID")(progn (vlax-put-property keyvalue 'value (atoi keyval)) )) (vlax-invoke-method my_link "update") Variablen geben bei >>>>>>> folgende Werte: Hier: link = VLA Object link ...nr linksel = VLA Object link ...nr na = DWG-Dateiname IF-Ergebnis = “T” Bei Wechsel in die key_value-Zeile ändert sich im Übersichtsfenster: Link = NIL Key_name = „Area_ID“ Atoi keyval = 1 IF-Ergebnis = NIL Dann Abbruch bei „update“