Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Bemaßungen nummerieren

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:  Bemaßungen nummerieren (2902 mal gelesen)
Paul Giesinger
Mitglied
Dipl.Ing. (FH)- Maschinenbau


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

Beiträge: 20
Registriert: 15.01.2007

Inventor 11
Vault 5
AutoCad 2007
MDT 2007
WIN XP Prof. SP2
AMD Athlon 64 X2 DualCore 4200+ 2,21 GHz
1,5GB RAM
NVIDIA GeForce 7950 GT

erstellt am: 28. Feb. 2007 11:42    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

Hallo @all,

unsere QS kam mit einer Idee zu mir und fragte, ob es den nicht möglich sei in einer Zeichnung alle Maße durchzunummerieren. QS will das für unseren Erstmusterprüfbericht haben, damit unser Vermessungsdienstleister hier auf die Nummer sich beziehen kann und die Kommunikation zwischen QS und anderen besser werde.
Will diese Idee jetzt nicht kommentieren  , weil bei einer Zeichung im A1-Format kommen da schon mal ein paar Maße zusammen.

Trotzdem jetzt meine Frage: 
Gibt es eine Möglichkeit in Inventor 11 automatisch die Maße zu nummerieren? Alles außer Automatik macht auch kein Sinn.

Danke schon mal für die Hilfe! 

Gruß
Paul

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

thomas109
Ehrenmitglied V.I.P. h.c.
Dompteur



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

Beiträge: 9343
Registriert: 19.03.2002

erstellt am: 28. Feb. 2007 15:33    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 Paul Giesinger 10 Unities + Antwort hilfreich

Hallo Paul!
Mit Usermitteln geht da nichts, aber vielleicht wissen die Bitverbieger  im Inventor VBA-Forum Rat.
Ich schiebe den Beitrag einmal rüber.


------------------
lg      
Tom

...so geht mein Boot manchmal unter...

[Diese Nachricht wurde von thomas109 am 28. Feb. 2007 editiert.]

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

rtend12
Mitglied
Dipl.-Ing. (FH) Maschinenbau / Konstrukteur


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

Beiträge: 436
Registriert: 21.07.2004

Catia V5 (R16SP5, B18SP5)
VB.Net 2003

erstellt am: 28. Feb. 2007 16:18    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 Paul Giesinger 10 Unities + Antwort hilfreich

Die Erstellung einer automatisch generierten Zeichnung für die QS ist natürlich beliebig erweiterbar.

Aber fürs erste:

Code:

Option Explicit

Public Sub DimNum()

Dim idwdoc As DrawingDocument
Dim osheet As Sheet
Dim oview As DrawingView
Dim ostr As String
Dim onum As Integer
Dim oDrawDim As DrawingDimension
If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then
    Set idwdoc = ThisApplication.ActiveDocument
    For Each osheet In idwdoc.Sheets
    onum = 1
        For Each oDrawDim In osheet.DrawingDimensions
        ostr = oDrawDim.Text.FormattedText
        ostr = ostr + " (" & onum & ")"
        oDrawDim.Text.FormattedText = ostr
            'MsgBox (oDrawDim.Text)
            onum = onum + 1
        Next
    Next
End If
End Sub


Gruß
Reinhard

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

Doc Snyder
Ehrenmitglied V.I.P. h.c.
Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen



Sehen Sie sich das Profil von Doc Snyder an!   Senden Sie eine Private Message an Roland Schröder  Schreiben Sie einen Gästebucheintrag für Roland Schröder

Beiträge: 13115
Registriert: 02.04.2004

AIP2013SP2.2 XPproSP2 MS-IntelliMouse-Optical SpacePilot
DellM4600 2,13GHz 2GB FxGo1400 1920x1200
am Dock Dell2711

erstellt am: 28. Feb. 2007 16:55    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 Paul Giesinger 10 Unities + Antwort hilfreich

Ah ja, gleich mal mit rumgespielt und aus "285 (2)" "Maß Nr.2: 285" gemacht. Nett!

Wenn man das aber wiederholt wird der Zählstring immer wieder hinzugefügt. Klar, dachte ich, wenn da .FormattedText steht, nimmt er ja alles und packt den Zählstring dazu.

Hab ich dann mal versucht, ob das mit nur .Text statt .FormattedText anders wird, aber da gings dann gar nicht mehr.

Wenn es nicht das ist, was ich dachte, was ist .Text dann?

Gibt es die Variable "Wert" oder so ähnlich nicht?

------------------
Roland  
www.Das-Entwicklungsbuero.de

[Diese Nachricht wurde von Doc Snyder am 01. Mrz. 2007 editiert.]

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

rtend12
Mitglied
Dipl.-Ing. (FH) Maschinenbau / Konstrukteur


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

Beiträge: 436
Registriert: 21.07.2004

Catia V5 (R16SP5, B18SP5)
VB.Net 2003

erstellt am: 28. Feb. 2007 21:37    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 Paul Giesinger 10 Unities + Antwort hilfreich

Hallo Roland,

du kannst den Wert mit modelvalue abfragen.
Das bringt dich aber auch nicht recht viel weiter, weil du nicht sicher sagen kannst, ob der zusätzliche Text die Nummerierung für die QS ist oder ein anderer Text ist. Das kann man nur umgehen, wenn man jedem Maß ein zusätzliches Textfeld spendiert. Das wird dann aber beim Verschieben von Maßen und Ansichten problematisch.
Diese Probleme sind mit "beliebig erweiterbar" gemeint.

Gruß
Reinhard

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

rtend12
Mitglied
Dipl.-Ing. (FH) Maschinenbau / Konstrukteur


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

Beiträge: 436
Registriert: 21.07.2004

Catia V5 (R16SP5, B18SP5)
VB.Net 2003

erstellt am: 28. Feb. 2007 23:39    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 Paul Giesinger 10 Unities + Antwort hilfreich

Achtung bei der Verwendung des Codes. Danach werden manche Formattierungen an Bemaßungen nicht mehr angezeigt.

Gruß
Reinhard

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

Paul Giesinger
Mitglied
Dipl.Ing. (FH)- Maschinenbau


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

Beiträge: 20
Registriert: 15.01.2007

erstellt am: 01. Mrz. 2007 15:38    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

Hallo an alle!

Vielen Dank für alle Antworten. Habt mir ...äh.. meiner QS sehr geholfen.
Werde mal mit rumprobieren und vielleicht auch meiner QS Bescheid sagen, dass es eine Lösung gibt. 

Danke!

Gruß Paul

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