---

Ich bin auf der Suche nach einer LISP-Routine die Text in Attribute umwandelt.
Hat jemand von Euch diese vielleicht parat?

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

---

Vielleicht bissl meht DetailŽs???

Version ACAD?
Mtext?
Immer der gleiche Text? (z.B. Raumbezeichnungen)

Mit einem genrellem Tool für alle Fälle wid es wohl schwierig werden da der Text je irgendwie selektiert werden muß vom Prog, also z.B. Text auf Layer x innerhalb des Poylygones y wird Attribut (block) mit Namen z auf Layer x

Schon mit dem Blockattribut-Manager gearbeitet ev. reicht das ja auch?

------------------
mfG
Stefan

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

---

Vielen Dank für das Interesse,
Ich möchte einzelligen Text durch anklicken  in Attribute umwandeln.
In ACAD 12 hatten wir einmal solch ein Tool .
Jetzt arbeite ich in 2002

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

---

Servus

Das geht mit den Express-Tools - download bei www.cadwiesel.de

Gruß, Ernst

------------------
ACAD 2000

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

---

Hy Ernst,

welches Tool meinst du dort ???

MFG cw

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

---

Oh Sorry

Da hab ich wohl zu oberflächlich gelesen. Ich war wohl zu sehr auf "Attribut zu Text" fixiert.

Gruß, Ernst

------------------
ACAD 2000

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

---

Hier der alte TEXT aus der Anwendung
Ich bin nur ein kleiner Konstrukteur, der sich alles von AUTO-CAD selbst beigebracht hat und kann daher das nicht auf 2002 umschreiben.
Kann das einer von euch
wäre richtig toll.
(defun c:text2att( / as name anz no)
  (seterr)
  (setq as (ssget))
  (setq anz (sslength as) no 0)
  (repeat anz
    (setq name (ssname as no) no (1+ no))
    (t2a name)
  )
  (arsoerr nil)
)

(defun t2a (name / liste text nliste)
  (setq liste (entget name)
        liste (cdr liste))
  (if (= (kenn liste 0) "TEXT")
    (progn
    (setq text (strcase (kenn liste 1)))
    (if (f os text " ")
        (setq text (substr text 1 (1-  (f os text " ")))))
    (if (= text "")(setq text "FELD"))
    (setq liste (subst (cons 0 "ATTDEF") (assoc 0 liste) liste)
          liste (append liste (list (cons 2 text)))
          liste (append liste (list (cons 3 "")))
          ;liste (f:remove liste (assoc 210 liste))
          liste (append liste (list (cons 70 0)))
          nliste (entmake liste))
    (princ liste)
    (if nliste (entdel name))
    )
  )
)
(defun xor (a b)
  (or (and a (not b)) (and (not a) b))
)
(defun dxbtext (txt / pt)
  (f_autolay "Text")
  (if (not t:txth) (setq t:txth 0.25))
  (if (not t:txtw) (setq t:txtw 0.7))
  (if (not t:txtwink)(setq t:txtwink 0.0))
  (if (not t:txtnwink)(setq t:txtnwink 0.0))
  (if (not t:txtdir)(setq t:txtdir "L"))
  (if (not t:txtstil)(setq t:txtstil b:stil))
  (if (not t:txtcol)(setq t:txtcol (f:gettxtcol t:txth)))
  (if (not t:txtw)(setq t:txtw 0.7))
  (setvar "thickness" 0)
  (menucmd "S=X")
  (menucmd "S=BEMLAY")
  (if (= l:laydlg 1)(setq t:layer (f_dlayer))(setq t:layer (getvar "CLAYER")))
  (setq pt T)
  (while (not (listp pt))
      (if (= (getvar "useri2") 0) (f:txtms))
      (f:txtstat)
      (initget 1 "M T E S W L A")
      (setq pt (getpoint "Einfgepunkt fr Beschriftung: "))
      (COND((= pt "W") (f:txtwink))
          ((= pt "T") (f:txth))
          ((= pt "E") (f:txtw))
          ((= pt "M") (f:txtms))
          ((= pt "L") (f:txtlay))
          ((= pt "S") (f:txtstil))
      )
  )
  (f:createtext nil txt pt)
)

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

---

Wenn Dir da jemand helfen soll, musst Du schon alles posten. Es fehlen zig Funktionen. Da musst du nochmal nachsehen.

------------------
Gruß
CADwiesel

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

---

Text.txt

Hi,
habe die komplette Datei angehängt.
Vielleicht kann mir einer von Euch helfen.

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

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

---

Hy Assi

