---

Hallo,

wie kriege ich raus, welche Variablen des Bemaßungsstils bei einem konkreten Maß überschrieben sind, und welche Werte sie haben ? Ich habe das Problem, daß ich die Werte DIMBLK1 und DIMBLK2 verschiedener Maße wissen muß, doch manchmal sind es halt nicht die Werte des zugehörigen Stils, sondern vom Benutzer einzeln festgelegte Werte.

------------------
Martin Poggensee
www.poggensee.net

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

---

(vlax-dump-object(vlax-ename->vla-object(car(entsel "\nBemaßung wählen:"))))

sollte dir die richtige Richtung weisen ... geht mit ActivX am besten. Guck die mal in der VLIDE-HILFE die VBA-und ActivX-Reference an, am besten das Objectmodell.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Tut mir leid, aber ActiveX geht nicht. Der Code muß nämlich auch unter BricsCad laufen, und das funktioniert nur bei "reinem" LISP.

------------------
Martin Poggensee
www.poggensee.net

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

---

nun ja .. mit
(setq a(tblobjname "BLOCK"(cdr(Assoc 2(entget(Car(entsel)))))))
ermittelst du den Block der Bemaßung
mit
(setq a(entnext a))
kannst du dich duch die Blockelemente hangeln .. die beiden gefundenen Inserts sind dann die Pfeilblöcke.

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Tut mir leid, aber so funtioniert das nicht ! Der Benutzer muß zum einen keine Pfeile verwenden, so daß ich den Blocknamen vorher gar nbicht kenne, und außerdem können die Symbole (deshalb gibt es DIMBLK1 und 2) unterschiedlich sein. Im übrigen sind z.B. die gefüllten Pfeile gar keine INSERTs, sondern nur SOLIDs.

------------------
Martin Poggensee
www.poggensee.net

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

---

na dann werte die Xdatas aus.. damit gehts auch.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Martin,

also ganz verstanden hab ich dein Problem nicht, aber gehts vielleicht um eine Art von Bemassungsüberschreibung einer bestimmten Variable(hier Dimblk Deiner Bemassungen z.B folgendes auf einen Button legen, ist dann auch für den Benutzer noch zu verstehen.

^C^C(command "_.DIMOVERRIDE" "Dimblk" "P-GR1" "" "Standard" "")

Gruß, Jürgen

------------------
Jobsuche

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

---

Mein Problem ist folgendes:

Ich hole mir uber (entget(car(entsel)) eine Liste von einem DIMENSION-Objekt. Wie kriege ich aus dieser Liste heraus, welche Variablen überschrieben wurden ? Über Gruppencode 3 kriege ich zwar den Bemaßungsstil heraus, aber ich will ja nicht die Default-Werte, dondern die vom Benutzer überschriebenen.

------------------
Martin Poggensee
www.poggensee.net

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

---

Hallo Martin,
schaust Du in die Hilfe von Lisp - DFX-Referenz - Entities - Dimension - Überschreibung von Bemaßungsstilen:
 

Zitat:

---

Überschreibungen von Bemaßungsstilen
 

Überschreibungen von Bemaßungsstilen können auf Bemaßungs-, Führungs- und Toleranzelemente angewendet werden. Die Überschreibungen werden in den einzelnen Elementen als XDaten gespeichert. Die Steuerzeichenketten der 1002-Gruppe enthalten die überschriebenen Bemaßungsvariablen-Gruppencodes und die zugehörigen Werte. Im folgenden Beispiel werden die XDaten eines Bemaßungselements aufgeführt, bei dem die Variablen DIMTOL und DIMCLRE überschrieben wurden.

(setq diment (car (entsel))) ; Bemaßungselement auswählen
(setq elst (entget diment '("ACAD"))) ; Elementdefinitionsliste abrufen
(assoc -3 elst) ; Nur XDaten extrahieren 
Dieser Code gibt Folgendes zurück:

(-3 ("ACAD" Beginn des ACAD-APPID-Abschnitts von XDaten
  (1000 . "DSTYLE") (1002 . "\{") Anfang des DIMSTYLE-Unterabschnitts
  (1070 . 177) (1070 . 3) DIMCLRE (Code 177) Überschreibung + Wert (3)
  (1070 . 71) (1070 . 1) DIMTOL (Code 71) Überschreibung + Wert (1)
  (1002 . "\}") )) Ende des Unterabschnitts DIMSTYLE und des Abschnitts ACAD

---

vielleicht so? (das war das was Thomas (CADmium) mit " na dann werte die Xdatas aus.. damit gehts auch." meinte.)

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 29. Jun. 2007 editiert.]

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

---

das sieht doch sehr gut aus. Ich werde es ausprobieren. DANKE !

------------------
Martin Poggensee
www.poggensee.net

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