| |
| 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
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 / zitieren --> Unities abgeben:
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
Beiträge: 9343 Registriert: 19.03.2002
|
erstellt am: 28. Feb. 2007 15:33 <-- editieren / zitieren --> Unities abgeben: Nur für Paul Giesinger
|
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 28. Feb. 2007 16:18 <-- editieren / zitieren --> Unities abgeben: Nur für Paul Giesinger
Die Erstellung einer automatisch generierten Zeichnung für die QS ist natürlich beliebig erweiterbar. Aber fürs erste: Code:
Option ExplicitPublic 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
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 / zitieren --> Unities abgeben: Nur für Paul Giesinger
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
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 28. Feb. 2007 21:37 <-- editieren / zitieren --> Unities abgeben: Nur für Paul Giesinger
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
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 28. Feb. 2007 23:39 <-- editieren / zitieren --> Unities abgeben: Nur für Paul Giesinger
|
Paul Giesinger Mitglied Dipl.Ing. (FH)- Maschinenbau
Beiträge: 20 Registriert: 15.01.2007
|
erstellt am: 01. Mrz. 2007 15:38 <-- editieren / zitieren --> Unities abgeben:
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 |