---

Hi!

Hat jemand von Euch schon mal gehört, wie man einen dyn. Block via Lisp steuern kann ?
Ich hätte ein Beispiel mit einem Block, welcher eine Linie beinhaltet die je nach Wunsch dynamisch geändert werden kann.
Meine Frage ist, kann ich diese Linie programmtechnisch abfragen.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Habs gefunden

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

knr.dwg.txt

Mein Visualkenntnisse steigen zwar allmählich, aber stehe ich hier vor einer neuen Tür.

Code:

---

;; From: "Tony Tanzillo"
;; Newsgroups: autodesk.autocad.customization
;; Sent: Friday, May 13, 2005 6:37 AM
;; Subject: Re: DynamicBlock method

;; Get a single dynamic block property object by name

(defun dyGet (DynBlockRef Name)
  (vl-some
    (function (lambda (property)
        (if (eq (vlax-get-property property 'PropertyName) Name)
            property
            )
          )
        )
   
      (vlax-safearray->list
        (vlax-variant-value
            (vla-getDynamicBlockProperties DynBlockRef)
        )
      )
  )
)

;; Set the vlaue of a single dynamic block property object by name

(defun dySet (DynBlockRef Name NewValue / Property)
  (if (setq property (dyGet DynBlockref Name))
      (progn
        (vlax-put-property property 'Value NewValue)
        (vlax-release-object Property)
      )
  )
)

; zu Testzwecken
;(dyGet (vlax-ename->vla-object (car (entsel))) "Visibility1" )

;(dySet (vlax-ename->vla-object (car (entsel))) "Visibility1" "1 Leader ON")
;(dySet (vlax-ename->vla-object (car (entsel))) "Visibility1" "2 Leader ON")
;(dySet (vlax-ename->vla-object (car (entsel))) "Visibility1" "3 Leader ON")

---

Es gelingt mir bei dem beigefügten Block den Leader umzustellen, was müsste ich tun um auch die Position des Leaders zu steuern, geht das überhaupt ?

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Warum sollte das nicht gehn?

Hab jetzt mal nicht deine Funktion hergenommen, da da ein Fehler auftritt... Denke das liegt daran dass hier(*) etwas fehlt, nähmlich die umwandlung in den passenden Typ

Code:

---

(defun dySet (DynBlockRef Name NewValue / Property)
  (if (setq property (dyGet DynBlockref Name))
      (progn
        (vlax-put-property property 'Value NewValue) ;<---- **hier
        (vlax-release-object Property) ;braucht es das? (unsicher)
      )
  )
)

---

Code:

---

(defun BlockRef:SetDynamicPropValue (block prop value / )
    (setq prop (strcase prop))
    (vl-some
        (function
            (lambda ( _prop )
                (if (eq prop (strcase (vla-get-propertyname _prop)))
                    (progn
                        (vla-put-value _prop
                            (vlax-make-variant value
                                (vlax-variant-type (vla-get-value _prop)) ;hier wird umgewandelt
                            )
                        )
                        value
                    )
                )
            )
        )
        (vlax-invoke block 'GetDynamicBlockProperties)
    )
)

(BlockRef:SetDynamicPropValue (vlax-ename->vla-object (car (entsel))) "Angle1" 10)
(BlockRef:SetDynamicPropValue (vlax-ename->vla-object (car (entsel))) "1 Leader" 5)

---

Der Block will an dieser Stelle Polare Koordinaten (Länge und Winkel), diese musst du dir aber erst berechnen...
nehme an du willst schlussendlich per getpoint irgendwo hinklicken (außerhalb der BlockDef)?

Dazu Einfügepunkt der BlockReference ermitteln, und mit dem gepickten Punkt gegenrechnen und dann polare Koordinaten erzeugen.
Eigentlich musst du dabei du noch den Drehwinkel des Blockes sowie dessen Skalierung berücksichtigen...

Zum Block selber:
Wenn Visibilty "1 Leader ON" ist, dann hat die Polar-Property des Leaders aber die Nummerierung 2... ungünstig... würd ich nochmals neu bauen...

lg

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

---

Hi reltro, ich hatte mich nicht weiter gemeldet, da mir das Thema uninteressant schien (am feedback im forum gemessen).
Deine Auführungen sind absolut korrekt, ich hatte inzw. anderweitig den Input bekommen.
Danke trotzdem, du hast den Thread damit zum Abschluss gebracht.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Zitat:

---

Original erstellt von cadplayer:
Habs gefunden

---

Hab das hier gesehn, wie wahrscheinlich andere auch, und somit war das gegessen...
Bin nur zufällig reingestoplert, und ja...

ist natürlich gut wenn's bereits erledigt ist...

lg

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