| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Text auf Zelle anpassen jedoch Breite nicht ändern (518 mal gelesen)
|
C.Reichholf
Mitglied
Techniker
   Beiträge: 14
Registriert: 09.08.2006
|
erstellt am: 16. Feb. 2007 12:36  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Leute! Hab wieder mal ein Problem. In unserem Plankopf handhaben wir das Layout des Textes: Projektart immder so, das der Text die ganze Zelle ausfüllt und zwar mit Leerzeichen dazwischen. Hier nun meine Frage: Kann ich dem Text die Eigenschaft geben, dass sich dieser automatisch auf eine gewisse Breite ändert, jedoch, und jetzt kommts, die Breite der Buchstaben nicht verändert, sondern nur die Zwieschenräume? mfg Christoph Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer
Beiträge: 9732
Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10
|
erstellt am: 16. Feb. 2007 13:12 <-- editieren / zitieren --> Unities abgeben: Nur für C.Reichholf 
|
CADdog
Ehrenmitglied V.I.P. h.c.
Beiträge: 2237
Registriert: 30.04.2004 Intel Xeon 3,6 GHz
32 GB RAM
NVIDIA Quadro P2000
Windows 10 Enterprise
AutoCADmap 3D 2023
WS-Landcad 2023
QGIS 3.10
|
erstellt am: 16. Feb. 2007 13:26 <-- editieren / zitieren --> Unities abgeben: Nur für C.Reichholf
Hallo, realisieren könnte man sowas mit ARCTEXT aus den ETools. Wenn der Bogen fast eine Linie ist, fällt das gar nicht auf ... ------------------
 gruß CADdog, the dog formerly known as TR AutoCAD spricht mit einem, aber viele hören nicht zu. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Account Manager (m/w/d) im Vertrieb von PLM-Systemlösungen | Sie haben Erfahrung im Vertrieb von komplexen Software-Lösungen und sind auf der Suche nach einer neuen Herausforderung in einem aufgeschlossenen und dynamischen Umfeld? Dann suchen wir Sie als Account Manager (m/w/d) im nationalen oder internationalen Vertrieb von PLM-Systemlösungen.
Freuen Sie sich auf ein eingespieltes Team, die Arbeit mit innovativen Produkten sowie namenhaften ... | | Anzeige ansehen | Außendienst |
|
startrek
Mitglied
Architekt
Beiträge: 1361
Registriert: 13.02.2003 .
|
erstellt am: 16. Feb. 2007 14:31 <-- editieren / zitieren --> Unities abgeben: Nur für C.Reichholf
Hallo, just for fun, ich brauch das auch ab&an mal für Strassennamen und so Quarki,
geht aber nur für einzeilige Texte und Attribute und ist nicht sonderlich getestet;-) Gruss Nancy
--
Code:
Sub add_or_del_spaces()
Dim re As Object, acObj As AcadObject, basePnt, s$, atts, att
Set re = CreateObject("vbscript.regexp")
re.Global = 1
re.pattern = "^\d+$"
ThisDrawing.Utility.GetEntity acObj, basePnt, "Select an object"
s = InputBox("Wieviel Leerzeichen: 0, 1, 2, .. ?", "Anzahl Spaces", "1")
If s = "" Or Not re.test(s) Then Exit Sub
re.pattern = "([^\s])(\s*)"
Select Case TypeName(acObj)
Case Is = "IAcadText2"
acObj.TextString = re.Replace(acObj.TextString, "$1" & Space(CLng(s)))
Case Is = "IAcadBlockReference"
atts = acObj.GetAttributes
For Each att In atts
'"X" = Name des Attributes anpassen?!
If att.TagString = "X" _
Then att.TextString = _
re.Replace(att.TextString, "$1" & Space(CLng(s)))
Exit For
Next
End Select
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de (alle Foren)
| 
