|
Inventor VBA : Bemaßungen nummerieren
rtend12 am 28.02.2007 um 16:18 Uhr (0)
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 DrawingDocumentDim osheet As SheetDim oview As DrawingViewDim ostr As StringDim onum As IntegerDim oDrawDim As DrawingDimensionIf ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then Set idwdoc = ThisApplication.ActiveDocument For Each osheet In idwdoc.Sheets onum = 1 For Each oDrawDim In osheet.DrawingDimensions ostr ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zusammengehörige Bauteile/Baugruppe zu Zeichnung
rtend12 am 05.12.2006 um 22:07 Uhr (0)
Hallo freak-tom,compass ist doch ein vollwertiges Dokumanagementsystem. Da sollte compass sowas eigentlich selbst wissen. Kennt compass die Zeichnung zum Modell nicht?Oder lädst du ein Modell aus compass und willst nachträglich die Zeichnung aus compass laden?GrußReinhard
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Parallele Ansicht in Zeichnung
rtend12 am 20.07.2006 um 11:47 Uhr (0)
Hallo Rene,mit ein paar Anpassungen sollte der Code funktionieren.Ich hab noch eine Form auf der ich verschiedene Einstellungen für die Zeichnung mache, siehe Bild.Code:Function oViewAdd()Set oIDW = ThisApplication.Documents.Add(kDrawingDocumentObject, temp_str)Dim oopt As ControlDim ostab As DoubleDim oStyle As LongFor Each oopt In frmIDW.Frame_maßstab.ControlsIf oopt.Value = True Thenostab = Val(oopt.Tag)End IfNext ooptFor Each oopt In frmIDW.Frame_Style.ControlsIf oopt.Value = True ThenoStyle = Val(oopt ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Zusammengehörige Bauteile/Baugruppe zu Zeichnung
rtend12 am 14.07.2006 um 00:18 Uhr (0)
Hallo Sam,wenn du dein Zeichnugen im gleichen Ordner und dem gleichen Namen abgespeichert hast kannst du auch folgendes Makro nehmen. Code: Option Explicit Dim odoc As Document Dim fs As Object Dim odocname As String Dim pfad As String Dim dateiname As String Public Sub OpenIDW() Set odoc = ThisApplication.ActiveDocument odocname = odoc.FullFileName If odocname = "" Then MsgBox "Bitte Modell erst speichern!" Exit Sub End If pfad = Left(odoc.FullFileName, InStrRev(odocname, "")) dateiname = ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stüli + Header + VBA
rtend12 am 13.10.2006 um 13:45 Uhr (0)
Hallo rAist,was war das für eine Schulung?Was ist die "Kopfzeile"?Wie soll das im Excel aussehen?So gehts:1.- Stückliste exportieren- "Kopfzeile" aus Zeichnung auslesen- exportierte Stückliste öffnen- "Kopfzeile" eintragen2. - "Kopfzeile" aus Zeichnung auslesen- "Kopfzeile" in Stückliste eintragen- Stückliste exportierenGrußReinhard
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Verknüpfte Datei im Schriftkopf
rtend12 am 15.11.2006 um 15:38 Uhr (0)
Hallo de-os,vielleicht verstehst du auch nicht was in dem Code steht.Du hast die Zeichnung offen, von der du wissen willst welches Modell darin vorkommt, wenn nicht - öffnen.Diese Datei verweist auf Modelle, entspricht referencedfiles. Diese kannst du mit for each duchlaufen und du kriegst die Dateien die in der Zeichnung dargestellt sind.In der foeach-schleife kannst du dann die Eigenschaften abfragen, die du haben möchtest. Msgbox(tempdoc.fullfilename) war nur ein Beispiel.GrußReinhard
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : FreePDF XP und Makros
rtend12 am 06.09.2006 um 22:33 Uhr (0)
Hallo VBSpawn,ich drucke wie du zuerst in ps-Datei und dann per FreePdf in pdf.Habe bisher den Apple-Treiber verwendet. Hatte bisher max. A2-Zeichnungen, weshalb bei mir das Problem nicht vorkam.Hab jetzt mal den OCE-Treiber probiert, Ergebniss siehe Anhänge.Was läuft da falsch?Größe, Ausrichtung passt, aber die Position auf dem Blatt ist eher suboptimal. Gedruckt mit fullscale. Wenn ich auf bestfit umstelle ist zwar die ganze Zeichnung drauf, dann kann ich aber aus der A2 einen Großteil aussenrum wegschne ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Schriftköpfe aktualisieren
rtend12 am 21.05.2007 um 12:15 Uhr (1)
1. aktuelle Datei ermittelndim odoc as drawingdocumentSet odoc = ThisApplication.ActiveDocument2. die Datei, die das neue Schriftfeld enthält öffnendim newdoc as drawingdocumentSet newdoc = ThisApplication.Documents.Open(hier den Pfad, False)3. Schriftfeld in Speicher holen:Dim oTitleDef As TitleBlockDefinitionSet oTitleDef = oSymDoc.TitleBlockDefinitions(hier Name des Schriftfeldes)4. Schriftfeld in aktulle Zeichnung kopieren:Call oTitleDef.CopyTo(odoc, True)Wenn das neue und das alte Schriftfeld den glei ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Plot auf Verschiedenen Formaten
rtend12 am 05.04.2006 um 21:47 Uhr (0)
Hallo Bernhard,in VB kannst du mit:Code: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MyPrinter.PrinterSettings.PrinterName = "HP DesignJet 3500CP PS3" Dim osizes() Dim i As Integer For i = 0 To MyPrinter.PrinterSettings.PaperSizes.Count - 1 ListBox1.Items.Add(MyPrinter.PrinterSettings.PaperSizes.Item(i).PaperName & MyPrinter.PrinterSettings.PaperSizes.Item(i).PaperName) Next End Sub Private Sub Button2_Click(ByVal sender ...
|
| In das Form INVENTOR VBA wechseln |
