---

Wer hat schon mal dynamische Blöcke mit Autolisp eingefügt?
Soll heißen die Parameterwerte mit Lisp beim Einfügen ermitteln und einsetzen.

Wer weiss wo die Parameter versteckt sind?

------------------
Gruß aus Wien
Bernhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernhard,

Nachfolgend ein kleines Beispiel, wie ein Parameter per LISP geändert werden kann. Ich habe einen Linearen Parameter namens "Laenge" verwendet.

(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))
    ); end if
  ); end foreach
); end defun

Bsp. für Aufruf:
(setProperty (vlax-ename->vla-object (car (entsel))) "Laenge" 200.0)

Gruß, Jan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Genial!

Daraus lässt sich wunderbar eine perfekte Lösung bauen.

Anwendungstest: Dynamischer Block "DBLOCK" mit Parametern Laenge und Breite

Code:

---

(DEFUN C:dblock()
(command "_Insert" "DBlock" (setq pt (getpoint "Einfügepunkt: ")) "" "" "")
  (SETQ object (entlast))
  (SETQ laenge (GETDIST "Wert für Länge: "))
  (SETQ breite (GETDIST "Wert für Breite: "))
  (setProperty (vlax-ename->vla-object object) "Laenge" laenge)
  (setProperty (vlax-ename->vla-object object) "Breite" breite)
  )

---

Unities sind unterwegs  !

------------------
Gruß aus Wien
Bernhard 

[Diese Nachricht wurde von Bernhard GSD am 11. Aug. 2005 editiert.]

[Diese Nachricht wurde von Bernhard GSD am 06. Sep. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dank dieses Beitrages konnte ich die Sichtbarkeit via Lsp von meinen Dynamischen Blöcken verändern.
10 Units @Jan1
Was ich aber nicht geschafft habe, ist das Auslesen der Sichtbarkeit eines Blockes.
Sprich wie kann ich die Sichtbarkeit eines ausgewählten Blockes in Lsp herausbekommen (String der Sichtbarkeitsbezeichnung)?

Wie müsste eine Funktion GetProperty aussehen?
------------------
mfg
FeR
"gefundene Rechtschreibfehler dürfen behalten werden."

[Diese Nachricht wurde von FeR am 16. Mai. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP