; 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“