| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: einzeiliger text und alignment funktion (1854 mal gelesen)
|
adblue Mitglied .
Beiträge: 57 Registriert: 22.05.2009
|
erstellt am: 08. Aug. 2009 09:31 <-- editieren / zitieren --> Unities abgeben:
hallo! ich möchte einen einzeiligen text an einem bestimmten punkt einfügen und zwar soll der text mittig auf dem punkt liegen. dazu verwende ich diesen code: Dim text As AcadText Set text = ThisDrawing.ModelSpace.AddText("text", insertPoint, 0.2) text.Alignment = acAlignmentMiddleCenter text.Rotation = Angle insertPoint ist irgendwo bei 10/20/10 also x/y/z aber der text wird jedesmal auf 0/0/0 eingefügt. was mache ich falsch? danke
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Ehrenmitglied V.I.P. h.c. Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 sw: Win7-x64 Office 365 ProPlus C3D (& LT ) ET; DACH; Extensions ------------------- hw: FX3800 i5 CPU 670 8GB RAM
|
erstellt am: 08. Aug. 2009 11:34 <-- editieren / zitieren --> Unities abgeben: Nur für adblue
Moin, wenn Du Deinen code jetzt nicht bis zur Unkenntlichkeit zusammengekürzt hast, wundert mich, dass überhaupt etwas passiert. Code: Sub TextTest() Dim textA As AcadText Dim Angle Angle = 0 Dim InsertPointA(0 To 2) As Double InsertPointA(0) = 10#: InsertPointA(1) = 20#: InsertPointA(2) = 0# Set textA = ThisDrawing.ModelSpace.AddText("text", InsertPointA, 0.2) textA.Alignment = acAlignmentMiddleCenter textA.TextAlignmentPoint = InsertPointA textA.Rotation = Angle End Sub
Aufgemerkt: Punktabfrage (Befehl: ID) des Basispunktes des Textes gibt einen anderen Wert zurück, als der Teil "Geometrie" des Eigenschaftsfensters (Position X, Y, Z)Schau Dir doch mal das Beispiel in der VBA-Hilfe zum Thema Alignment Example (unter Code Examples in der ActiveX and VBA Reference) an, das behandelt genau Deine Frage. ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope 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: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, LDD, MDT, RD, ADT, Civil Inventor AIP 4-11, 2008 -2022 Win 10
|
erstellt am: 08. Aug. 2009 11:38 <-- editieren / zitieren --> Unities abgeben: Nur für adblue
|
adblue Mitglied .
Beiträge: 57 Registriert: 22.05.2009
|
erstellt am: 08. Aug. 2009 12:46 <-- editieren / zitieren --> Unities abgeben:
|