Discussion:
Verwandeln von Texten in Attribute
(zu alt für eine Antwort)
Stephan D'Oria
2005-05-19 12:38:34 UTC
Permalink
Hallo,

ich will in AutoCAD normale Texte (dumme Texte) in Attribute
(intelligente Texte) umwandeln. Hierfür finde ich in AutoCAD leider
keine Funktion.

Meine Fragen:
Kennt jemand ein entsprechende Funktion in AutoCAD? Gibt es
Konvertierungs-Tools die Texte in Attribut-Werte umwandeln?

Für Antworten bedanke ich mich im voraus.

Gruß
Stephan
Foe
2005-05-19 12:59:32 UTC
Permalink
Hallo,

Wo/Wie existieren diese Texte ... in Blöcken?! ... sonst machen ja
Attribute keinen Sinn!!! ... bzw. was verstehst Du unter "intelligente
Texte"?!?

An-und-für-sich gibt's aber im "normalen" ACAD keine passende Funktion
... ev. gibt's ja sowas via VB oder LISP von Irrgendjemanden ... guck's
Du ev. bei http://www.cadalog.com/ oder
http://ww3.cad.de/cgi-bin/ubb/forumdisplay.cgi?action=topics&forum=Lisp&number=145&DaysPrune=20&LastLogin=&mystyle=
!


Servus, Erwin
--
MSI K8N Neo2 Platinum, A64 3000+, 1024MB PC-3200, Radeon 9700, WinXP
Thorsten Meinecke
2005-05-19 14:21:59 UTC
Permalink
"Foe" <***@gmx.at> schrieb:
(Erwin, dein Name fehlt:)
Post by Foe
An-und-für-sich gibt's aber im "normalen" ACAD keine passende Funktion
... ev. gibt's ja sowas via VB oder LISP von Irrgendjemanden ...
Hab ich mal so gemacht. Dafür musste man genau einen Text und eine
Blockreferenz
übergeben; der Attributbezeichner wurde an anderer Stelle abgelegt, und der
relevante Code zum Anhängen des Attribut sieht etwa so aus:

; vorher wird die vorhandene Blockreferenz mit allen Attributen kopiert...
(IF (AND
(ENTMAKE (APPEND (SUBST '(0 . "ATTRIB") (ASSOC 0 el) el) (LIST (CONS
2 attnam) '(70 . 0))))
(ENTMAKE '((0 . "SEQEND")(8 . "0")))
)
(PROGN
(ENTDEL blref)
(ENTDEL txref)
)
)

Gruß,
--Thorsten

Loading...