| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Textlänge in mm errechnen (1302 mal gelesen)
|
schachtelmacher Mitglied Verpackungsmittelmechaniker, Entwicklung
Beiträge: 86 Registriert: 07.01.2004
|
erstellt am: 15. Mrz. 2005 12:06 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 15. Mrz. 2005 12:21 <-- editieren / zitieren --> Unities abgeben: Nur für schachtelmacher
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 |
schachtelmacher Mitglied Verpackungsmittelmechaniker, Entwicklung
Beiträge: 86 Registriert: 07.01.2004
|
erstellt am: 15. Mrz. 2005 14:48 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 15. Mrz. 2005 16:12 <-- editieren / zitieren --> Unities abgeben: Nur für schachtelmacher
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 |
schachtelmacher Mitglied Verpackungsmittelmechaniker, Entwicklung
Beiträge: 86 Registriert: 07.01.2004
|
erstellt am: 15. Mrz. 2005 16:34 <-- editieren / zitieren --> Unities abgeben:
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 |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 15. Mrz. 2005 17:25 <-- editieren / zitieren --> Unities abgeben: Nur für schachtelmacher
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 |
schachtelmacher Mitglied Verpackungsmittelmechaniker, Entwicklung
Beiträge: 86 Registriert: 07.01.2004
|
erstellt am: 16. Mrz. 2005 08:27 <-- editieren / zitieren --> Unities abgeben:
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 |
schachtelmacher Mitglied Verpackungsmittelmechaniker, Entwicklung
Beiträge: 86 Registriert: 07.01.2004 Windows XP Prof. Autocad 2004 Autocad 2007 Freecad Erpa V-Pack Ubuntu
|
erstellt am: 16. Mrz. 2005 12:48 <-- editieren / zitieren --> Unities abgeben:
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 |
schachtelmacher Mitglied Verpackungsmittelmechaniker, Entwicklung
Beiträge: 86 Registriert: 07.01.2004
|
erstellt am: 17. Mrz. 2005 10:01 <-- editieren / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 17. Mrz. 2005 10:10 <-- editieren / zitieren --> Unities abgeben: Nur für schachtelmacher
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 17. Mrz. 2005 10:20 <-- editieren / zitieren --> Unities abgeben: Nur für schachtelmacher
Tipp: Wie man an Attribute ran kommt findest du u.a. hierund hier die dxf-codesdann 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 |
schachtelmacher Mitglied Verpackungsmittelmechaniker, Entwicklung
Beiträge: 86 Registriert: 07.01.2004
|
erstellt am: 17. Mrz. 2005 11:41 <-- editieren / zitieren --> Unities abgeben:
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 |
schachtelmacher Mitglied Verpackungsmittelmechaniker, Entwicklung
Beiträge: 86 Registriert: 07.01.2004 Windows XP Prof. Autocad 2004 Autocad 2007 Freecad Erpa V-Pack Ubuntu
|
erstellt am: 17. Mrz. 2005 13:14 <-- editieren / zitieren --> Unities abgeben:
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 |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 17. Mrz. 2005 13:20 <-- editieren / zitieren --> Unities abgeben: Nur für schachtelmacher
|