---

Hallo zusammen,

wie kann man bei der Ausgabe eines wblock's den Dateinamen aus Attributen zusammensetzen.
Soll die neue Datei den Dateinamen der jetzigen Zeichnung erhalten gehe ich folgendermaßen vor:
(strcat "c:/temp/" (substr (getvar "DWGNAME") 1 (- (strlen (getvar "DWGNAME")) 4)) ".dwg")

Wie kann man vorhandene Attribute als Dateiname verwenden?
Und wie kann man "dwgname" mit dem Wert des Attributs "A" kombinieren?
Z.B. dwgname ergibt XX und Attribut A ergibt Z - Ergebnis XX-Z

Vielen Dank!

Grüße
HansGeorg

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

---

also erstmal ist die Vorgehenswiese, wie du es bisher machst 'von hinten durch die Brust ins Auge'!
so ist das etwas einfacher: (strcat "c:/temp/" (getvar "DWGNAME"))

zu 2.
Das wäre etwas einfacher, wenn du das näher beschreinem könntest.
willst du den Attributwert, oder den Attributnamen als Namensbestandteil?
Hängt das Attribut an einem Block, der immer gleich ist, oder meinst du eine Attributdefinition, die in der Zeichnung vorhanden ist?

Prinzipiell funzt das auch mit strcat.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo,

und wieder was dazugelernt - Danke!

Der Attributwert soll Namesbestandteil werden.
Das Attribut hängt an einem Block.
Der Block ändert den Namen.
Der Attributname ist immer gleich, nur der Wert ändert sich.

Hoffentlich verständlich erklärt.

Viele Grüße
HansGeorg

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

---

soo, weiterlernen..
das Attribut hängt ganz sicher NICHT an einem Block
höchstens an einer Blockreferenz.

hier mal eine Möglichkeit um an deinen Attributwert zu kommen:
Das Ergebniss steht in der Variablen erg.

  (setq EARX_BTAA (tblnext "BLOCK" T)
        elist    nil
        ) ;_ end of setq
  (while
    (/= EARX_BTAA nil)
    (setq elem (cdr (assoc -2 EARX_BTAA)))
    (while (/= elem NIL)
      (setq tt (entget elem))
      (cond
        ((and (= (cdr (assoc 0 tt)) "ATTDEF")
              (= (cdr (assoc 2 tt)) "QM")
              ) ;_ end of and
          (progn
            (if(and
              (setq elist
                    (ssget "_X" (list (cons 0 "INSERT")(assoc 2 EARX_BTAA))))
              (= (sslength elist) 1)
              )
              (progn
              (setq hm (ssname elist 0))
              (While
               
                (/=(cdr(assoc 0(entget hm)))"SEQEND")
                (if(and
                    (=(cdr(assoc 0(entget hm)))"ATTRIB")
                  (=(cdr(assoc 2 (entget hm)))"QM")
                    )
                  (setq erg (cdr(assoc 1 (entget hm))))
                  )
                        (setq hm (entnext hm))
                  )
              )
              )
            ) ;_ end of progn
          ) ;_ end of if
        ) ;_ end of cond
      (setq elem (entnext elem))
      ) ;_ end of while
    (setq EARX_BTAA (tblnext "BLOCK"))
    erg
    ) ;_ end of while

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo CADwiesel,

danke für Deine Mühe.
Ich dachte, daß man sowas mit einem Makro hinter einem Icon lösen kann.

Vielen Dank.

Grüße
HansGeorg

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