| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: MText mit VBA (427 mal gelesen)
|
Heiko76 Mitglied Applikationsingenieur
Beiträge: 589 Registriert: 21.03.2002
|
erstellt am: 23. Jul. 2003 15:33 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich komme nicht mehr weiter. Ich will einen MText in eine ACAD Zeichnung eintragen. Das kriege ich auch hin, nur leider mit einer Texthöhe von "0". Das ist nicht so gut zu lesen. Hier der Code in VBA. Was habe ich vergessen oder was kann ich da tun? Dim einfuege As Variant Dim acadapp As Object Dim acaddoc As Object Dim acadutil As Object Dim Bestxt As String Dim Besbreite As Double Besbreite = 50 Bestxt = "Zusatztext: " Set acadapp = GetObject(, "AutoCAD.Application") Set acaddoc = acadapp.ActiveDocument Set acadutil = acaddoc.Utility einfuege = acadutil.GetPoint(, "Bitte den Einfügepunkt wählen") Set blockref = ThisDrawing.ModelSpace.AddMText(einfuege, Besbreite, Bestxt) ThisDrawing.Regen acAllViewports ------------------ cu Heiko Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BerndE Mitglied Hochbautechniker
Beiträge: 557 Registriert: 05.07.2003 Revit 2013 ACA 2012 deutsch BuildingOne 5.4.5 Win7 WindowsNetz
|
erstellt am: 23. Jul. 2003 16:21 <-- editieren / zitieren --> Unities abgeben: Nur für Heiko76
Der Text in der Autocad-hilfe Hilfe |_ Entwickler-Hilfe |_ActiveX and VBA Reference |_ Code Examples |_AddMText Exampel sagt dazu folgendes: Sub Example_AddMtext() ' This example creates an MText object in model space. Dim MTextObj As AcadMText Dim corner(0 To 2) As Double Dim width As Double Dim text As String corner(0) = 0#: corner(1) = 10#: corner(2) = 0# width = 10 text = "This is the text String for the mtext Object" ' Creates the mtext Object Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text) ZoomAll End Sub Ich hoffe, das hilft Dir weiter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RoSiNiNo Mitglied Konstrukteur
Beiträge: 1126 Registriert: 09.10.2002 Autodesk Building Design Suite Premium 2021 Windows 10 Pro 64bit HP Workstation Z620, 24GB GeForce GTX 970
|
erstellt am: 24. Jul. 2003 07:25 <-- editieren / zitieren --> Unities abgeben: Nur für Heiko76
|
Heiko76 Mitglied Applikationsingenieur
Beiträge: 589 Registriert: 21.03.2002
|
erstellt am: 24. Jul. 2003 08:34 <-- editieren / zitieren --> Unities abgeben:
@BerndE Danke. Das hatte ich zwar auch schon gesehen und versucht. Hatte aber nicht funktioniert. Aber irgendwie, warum auch immer hat es diesmal geklappt. Super!!! @Roland Danke, aber das klappt nicht so ganz mit MText. ------------------ cu Heiko Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RoSiNiNo Mitglied Konstrukteur
Beiträge: 1126 Registriert: 09.10.2002 Autodesk Building Design Suite Premium 2021 Windows 10 Pro 64bit HP Workstation Z620, 24GB GeForce GTX 970
|
erstellt am: 24. Jul. 2003 08:41 <-- editieren / zitieren --> Unities abgeben: Nur für Heiko76
Und wieso? Bei mir funktinoiert es eigentlich schon. Hast du dir vorher auch die Acad-Variable Textsize geändert? ------------------ Roland [Diese Nachricht wurde von RoSiNiNo am 24. Juli 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Heiko76 Mitglied Applikationsingenieur
Beiträge: 589 Registriert: 21.03.2002
|
erstellt am: 24. Jul. 2003 09:26 <-- editieren / zitieren --> Unities abgeben:
Hi Roland, ja das habe ich gemacht, aber irgendwie klappt das trotzdem nicht. Kann sein, das ich meinen PC durch installieren/deinstallieren und rumtesten mit Programmen und Programmieren etwas "zerschossen" habe. Das würde einiges erklären.... ------------------ cu Heiko Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Konstrukteur (m/w/d) für medizinische Instrumente und Endoskope | Wir sind ein innovatives, weltweit agierendes Medizintechnik-Unternehmen mit mehr als 100 Jahren Tradition und außergewöhnlichem Know-how in der medizinischen und technischen Endoskopie. In enger Zusammenarbeit mit der medizinischen Wissenschaft entstehen immer neue Produktideen für neue Applikationen. Moderne Fertigungstechnologien und weltweit über 1700 ... | Anzeige ansehen | Medizintechnik |
|
J.Becker Mitglied Dipl.-Ing. Versorgungstechnik
Beiträge: 78 Registriert: 28.05.2003 ADT 2007, Windows XP, SP2, MAP, MCAD, Inventor
|
erstellt am: 26. Jul. 2003 17:25 <-- editieren / zitieren --> Unities abgeben: Nur für Heiko76
|