---

Hallo,

ich würde gerne wissen, ob man sich die Textlänge eines zu setzenden Textes in mm ausrechnen kann?

Hintergrund:

ich möchte in eine Lücke mit 55 mm Platz einen Text eintragen.
Da der Text immer verschiedene Anzahl von Zeichen besitzt
möchte ich gerne die mm-Länge. Wenn die Text-mm länger sind als
die 55 mm, setze ich die Texthöhe kleiner und rechne wieder nach,
solange, bis die 55 mm erreicht sind.
Geht das ???

Danke schonmal für Eure Mithilfe

schachtelmacher

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

was ist mit der Auswertung von (textbox "BlaBla")
oder vla-get-boundigbox ?

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von CADmium:
was ist mit der Auswertung von (textbox "BlaBla")
oder vla-get-boundigbox ?

---

Hallo,

also ich habe mal experimentiert.
Mit textbox funktioniert das bei mit nicht, da man erst ein Text auswählen muss, bevor hier eine Berechnung gemacht werden kann.

Ich habe aber ein in Lisp vorher definierten Text (setq kunde "Testkunde") den ich erst prüfen möchte, bevor ich Ihn setze.
Mit vla... kann ich nichts anfangen, da meine Lisp-Kenntnisse nicht sehr umfangreich sind (Feierabendprogrammierer).

Also nochmal:

(setq kunde "Testkunde"), Texthöhe anfangs 4 mm Winkel 0°
jetzt prüfen ob kunde nicht grösser als 55 mm in der X-Achse wird.
Texthöhe solange in 0.1 mm-Schritten verkleinern, bis < 55 mm erreicht sind.
jetzt wird der Text an eine bestimmte Position mit der entsprechenden Höhe mit command "text" ... gesetzt.

Gruss

schachtelmacher

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

muss heißen :

