Hallo an Alle
Habe ein dynamischer Block der ich einfüge und nachträglich ein Parameter ändere.
In der Befehlszeile erhallte ich immer:
Fehler: no function definition: VLAX-ENAME->VLA-OBJECT.
VON FORUM:
(DEFUN H001-10()
(SETQ object (entlast))
(setProperty (vlax-ename->vla-object object) "Länge:" (distof h001l1))
(setProperty (vlax-ename->vla-object object) "Tiefe:" (distof h001b1))
(setProperty (vlax-ename->vla-object object) "Wa.Abst.:" (distof h001a1))
(setProperty (vlax-ename->vla-object object) "Anschluss:" "Links/Rechts")
(command "regen")
)
(defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty)
(foreach vlaProperty (vlax-safearray->list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock)))
(if (= (vla-get-PropertyName vlaProperty) sPropertyName)
(vla-put-value vlaProperty (vlax-make-variant rValue))
)
)
)
Muss ich noch etwas ergänzen?
Gruss Nano
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP