---

zwei fragen habe ich:
1.
gibt es die möglichkeit, texteingaben auf eine bestimmte anzahl von zeichen zu beschränken (z.b. max. 10 zeichen). bei ünerschreiten soll eine fehlermeldung erscheinen.
2.
gibt es die möglichkeit, bei einer texteingabe jeden einzelnen buchstaben mit einem bezugspunkt zu versehen (ohnen jeden buchstaben einzeln einzutippen)

hat jemand eine idee ?

würde mich freuen

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

---

zu 2tens:

(defun c:explodetext ()
  (setq text (getstring "Text eigeben: "))
  (setq abstand (getreal "Abstand zw. Buchstaben: "))
  (setq texth (getreal "Texthöhe: "))
  (setq pt (getpoint "Punkt: "))
  (setq x 1)
  (repeat (strlen text)
    (command "text" (list (+ (car pt) (* abstand (- x 1))) (cadr pt) (caddr pt)) texth "" (substr text x 1))
    (setq x (+ x 1))
    )
  )

Funktioniert aber nur wenn du beim Textstil die Höhe 0 definiert hast... sollte das nicht der fall sein:

(defun c:explodetext2 ()
  (setq text (getstring "Text eigeben: "))
  (setq abstand (getreal "Abstand zw. Buchstaben: "))
  (setq pt (getpoint "Punkt: "))
  (setq x 1)
  (repeat (strlen text)
    (command "text" (list (+ (car pt) (* abstand (- x 1))) (cadr pt) (caddr pt)) "" (substr text x 1))
    (setq x (+ x 1))
    )
  )

zu 1tens:
willst du das du in diesem lisp nur eine bestimme Anzahl von buchstaben ausgeben kannst? das wäre kein problem.

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

[Diese Nachricht wurde von Schachinger am 24. März 2003 editiert.]

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

---

Das mit der Texthöhe werd ich im 2ten Lisp ausbessern, das das abegfragt wird - hab nur schnell die Zeilen reingeklopft....

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

---

Also, die Sache ist sicherlich machbar, allerdinds muss ich dazu sagen, das es mit dem zur verfügungstehendem Befehl 'text' oder  'Mtext' o.Ä. nicht geht.
es muss ein Programm geschrieben werden, dass Deine Anforderungen umsetzt.
Dann kann mann überlegen, ob man einen vorhandenen Befehl z.B. 'Text' umdefiniert, so dass dann immer das Programm aufgerufen wird.

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

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

---

Hallo Schachinger,

ganz so einfach ist es nicht. Da die Textzeichen ja bekanntlich eine unterschiedliche Breite haben. Deshalb ist es Notwendig die Breite eines jeden Zeichens zu ermitteln.
Richtig interessant wird es dann erst, wenn man vorhandene Texte nimmt, die irgendwie gedreht und auch ausgerichtet sind (Links Mitte Rechts ...).
Erst den Text schreiben, und dann zu splitten ist meiner Meinung nach der Bessere Weg, da dann die Funktionalität AutoCAD's bei der Erstellung gegeben ist. Nur ein Bsp: Versuche mal in deinen Text ein Leerzeichen herein zuschreiben.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
Neue Tool's im Free-&Download
Zugang zum Download schon gesichert?

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

---

Wenn die Abstände zw. den Buchstaben nicht gleich sein dürfen (also wie echter geschriebener Text aussehen soll) wirds natürlich kompliziert.....
Nur weis ich dann nicht was man mit einem "Sprengen" des Textes bewirken will.
Bin einfach mal davon ausgegangen

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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