---

Ich möchte Werte aus Dynamischen Blöcken auslesen z.B. welcher Sichtbarkeitsstatus oder welches Strecken Maß.

Hat jemand eine Idee wie das funktioniert oder schon eine Funktion gefunden die das macht. Die Funktion beim einfügen den Block anzusteuern habe ich im Forum gefunden. SUPI

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

---

Hier mal ein Codeschnipsel

Code:

---

(setq blkProps (vlax-safearray->list (vlax-variant-value (vla-GetDynamicBlockProperties blkObj))))
(foreach blkProp blkProps
  (cond
  ((and (not GradeInAngle)(= (vla-Get-PropertyName blkProp) "Display"))
    (vla-Put-Value blkProp "GradeOut only")

---

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Danke Udo,

das ist ja schon mal ein Anfang. Hast Du noch einen Tipp für mich wie die Variable blkObj zu befüllen ist. Mit (entlast) bin ich gescheitert.

Gruß Bernd Hock

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

---

(vlax-ename->vla-object (entlast))

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Code:

---

(defun c:tdb ()
        (setq obj (vlax-ename->vla-object (car (entsel))))
        (setq v (vla-getdynamicblockproperties obj))
        (setq vval (vlax-variant-value v))
        (setq sal (vlax-safearray->list vval))
        (setq salnth (length sal))
        (setq count 0)
        (while (/= count salnth)
                (vlax-dump-object (nth count sal))
                (setq count (+ count 1))
        )
        (setq count nil)
        (princ)
)

---

Mit freundlichem Gruß

HofCAD CSI

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

---

Hallo HofCAD,

funktioniert genial...

Units sind auf jeden Fall unterwegs.

Wenn Du jetzt noch eine Funktion hast wie ich auf  PropertyName (RO) = "B" ;  Value = 1000.0 komme?

Genial wäre als Asso - Liste: (("B" . 1000) ("Umkehrstatus" . 0))

Das Ergenis Deiner Funktion sieht bei mir so aus:

Objekt wählen: ; IAcadDynamicBlockReferenceProperty: AutoCAD dynamische
Blockeigenschaften-Schnittstelle
; Eigenschaftswerte:
;  AllowedValues (RO) = ("T10" "T20" "T43" "T42" "T35")
;  Description (RO) = ""
;  PropertyName (RO) = "Sichtbarkeit"
;  ReadOnly (RO) = 0
;  Show (RO) = -1
;  UnitsType (RO) = 0
;  Value = "T10"
; IAcadDynamicBlockReferenceProperty: AutoCAD dynamische
Blockeigenschaften-Schnittstelle
; Eigenschaftswerte:
;  AllowedValues (RO) = (0 1)
;  Description (RO) = ""
;  PropertyName (RO) = "Umkehrstatus"
;  ReadOnly (RO) = 0
;  Show (RO) = -1
;  UnitsType (RO) = 0
;  Value = 0
; IAcadDynamicBlockReferenceProperty: AutoCAD dynamische
Blockeigenschaften-Schnittstelle
; Eigenschaftswerte:
;  AllowedValues (RO) = nil
;  Description (RO) = "B"
;  PropertyName (RO) = "B"
;  ReadOnly (RO) = 0
;  Show (RO) = -1
;  UnitsType (RO) = 2
;  Value = 1000.0
; IAcadDynamicBlockReferenceProperty: AutoCAD dynamische
Blockeigenschaften-Schnittstelle
; Eigenschaftswerte:
;  AllowedValues (RO) = nil
;  Description (RO) = ""
;  PropertyName (RO) = "Origin"
;  ReadOnly (RO) = -1
;  Show (RO) = 0
;  UnitsType (RO) = 0
;  Value = (0.0 0.0 0.0)

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

---

Hallo,

falls es jemand braucht hier die Funktion mit Ergebnis einer Asso - Liste:

(defun t:tdb (wert / obj v vval sal salnth count erg)

 
        (setq obj (vlax-ename->vla-object (car (entsel))))
        (setq v (vla-getdynamicblockproperties obj))
        (setq vval (vlax-variant-value v))
        (setq sal (vlax-safearray->list vval))
        (setq salnth (length sal))
        (setq count 0)
  (setq erg nil)
        (while (/= count salnth)
            (setq erg (append erg (list (cons (vlax-get-property (nth count sal) 'PropertyName)
    (vlax-variant-value (vlax-get-property (nth count sal) 'Value))))))
            (setq count (+ count 1))
        )
     
erg
)

Gruß
Bernd

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

---

Achtung Fehlerteufel!!!

es heißt natürlich (defun c:tdb ...

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

---

Hallo HofCAD,
bei mir geht das nicht.

Das geht:
(setq obj (vlax-ename->vla-object (car (entsel))))
(setq v (vla-getdynamicblockproperties obj))
(setq vval (vlax-variant-value v))

Aber wenn ich da bin:
(setq sal (vlax-safearray->list vval))

Meldet ACAD das:
; Fehler: ActiveX-Server hat einen Fehler zurückgegeben: Ungültiger Index

Was fang ich damit an ?
(Ich bin nicht so gut in VLISP, das mit variant und savearray und so hab ich noch nicht so gerafft)

Danke
Andreas

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

---

Hallo HofCAD,
ich wärm das hier noch mal auf:

Bei mir geht das nicht.
Das geht:
(setq obj (vlax-ename->vla-object (car (entsel))))
(setq v (vla-getdynamicblockproperties obj))
(setq vval (vlax-variant-value v))

Aber wenn ich da bin:
(setq sal (vlax-safearray->list vval))

Meldet ACAD das:
; Fehler: ActiveX-Server hat einen Fehler zurückgegeben: Ungültiger Index

Was fang ich damit an ?
(Ich bin nicht so gut in VLISP, das mit variant und savearray und so hab ich noch nicht so gerafft)

Danke
Andreas

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

---

Hallo Andreas,

Warscheinlich, habe Sie keine Dynamischen Blöcken.

Mit freundlichem Gruß

HofCAD CSI
http://forum.cad.de/foren/ubb/uploads/okhar/Handbuch.zip http://www.tutorial.autolisp.info/ http://www.autolisp-tutorial.mapcar.net/ http://www.autolisp.mapcar.net/ http://www.visuallisp-tutorial.mapcar.net/ http://www.afralisp.net/

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