---

ParameterProps.jpg

Hallo,
ich habe einen dynamischen Block und möchte feststellen, ob ein Drehungsparameter vorhanden ist, damit ich den Wert auf den Winkel der eigentlichen Blockreferenz draufaddieren kann.

mit der Methode getdynamicblockproperties erhalte ich folgende Werte:
; Eigenschaftswerte:
;  AllowedValues (RO) = nil
;  Description (RO) = ""
;  PropertyName (RO) = "Winkel1"
;  ReadOnly (RO) = 0
;  show (RO) = -1
;  UnitsType (RO) = 1
;  Value = 1.95188

Den Parametertyp "Drehung" bekommme ich so aber nicht, geht das gar nicht oder sehe ich den Wald vor lauter Bäumen nicht??

Bin wie immer dankbar für jeden Tipp.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Der Multifilter (V 1.1)

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

---

Frohes Neues,

dynamische Parameter eines dynBlocks (hier eingeschränkt auf Drehungsparameter):

Code:

---

(defun test (blk / prms)
    (if (and
            (= :vlax-true (vla-get-isdynamicblock blk))
            (= :vlax-true (vla-get-hasextensiondictionary blk))
            (setq prms
                (mapcar
                  '(lambda (pair)
                        (if (and
                                (= 360 (car pair))
(= (strcase "BLOCKROTATIONPARAMETER") (cdr (assoc 0 (entget (cdr pair)))))
                            )
                            (cdr pair)
                        )
                    )
                    (dictsearch
                        (vlax-vla-object->ename (vla-getextensiondictionary blk))
                        "ACAD_ENHANCEDBLOCK"
                    )
                )
            )
        )
      (vl-remove 'nil prms)
    )
)

---

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

---

DynBlockParametertyp.dwg

Hallo Sebastian,
ich habe es mal ausprobiert, allerdings kommt bei
(dictsearch(vlax-vla-object->ename (vla-getextensiondictionary blk))
                  "ACAD_ENHANCEDBLOCK"
                    )
nur NIL zurück, die MAPCAR-Schleife wird dann nicht durchlaufen.
Als blk habe ich das VLA-Objekt einer Blockreferenz eines dynamischen Blockes übergeben. Die Bespielzeichnung mit 2 Blockreferenzen habe ich angehängt.

Ist das bei Dir auch so?

Code:

---

(defun c:test:Parametertyp:Rotate ( / obj)
  (if (setq obj (car(entsel)))
    (test:ParametertypRotate-p (vlax-ename->vla-object obj))
    )
  )

(defun test:ParametertypRotate-p (blk / prms)
    (if (and
            (= :vlax-true (vla-get-isdynamicblock blk))
            (= :vlax-true (vla-get-hasextensiondictionary blk))
            (setq prms
                (mapcar
                  '(lambda (pair)
                        (if (and
                                (= 360 (car pair))
(= (strcase "BLOCKROTATIONPARAMETER") (cdr (assoc 0 (entget (cdr pair)))))
                            )
                            (cdr pair)
                        )
                    )
                    (dictsearch
                        (vlax-vla-object->ename (vla-getextensiondictionary blk))
                        "ACAD_ENHANCEDBLOCK"
                    )
                )
            )
        )
      (vl-remove 'nil prms)
    )
)

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Der Multifilter (V 1.1)

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

---

>" habe einen dynamischen Block und möchte feststellen, ob ein Drehungsparameter vorhanden ist, "
blk ist der Block, nicht die Blockreferenz!

Beim allgemeingültigen programmieren müßte man ja zunächst herausfinden wie der (oder die) Dreh-Parameter heißen!

Für die Blockreferenz, in welcher du dann den Wert auch änderst, kommt man dann so weiter

Code:

---

Extra mal allgemein:
(defun getalldynprops (blk / pli)
    (mapcar '(lambda ( x )
  (if (/= "Origin" (vla-get-propertyname x)) ; <- ! Achtung / Fehlerquelle falls ein Parameter "Origin" genannt wurde
      (setq pli (cons (strcat (vla-get-propertyname x) " - " (vl-princ-to-string(vlax-get x 'value))) pli))
  )
      )
        (vlax-invoke blk 'getdynamicblockproperties)
    )
  (foreach s pli (print s))
  (princ)
)

(getalldynprops (setq blk (vlax-ename->vla-object(car(entsel)))))

---

oder wenn du den Parameternamen ohnehin schon kennst:
(getpropertyvalue (car(entsel)) "AcDbDynBlockPropertyWinkel1")

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

---

Hallo Sebastian,
danke für Deine Ausdauer, ich habe jetzt die Blockdefinition verwendet und schon klappt es. Ich habe mir erstmal eine Liste mit Parametertyp und Parametername ausgegeben, damit komme ich in jedem Fall weiter.

Code:

---

(defun c:test:DynPara ( / obj)
  (if (setq obj (car(entsel "\nDynBlockRef picken:")))
    (test:DynPara:List
      (vla-item(vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
        (vla-get-Effectivename (vlax-ename->vla-object obj)))
      )
    )
  )

(defun test:DynPara:List (vla-BlockDef / PARALIST X)
  (if (and
        (= :vlax-true (vla-get-isdynamicblock vla-BlockDef))
        (= :vlax-true (vla-get-hasextensiondictionary vla-BlockDef))
        (setq ParaList(mapcar '(lambda(X)
                                (list (cdr(assoc 0 (entget(cdr X))))
                                      (cdr(assoc 305 (entget(cdr X)))))
                                )
                        (vl-remove-if (function(lambda(X)(or(/=(car X)360)
                                                            (not(wcmatch
                                                                  (cdr(assoc 0(entget(cdr X))))
                                                                  "*PARAMETER")))))
                          (dictsearch
                            (vlax-vla-object->ename (vla-getextensiondictionary vla-BlockDef))
                            "ACAD_ENHANCEDBLOCK"
                            )
                          )
                        )
              )
        )
    ParaList)
  )

---

Rückgabeliste:
(("BLOCKROTATIONPARAMETER" "Winkel1")
  ("BLOCKFLIPPARAMETER" "Umkehrstatus1")
  ("BLOCKFLIPPARAMETER" "Umkehrstatus2")
  ("BLOCKLINEARPARAMETER" "Abstand1")
  ("BLOCKLINEARPARAMETER" "Abstand2")
  ("BLOCKLINEARPARAMETER" "Abstand3"))

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Der Multifilter (V 1.1)

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