| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Ø-Symbol in automatisch erstelltes Mass hinzufügen (1244 mal gelesen)
|
iogurt Mitglied Konstrukteur
Beiträge: 233 Registriert: 30.09.2005 Inventor 2021 Professional
|
erstellt am: 25. Jan. 2016 23:34 <-- editieren / zitieren --> Unities abgeben:
Guten Tag allerseits. Gibt es eine Möglichkeit, dass ich ein Ø-symbol vor ein automatisch erstelltes Mass anfügen kann? Das code-snippet, das ein Mass erstellt sieht so aus: Dim oID As GeneralDimension oID = oGeneralDims.AddLinear(oPt1, intent1, intent2) oID.CenterText Nun möchte ich eben ein Ø-symbol noch einfügen und wundere mich, ob es einen ähnlich einfachen Befehl dafür gibt, wie das "oID.CenterText". Danke schonmal! ------------------ Grüsse aus Calgary, Alberta, Canada Andy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Chris 31 Mitglied Konstrukteur und Mädchen für alles
Beiträge: 575 Registriert: 23.04.2013 Inventor 2013/2015 Windows 7 64 bit 16GB RAM nVidia Quadro 600
|
erstellt am: 26. Jan. 2016 07:29 <-- editieren / zitieren --> Unities abgeben: Nur für iogurt
|
iogurt Mitglied Konstrukteur
Beiträge: 233 Registriert: 30.09.2005
|
erstellt am: 26. Jan. 2016 17:07 <-- editieren / zitieren --> Unities abgeben:
Gute Idee, funktioniert so leider nicht. oGeneralDims.AddDiameter kann man brauchen, wenn man ein Durchmesser Mass an ein rundes Objekt anbringen will. Aber ich arbeite mit einer Seitenansicht von einem runden Teil und habe ein Mass, das von einem Punkt zum anderen geht. ------------------ Grüsse aus Calgary, Alberta, Canada Andy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
iogurt Mitglied Konstrukteur
Beiträge: 233 Registriert: 30.09.2005 Inventor 2021 Professional
|
erstellt am: 26. Jan. 2016 18:01 <-- editieren / zitieren --> Unities abgeben:
Ich habs inzwischen rausgefunden: Man muss noch ein weiteres code snippet anhängen damit es funktioniert: Dim oID As GeneralDimension oID = oGeneralDims.AddLinear(oPt1, intent1, intent2) oID.CenterText Dim oDimensionText As DimensionText = oID.Text oDimensionText.FormattedText = "Ø<DimensionValue/>" ------------------ Grüsse aus Calgary, Alberta, Canada Andy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
axi92 Mitglied Konstrukteur
Beiträge: 685 Registriert: 20.02.2010 Inventor 2014 64bit SP2 Vault Basic 2014 64bit SP1 HP Z200 Win 7 64bit 16GB RAM CPU: i5 3,2GHz GPU: Nvidia Quadro K600
|
erstellt am: 05. Feb. 2016 08:27 <-- editieren / zitieren --> Unities abgeben: Nur für iogurt
Auch wenn du es schon hast^^ Ich benutze den Code Damit klickst du aber auf fertig erstellte Bemaßungen Code:
Public Sub SetDiameterIDW() ' MB-Ing. 2014.03.18 ' Beenden der Funktion, wenn kein Dokument geöffnet ist If ThisApplication.Documents.Count = 0 Then Exit Sub ' Beenden der Funktion, wenn das Dokument keine Zeichnung (*.idw) ist If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then Exit Sub ' Aktiviert das geöffnete Dokument Dim oIdw As DrawingDocument Set oIdw = ThisApplication.ActiveEditDocument ' Auswahl der gewünschten Bemaßungen Dim oDim As LinearGeneralDimension Set oDim = ThisApplication.CommandManager.Pick(kDrawingDimensionFilter, "Bemaßung auswählen") If oDim Is Nothing Then Exit Sub 'On Error Resume Next ' Hinzufügen des Durchmesserzeichens vor den Bemaßungswert 'oDim.Text.FormattedText = "<StyleOverride Font='AIGDT'>n</StyleOverride><DimensionValue/>" oDim.text.FormattedText = "Ø<DimensionValue/>" oIdw.Update End Sub
------------------ Grüße aus Wien Philipp Email: Base64 Encoded: cGhpcHNfOTJAeWFob28uZGU= [Diese Nachricht wurde von axi92 am 05. Feb. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |