Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Ø-Symbol in automatisch erstelltes Mass hinzufügen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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


Sehen Sie sich das Profil von iogurt an!   Senden Sie eine Private Message an iogurt  Schreiben Sie einen Gästebucheintrag für iogurt

Beiträge: 233
Registriert: 30.09.2005

Inventor 2021 Professional

erstellt am: 25. Jan. 2016 23:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Chris 31 an!   Senden Sie eine Private Message an Chris 31  Schreiben Sie einen Gästebucheintrag für Chris 31

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für iogurt 10 Unities + Antwort hilfreich

versuch doch mal das:

Code:

Dim oID as GeneralDimension
oID=oGeneralDims.AddDiameter(oPt1,intent1)

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

iogurt
Mitglied
Konstrukteur


Sehen Sie sich das Profil von iogurt an!   Senden Sie eine Private Message an iogurt  Schreiben Sie einen Gästebucheintrag für iogurt

Beiträge: 233
Registriert: 30.09.2005

erstellt am: 26. Jan. 2016 17:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von iogurt an!   Senden Sie eine Private Message an iogurt  Schreiben Sie einen Gästebucheintrag für iogurt

Beiträge: 233
Registriert: 30.09.2005

Inventor 2021 Professional

erstellt am: 26. Jan. 2016 18:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von axi92 an!   Senden Sie eine Private Message an axi92  Schreiben Sie einen Gästebucheintrag für axi92

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für iogurt 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz