---

PLT_Symbole.dwg PLT_Block_Eigenschaften.jpg

Hallo!

Ich möchte Euch um Hilfe bitten, um aus Blöcken paar Infos lesen zu können.

Es geht um Eplan-Symbole, die Blöcke sind. Aus denen möchte ich die Angaben über Position, Drehung, 2 Attributentexte und 2 Benutzerdefinierte Werte für WIDTH und MODE auslesen.

Bis zu den letzteren 2, die Benutzerdefinierten Werte kann ich alle auslesen. Ich brauche diese Angaben, diese Blöcke mit anderen ersetzen zu können.

(ich habe versucht aus den alten Themen eine Lösung zu finden, aber bis jetzt ohne Ergebnis)

WIDTH steuert die Breite des Ovals, Mode steuert das Aussehen.
Ich habe eine DWG und eine JPG mit dem entsprechenden Inhalt hochgeladen.

Könntet ihr mir sagen, wie ich die WIDTH und MODE auslesen kann?

Danke im Voraus,
Manfred

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

---

WIDTH und MODE sind dynamische Blockeigenschaften, die man auch völlig ohne Lisp einfach mit Befehl: DATENEXTRAKT in eine Tabelle auslesen kann.
Wenn es um die Programmierung von dyn. Attributen geht, kann
mann  hier alles Notwendige nachlesen:
http://www.lee-mac.com/dynamicblockfunctions.html

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

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 29. Nov. 2014 editiert.]

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

---

Danke Udo für Deinen Vorschlag, diese Funktionen von Lee Mac habe bereits ausprobiert, aber ich komme mit dennen leider auch nicht weiter. Die rufen anscheinend weitere Funktionen auf, die mir nicht definiert bzw. bekannt sind.

Könnte mir jemand mit konkreten Programm-Zeilen weiter helfen?

Wie beschrieben konnte ich die beiden Attribute bereits lesen und in Variablen schreiben mit:

(defun c:blk (/ dxf ent)
 
  (defun dxf (code ent) (cdr (assoc code (entget ent))))
 
  (if (and (setq ent (car (entsel "\nSelect an Attributed Block: ")))
          (eq "INSERT" (dxf 0 ent))
          (= 1 (dxf 66 ent))
      )

    (while (not (eq "SEQEND" (dxf 0 (setq ent (entnext ent)))))

        (if (= "TEXT1"(dxf 2 ent)) (setq attr1 (dxf 1 ent)) )
(if (= "TEXT2"(dxf 2 ent)) (setq attr2 (dxf 1 ent)) )
    ))

(princ "\nattribut1: ") (princ attr1) (princ "\nattribut2: ") (princ attr2) (princ)
 
)

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

---

Hallo,
vielleicht hilft dir das weiter.

Code:

---

(setq AWS (car(entsel)))
(setq WIDTH(getpropertyvalue AWS "AcDbDynBlockPropertyWIDTH" ))
(setq MODE(getpropertyvalue AWS "AcDbDynBlockPropertyMODE" ))

---

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1

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

---

Danke Wolfgang, ich komme damit weiter, war eine große Hilfe!
Schönen Sonntag!

manfred

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