Da fehlt doch schon wieder was.
seterr
f_getobj_ms
kenn
v:pi2
Durchsuch mal Deine Verzeichnisse, irgendwo müssen Diese Funktionen definiert sein (defun...

------------------
Gruß
CADwiesel

[Diese Nachricht wurde von CADwiesel am 14. Oktober 2002 editiert.]

[Diese Nachricht wurde von CADwiesel am 14. Oktober 2002 editiert.]

[Diese Nachricht wurde von CADwiesel am 14. Oktober 2002 editiert.]

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

---

ich habe jetzt die komplette lisp des textes mitgeschickt.
Bei dem Programm, aus dem ich das habe handelt es sich um eine ziemlich komplexe Applikation.
Ich glaube ich lasse mir etwas anderes einfallen mit den Attributen.
Wollte Absteckpunktblöcke nummerieren (ziemliche viele)

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

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

---

Hallo Assi,

was sind Absteckpunktblöcke? Wie sich das für mich anhört, hast Du viele Blöcke, die sichtbar durchnumerieren möchtest. Nur fehlt Dir dazu im Block das entsprechende Attribut?
Kann das sein?
Das würde heißen, dass Du der Blockdefinition selbst ein ATTDEF und den eingefügten Blöcken jeweils ein ATTRIB zuschreiben müsstest.
Oder:
Hast du den Text und möchtest einen Block einfügen, in dem dann ein bestimmtes Attribut mit eben diesem Text ausgefüllt wird?

Nicht gleich aufgeben!
Beschreib erste einmal genau was Du vorhast!

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night

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

---

Also, folgendes: Ich habe sehr viele Absteckpunkte.
Ich habe eine Ziffer an jeden Punkt geschrieben und dann danach mit EXPRESS durchnummeriert, jetzt möchte ich die Koordinaten auslesen
dazu müssen die Texte aus Attributen bestehen.
Dazu bräuchte ich diese Funktion die Texte in Attribute umwandelt.

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

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

---

Hallo Assi,

verrate doch mal alles,

womit möchtest du die Punkte auslesen? Ist das ein Programm aus dem oben erwähnten? Müssen die Attrribute in diesem Fall eine genaue Bezeichnung einhalten?
Sollen diese dann in Excel verfügbar sein?
Sollen die in eine Txt-Datei im bestimmten Format geschrieben werden?
Soll die Punktnummer mit ausgelesen werden, oder ist diese nur zur Reihenfolgestimmung notwendig?

Fakten, Fakten, Fakten!

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night

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

---

Also ich möchte eine simple .txt erzeugen, die Punktnummer sollten aber mit ausgelesen werden.
Danach möchte ich die .txt wieder in meine Zeichnung einfügen.
Außerdem benötige ich die .txt auch noch für sden Vermesser

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

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

---

Guten Morgen Assi,

und wie soll die TXT-Datei aufgebaut sein?
getrennt durch Semikolon
Nr;X;Y;Z
oder
getrennt durch Tabulator
Nr[TAB]X[TAB]Y[TAB]Z
oder
getrennt durch Leerzeichen
Nr X Y Z
Was möchte denn der Vermesser, und wie möchtest Du die Punkte wieder einlesen?

So langsam nimmt es doch aber Konturen an.

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night

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

---

Hy Assi,

wenn Du koplexere AbsteckungenŽ, öffres hast, wäre ne
App sinvoll.

CU cw

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

---

Oh je was war letzte Nacht ????ß

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

---

Servus Assi
Hallo miteinander

Assi, Du bzw. der Vermesser braucht für die Absteckung Punktnummern (zum identifizieren) und die dazugehörigen Koordinaten. Wenns nur um die Lage geht Rechts- und Hochwert (Höhe ist eher selten).
Du hast auf den Koordinaten Blöcke sitzen, die als Attribut die Punktnummer enthalten.
Wenn ich soweit richtig liege könnte der Befehl "ATTEXT" Dir weiterhelfen. In einer Schablonendatei definierst Du, wie die Daten exportiert werden  sollen.

Sollte meine obige Vermutung stimmen und Du kommst trotz ACAD-Hilfe nicht zurecht melde Dich nochmal.

Beispiel für Schablonendatei (aus der ACAD-Hilfe - Kapitel 13 -- Verwenden von Blöcken und externen Referenzen > Arbeiten mit Attributen > Extrahieren von Attributinformationen > Vorlage für Extraktionsdatei):

In der folgenden Dateischablone werden die 15 möglichen Felder dargestellt.

BL:LEVEL          Nwww000  (Blockverschachtelungsebene)
BL:NAME          Cwww000  (Blockname)
BL:X              Nwwwddd  (X-Koordinate des Blockeinfügepunkts)
BL:Y              Nwwwddd  (y-Koordinate)
BL:Z              Nwwwddd  (z-Koordinate)
BL:NUMBER        Nwww000  (Blockzähler; gilt auch für MEINFÜG)
BL:HANDLE        Cwww000  (Blockreferenz; gilt auch für MEINFÜG)

BL:LAYER          Cwww000  (Name des Layers für die Blockeinfügung)
BL RIENT        Nwwwddd  (Blockdrehwinkel)
BL:XSCALE        Nwwwddd  (X-Skalierfaktor)
BL:YSCALE        Nwwwddd  (Y-Skalierfaktor)
BL:ZSCALE        Nwwwddd  (z-Skalierfaktor)
BL:XEXTRUDE      Nwwwddd  (x-Komponente der Blockhochzugsrichtung)
BL:YEXTRUDE      Nwwwddd  (Y-Komponente)
BL:ZEXTRUDE      Nwwwddd  (Z-Komponente)
numeric          Nwwwddd  (Bezeichnung für numerisches Attribut)
character        Cwww000  (Bezeichnung für alphanumerisches Attribut)

Ich hoffe es hilft Dir weiter
Gruß, Ernst

------------------
ACAD 2000

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

---

Hallo Ernst,
Deine Vermutung liegt 1000prozentig richtig.
Auch dass ich nicht zurechtkomme.

Ich habe jetzt bei CADWIESEL punktliste.lsp gefunden
das klappt prima, bei sehr vielen Koordinaten verhaspel man sich aber sehr leicht und muss immer wieder von vorn anfangen, deshalb wäre eine Kennung per Attribut sehr schön
------------------

[Diese Nachricht wurde von Assi am 15. Oktober 2002 editiert.]

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

---

du kommst mit der Attributsextrktion nicht zurecht?
wenn es darum ging dann ganz einfach:
da du 2002 nutz einfach mal den Befehl "_EAttExt" anwenden,
der Button dazu liegt übrigens im WK"Ändern II" - da brauchst du keine Maske mehr zu erstellen und es funkt wunderbar.

------------------
Gruß Sebastian ,FFM

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

---

Hallo Assi

Wahrscheinlich hat Dir cadffm schon weitergeholfen, falls nicht ....

Ich geb Dir hier ein Beispiel (- da ich ja Deinen Block nicht kenne)

Nehmen wir einen Block an - wie er heißt ist egal- zB. ein Ringerl mit zwei Attributen, deren Name sei "BEZ" und "HOEHE". Der Einfügepunkt sei das Zentrum des Ringerls und der Block sitzt auf den "gesuchten" Koordinaten.

Erzeuge eine Schablonendatei zB. "absteck.txt" mit folgendem Inhalt:
BEZ        C010000
BL:X        N012003
BL:Y        N013003
BL:Z        N006002
HOEHE      C012000

Lies die Schablone so: BEZ      C 010 000
Die Punktnummer im Attribut "BEZ" ist eine Zeichenkette (C) mit einer Länge von 10 Zeichen;
Die Koordinaten des Blocks (BL:.) sind numerisch (N), die Längen sind unterschiedlich (x=12, y=13, z=6), x und y wird mit 3 Kommastellen, z mit 2 erzeugt;
Das zweite Attribut "HOEHE" ist wieder ein Test mit einer Länge von 12 Zeichen

Die Werte müssen natürlich zu Deinem Block passen, wenn Du keine Höhe brauchst, kannst Du sowohl BL:Z als auch HOEHE weglassen andernfalls nimmst Du das wo Deine Höhe steht.

Nun rufe in ACAD den Befehl ATTEXT auf:
(Wenn FILEDIA auf 1 steht siehst Du jetzt ein Dialogfeld)
Bei Dateiformat kann Du das Ausgabeformat wählen. Als Vorlagedatei wählst Du die neu angelegte Schablonendatei (absteck.txt) bei Ausgabedatei gibst Du den gewünschten Namen ein.
Nun mußt Du noch die Objekte wählen - Du kannst ein Fenster verwenden, wenn die Attributsbezeichnungen nur bei den gewünschten Blöcken vorkommen. Anderseits könntest Du mit dem Filter schon vorselektieren und dann beim "Objekte wählen" "V" für vorherige nehmen.

Nachdem Du "OK" gesagt hast öffne die Ausgabedatei und schau ob sie Deinen Vorstellungen entspricht.

Gruß, Ernst

------------------
ACAD 2000

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

---

Hi, also das Tool von CADWIESEL
Punkliste.lsp ist doch ganz gut.
es braucht zwar etwas Übung ( weil ich immer etwas zu schnell bin)
aber sonst prima

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

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

---

text2att.txt

hallo,
endlich gefunden!!!!!!!!was ich gesucht habe.
bin da auf eine Seite mit tollen Anwendungen gestoßen.

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

---

Na dann lass uns mal an der Seite teilhaben.
Gruß Harm

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