(textbox '((1 . "Testkunde")))

Siehe Hilfe im Vlide.. so sollte es für deine Fall gehen.

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von CADmium:
muss heißen :

(textbox '((1 . "Testkunde")))

Siehe Hilfe im Vlide.. so sollte es für deine Fall gehen.

---

... ja schon, wenn ich das so wie oben eingebe.
Schreibe ich aber statt "Testkunde" hier meine Variable hinein, dann geht es nicht!
Die Variable heisst kunde und diese ist mit dem Wert "Testkunde" gesetzt.

Vieleicht drücke ich mich zu kompliziert aus oder verstehe das mit
der Anweisung textbox nicht.
Aber textbox funktioniert doch nur auf Basis von einem Element, das
in der Zeichnung schon vorhanden ist. Bei mir ist der Text aber noch
nicht vorhanden und soll vorher geprüft werden, bevor dieser in der Zeichnung erscheint.
Vielleicht hilft das noch zum Verständnis.
Ich habe eine Dialogbox erstellt. In dieser mache ich verschiedene Eingaben
Jetzt lese ich mit einem LISP-Programm die Werte aus dem Dialogfeld.
Setze meine Variablen, darunter auch kunde.
Jetzt füge ich einen Block mit Attributen in die Zeichnung ein.
Hier befindet sich auch die Lücke von 55 mm, inder der Text aus der
Variablen kunde hineinpassen soll. Da manche Kunden ewig lang
sind, möchte ich den Namen so klein schreiben, dass dieser dort hineinpasst.
So, ich hoffe wir kommen gemeinsam weiter. Wegen mir auch Text setzen,
analysieren, löschen, richtig einstellen, und entgültig setzen.
Hauptsache das Ergebnis stimmt.
Jetzt stehen bestimmt ein paar Leuten die Haare zu Berge!

Viele Grüsse

schachtelmacher

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

Zuersteinmal zu beachten...

Auszug aus der Hilfe:
The following example shows the minimum allowable entity definition list that textbox accepts.
Because no additional information is provided, textbox uses the current defaults for text style and height.

(textbox '((1 . "Hello world")) )

((0.0 0.0 0.0) (2.80952 1.0 0.0))

The actual values returned by textbox will vary depending on the current text style.

Und dann sagt ein Code mehr als tausend Worte :-)

Code:

---

(setq kunde "Testkunde of Death")
(textbox (list (cons 1 kunde)))

---

...

------------------
Ciao,
Marc

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

---

Zitat:

---

Original erstellt von marc.scherer:
...
Und dann sagt ein Code mehr als tausend Worte :-)

Code:

---

(setq kunde "Testkunde of Death")
(textbox (list (cons 1 kunde)))

---

...

---

ja genau und ich danke Dir für die Hilfe.
Wie schon geschrieben, brauche vieeeeel mehr Zeit zum Programmieren,
weil ich viel zu wenig Kenntnisse habe.
Deshalb finde ich es super, dass Ihr mir trotzdem helft,
auch wenn meine Fragen meistens sehr einfach und simpel zu lösen sind.
Ich werde jetzt die Länge des Textes in eine Variable schreiben,
und mir den Faktor für die Verkleinerung ausrechen, um dann den
Text in diese Lücke zu pressen. Natürlich nur bis zu einer Mindestgrösse.

DANKE 

schachtelmacher

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

Hallo ich schon wieder,

Also das mit dem Text und der Lücke ist über ein defun gelöst.
Danke nochmal.

Jetzt habe ich eine Steigerung des Schwierigkeitsgrades.

Ich füge in die Zeichnung einen Block mit Attributen ein,
die ich automatisch mitgebe. Nur ist die Texthöhe standartmäßig 4 mm.
Jetzt muss ich aber NUR dem einen Attribut (Kunde) die neue ermittelte Höhe zuweisen.

Es wäre sehr nett, wenn Ihr mir hier auch nochmal helfen könntet.

Also:
Attribute sind definiert,
Werte sind vorgegeben,
Texthöhe mit 4mm als Standarttexthöhe,
der Block wird gesetzt
und ein Attribut soll jetzt oder auch vorher auf die errechnete Höhe eingestellt werden.

Gruss

schachtelmacher

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

Hallo,

keiner mehr da?
Oder langweile ich Euch mit meinen Fragen?

Grüsse

schachtelmacher

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

Hi Schachtel,
glaub' mir: Wenn jemand die Antwort parat hätte wäre schon 'ne Antwort da. Kein Grund hier Druck zu machen.
IMHO ist Dein jetziges Problem etwas komplexer. Da überlegt man schon mal etwas länger oder sacht: Das ist 'n PAL (Problem Anderer Leute) :-)

------------------
Ciao,
Marc

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

---

Tipp:
Wie man an Attribute ran kommt findest du u.a. hier
und hier die dxf-codes

dann
1.Attributtextstil+Höhe Auslesen und Aktuell setzen 
2.textboxaufruf
3.Attributhöhe anpassen
4.aktuellen Textstil zurücksetzen

und jetzt ist es wie Marc schon sagt Dein PAL 

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hi,
vielen Dank für die Hilfe.
Jetzt habe ich wieder gut zu tun, mich hier
reinzufinden.

Gruss

schachtelmacher

p.s. ich wollte keinen Druck machen! War nicht meine Absicht!

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

Hi,

Ähm, bitte nicht steinigen,
aber ich habe eine absolut simple Lösung gefunden!
Ich weiss: Lesen gefährdet die Dummheit!

Es geht auch folgendermassen und erfüllt bei mir den gleichen Zweck.
Mag sein, dass es nicht unbedingt eine elegante Lösung ist,
aber es funzt!

Da der Text der angepasst werden soll immer auf der gleichen Stelle
steht, mache ich folgendes:

(setq p1 (list 125 170)
        p2 (list 181 165)
        neueHoehe 1.5
  )
(command "-attedit" "j" "" "" "" "k" p1 p2 "h" neueHoehe ""
        "linie" p1 p2 "")

p1 und p2 sind die beiden fixen Punkte um den Text nach -attedit zu markieren und dann zu ändern.

Also vielen Dank trotzdem nochmal

schachtelmacher

------------------
"Es gibt keine Probleme, sondern nur Lösungen"

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

---

Na siehste, gratulation.

------------------
Ciao,
Marc

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