---

Hallo Spezialisten,

wer kann mir weiterhelfen.
Ich muss von sämtliche Grundrissplänen (export aus Nemetschek)
die Raumstempel wie Raumnr., Raumbez., Fläche usw.
(jeweils einzeiliger Text) in Blockattribute umwandeln.

Meine Frage:
Gibt es in Autocad 2004 eine Möglichkeit dieses Problem schnell und
einfach zu lösen.

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

---

Hai,

das hier könnte vielleicht klappen.
Unter 2002 läuft die lisp

;;TXT2ATTDEF.LSP  TEXT TO ATTRIBUTES           

(defun
  C:TXT2ATTDEF ()
  (setq PCMDECHO (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq TXT1 (entget (car (entsel "\nwähle Text : "))))
  (setq IFTXT (cdr (assoc 0 TXT1)))
  (while (/= IFTXT "TEXT")
    (setq
      TXT1
      (entget
        (car
          (entsel
            (strcat
              "\nSelection Error !! You selected "
              IFTXT
              "! \nPlease Select Text : "
            ) ;_ end of strcat
          ) ;_ end of entsel
        ) ;_ end of car
      ) ;_ end of entget
    ) ;_ end of setq
    (setq IFTXT (cdr (assoc 0 TXT1)))
  ) ;_ end of while
  (setq TXT1VAL (cdr (assoc 1 TXT1)))
  (setq TXT1IP (cdr (assoc 10 TXT1)))
  (setq TXT1HT (cdr (assoc 40 TXT1)))
  (setq TXT1ROT (cdr (assoc 50 TXT1)))
  (setq APRMPT (getstring T "\nAttribute -Eingabewert- : "))
  (entdel (cdar TXT1))
  (setq PAFLAGS (getvar "AFLAGS"))
  (setvar "AFLAGS" 0)
  (command
    "attdef"
    ""
    TXT1VAL
    APRMPT
    TXT1VAL
    TXT1IP
    TXT1HT
    (/ (* TXT1ROT 180) (/ 22.0 7.0))
  ) ;_ end of command
  (setvar "AFLAGS" PAFLAGS)
  (setvar "CMDECHO" PCMDECHO)
  (princ)
) ;defun txt2attdef

;;End Of Routine

------------------

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

---

Hallo Uli,

@AsSchu
dieses Tool wandelt die Texte in Attributdefinitionen um. Das ist aber nur die halbe Miete.

Wenn ich die Frage richtig verstehe, dann sollen die Texte in einen Raumstempel-Block als Attributwert übernommen werden. Heißt also, die Texte müssen erkannt werden und dann über irgendwelche Kriterien bestimmten Attributen eines bestehenden (oder einzufügenden) Blockes zugeordnet werden.
Das ganze dann nach Möglichkeit ohne manuelles Eingreifen, also in einem Durchgang für die gesamte Zeichnung.
Ein AutoCAD-Befehl ist mir dafür nicht bekannt, mit LISP kann ich mir allerdings Lösungen vorstellen.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

---

Ich krame diesen Beitrag jetzt wieder raus.
Gibt es inzwischen eine Möglichkeit, aus Texten Attribute zu zaubern?
Im Tool werden nämlich die Textstile zu Standard geändert; sie sollen aber so bleiben, wie sie schon in der Zeichnung sind.

Axel

[Diese Nachricht wurde von Hirschi am 15. Sep. 2008 editiert.]

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

---

Hallo,

es wird der aktuelle Textstil und Höhe verwandt.
Stelle den mal um, wenn du das Tool benutzt.

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

---

Danke, das klappt.
Geht auch, daß statt der Eingabeaufforderung die Bezeichnung abgefragt wird? Es wird nämlich jetzt mit der ausgewählten Textzeile auch die Bezeichnung übernommen. Und eine Bezeichnung mit Leerzeichen wird beim Doppelklick (Attributsdef. bearb.) angemeckert.

[Diese Nachricht wurde von Hirschi am 15. Sep. 2008 editiert.]

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

---

Moin,

tausche den Text:

(setq APRMPT (getstring T "\nAttribute -ATTRibutwert- : "))
  (entdel (cdar TXT1))
  (setq PAFLAGS (getvar "AFLAGS"))
  (setvar "AFLAGS" 0)
  (command
    "attdef"
    ""
    APRMPT
    TXT1VAL
    TXT1VAL
    TXT1IP
    TXT1HT
    (/ (* TXT1ROT 180) (/ 22.0 7.0))
  ) ;_ end of command
  (setvar "AFLAGS" PAFLAGS)
  (setvar "CMDECHO" PCMDECHO)
  (princ)
) ;defun txtatt

;;End Of

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

---

Das isses!!!
Dankeschön

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