|
Inventor VBA : Arbeitspunkt und ipt Dateinamen in einer Zeichnung auslesen
Chris 31 am 21.05.2015 um 11:31 Uhr (1)
Also Export nach Excel so wie das aussieht.Dann jetzt die Frage, wie viel Ahnung hast du denn schon von VBA?------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor : Zeichnung automatisch generieren über Datenbank
Chris 31 am 13.08.2015 um 12:07 Uhr (1)
Es kommt natürlich sehr auf die Komplexität der Teile an. Je einfacher die zu bemaßende Geometrie, desto zuverlässiger wird die ganze Geschichte natürlich. ------------------MFGChris
|
| In das Form Inventor wechseln |
|
Inventor VBA : Arbeitspunkt und ipt Dateinamen in einer Zeichnung auslesen
Chris 31 am 21.05.2015 um 14:35 Uhr (1)
Du meinst die Bohrungstabelle?Dort hast du ja keine Auswahl, mit der du die Datei bestimmen könntest.Ich hab es jetzt bei schnellem Probieren auch nicht hinbekommen, ein iProp mit der Bauteilbezeichnung in die Tabelle zu kriegen.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Chris 31 am 21.12.2015 um 07:26 Uhr (1)
Guten morgen,vielleicht habe ich da ja auch irgendwas überlesen, aber ich finde keine Verbindung zwischen deiner Symbolerstellung und dem Text, den du da erstellst.Wenn du den Text sowieso aus ner UserForm nimmst, dann erstell dir doch in deiner idw-Vorlage ein Symbol mit einer Eingabe. Dann platzierst du das Symbol per VBA und füllst die Eingabe aus.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor : Zeichnung automatisch generieren über Datenbank
Chris 31 am 13.08.2015 um 11:03 Uhr (1)
So schwer ist das nicht zu Programmieren. Problematisch sind in den meisten Fällen die Bemaßungen auf den Zeichnungen, da es vorkommen kann, dass sie nicht mehr richtig gefangen werden und somit dann unbestimmt sind. ------------------MFGChris
|
| In das Form Inventor wechseln |
|
Inventor .NET : Austausch iAssembly in Zeichnung
Chris 31 am 02.12.2015 um 08:53 Uhr (1)
Oh, sorry... Code:Dim i as IntegerFor i=2 to factory.TableRows.Count oSheet = oDrawingDocument2.Sheets.Item(oDrawingDocument2.Sheets.Count) oSheet.TitleBlock.Delete() oSheet.AddTitleBlock(oNewTitleBlockDef) oSheet.CopyTo(oDrawingDocument1) oSheet.DrawingViews(1).ReferencedDocumentDescriptor.ReferencedFileDescriptor.ReplaceReference(factory.TableRows)row=row+1 Next------------------MFGChris[Diese Nachricht wurde von Chris 31 am 02. Dez. 2015 editiert.]
|
| In das Form Inventor .NET wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Chris 31 am 21.12.2015 um 11:59 Uhr (1)
Das Symbol platzieren sollte folgendermaßen gehen:Code:Dim Doc As DrawingDocumentSet Doc = ThisApplication.ActiveDocument Dim osheet As Sheet Set osheet = Doc.ActiveSheet Dim oSketch As Sketch Dim oSymbol As SketchedSymbol Set oSymbol = osheet.SketchedSymbols.Item("DEIN SYMBOLNAME")Dim oPlacementPoint As Point2dSet oPlacementPoint = ThisApplication.TransientGeometry.CreatePoint2d("X-Koordinate", "Y-Koordinate")Call osheet.SketchedSymbols.Add(oSymbol,oPlacementpoint)------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor .NET : Austausch iAssembly in Zeichnung
Chris 31 am 01.12.2015 um 16:10 Uhr (1)
Hallo,kann es sein, dass immer die letzte Version der iAssembly auf den Blättern ist? Eine Ansicht auf einer .idw zeigt ja immer nur den aktuellen Stand der dargestellten Baugruppe. Solange du also die iAssembly nicht in allen Varianten speicherst und refernzierst, wird die dargestellte Baugruppe immer wieder geändert und am Ende hast du alle Blätter mit der gleichen Baugruppe.Was genau du mit deiner zweiten Frage meinst verstehe ich leider nicht.------------------MFGChris
|
| In das Form Inventor .NET wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Chris 31 am 22.12.2015 um 07:31 Uhr (1)
Du möchtest jedes mal ein neues Symbol erstellen? Alternativ könntest du eine Skizze erstellen, in die du deine Tabelle zeichnest und den Text einfügst.Code: Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Dim osheet As Sheet Set osheet = oDoc.ActiveSheet Set oSketch = osheet.Sketches.Add Dim oTextbox As TextBox Dim sText As String sText = "DIES IST EIN TESTTEXT" Call oSketch.Edit Set oTextbox = oSketch.TextBoxes.AddFitted(ThisApplication.TransientGeometry.Create ...
|
| In das Form Inventor VBA wechseln |
|
Inventor .NET : Austausch iAssembly in Zeichnung
Chris 31 am 02.12.2015 um 08:03 Uhr (1)
Zu deinem Zeilen-Problem könntest du das hier mal versuchen.Code: For row=2 to factory.TableRows.Count oSheet = oDrawingDocument2.Sheets.Item(oDrawingDocument2.Sheets.Count) oSheet.TitleBlock.Delete() oSheet.AddTitleBlock(oNewTitleBlockDef) oSheet.CopyTo(oDrawingDocument1) oSheet.DrawingViews(1).ReferencedDocumentDescriptor.ReferencedFileDescriptor.ReplaceReference(factory.TableRows) NextZu der Frage, ob die Variante in der Mutterdatei aktiv geschalt ...
|
| In das Form Inventor .NET wechseln |
|
Inventor VBA : Arbeitspunkt und ipt Dateinamen in einer Zeichnung auslesen
Chris 31 am 21.05.2015 um 15:06 Uhr (1)
Also, so wie ich das sehe wirst du in diese Bohrungstabelle keine iProperties reinbekommen, die keinen Bezug zu der Bohrung haben. Alle iProps, die in der Spaltenauswahl stehen beziehen ihre Werte ausschließlich aus der Bohrung selbst, haben also nichts mit dem Bauteil zu tun, in dem die Bohrung ist.Die Alternative wäre eine Allgemeine Tabelle nach deinen Wünschen formatiert und mit iProps gefüllt, die du vorher über VBA befüllst.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor .NET : Text ein/aublenden
Chris 31 am 03.06.2015 um 07:44 Uhr (1)
Du könntest dir doch in deinem Template die "Buttons" als Skizziertes Symbol in den Zeichnungsressourcen hinterlegen und dann mit Angabe eines Point per Programm auf der Zeichnung platzieren. Alternative wäre, das Propertie als Text zu platzieren und dann per Programm eine Skizze zu erzeugen, die einen Rahmen drum zieht. Das wäre aber sicherlich der aufwändigere Weg...------------------MFGChris
|
| In das Form Inventor .NET wechseln |
