|
INVENTOR VBA : Werkzeugkästen verschwinden lassen?
startrek am 28.02.2004 um 18:31 Uhr (0)
Abend Hans-Peter, ohne zu wissen was ich ausgerechnet hier tue: bei Programmstart erstellst Du Deine Symbolleiste, mit irgendsowas oder so: commandbar( blabla ).add dann müstest Du theoretisch prüfen, wieviel Zeichnungen offen sind und halt irgendsoähnlich lautend: if application.documents.count=0 then commandbar( blabla ).visible=false ausblenden else commandbar( blabla ).visible=true einblenden end if Andersrum würde ich versuchen beim schliessen einer Zeichnung wiederrum zu prüfen, ob dies die letz ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Stückliste per Makro auslesen
rkauskh am 24.08.2012 um 19:10 Uhr (0)
HalloIn deiner Beispielzeichnung ist das iPropertie "Bezeichnung" leer. Kein Wunder das in der Exceltabelle nix ankommt. Entweder füllst du dieses oder du ersetzt dasCode:For Each i In oProp If i.Name = "Description" Then oDescription = i.Expression ElseIf i.DisplayName = "Bauteilnummer" Then oPartNumber = i.Expression End IfNextmit demCode:For Each i In oProp If i.DisplayName = "Bauteilnummer" Then oPartNumber = i.Expression End IfNextDim oReferencedDoc As DocumentSet oReferencedDoc = odoc.R ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Austausch von Zeichnungsrahmen
PaulSchuepbach am 15.11.2004 um 16:56 Uhr (0)
Hallo Andreas, schau mal da rein, zeichnet einfach ne Linie in einen bestehenden Rahmen: Private Sub editBorder() Dim oApp As Inventor.Application Set oApp = ThisApplication Dim oDoc As DrawingDocument Set oDoc = oApp.ActiveDocument For i = 1 To oDoc.BorderDefinitions.Count Debug.Print oDoc.BorderDefinitions(i).Name Next i Rahmen 1 editieren Dim oSketch As DrawingSketch Call oDoc.BorderDefinitions(2).Edit(oSketch) Dim oPt1 As Point2d Set oPt1 = oApp.Transient ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : DWG - Bemaßung
rkauskh am 18.11.2024 um 09:14 Uhr (1)
MoinDu kannst auch bereits in der IPT Skizzenbemaßungen oder 3D-Modellanmerkungen an das Stanzbild setzen. Das kommt darauf an, wie die zu bemaßende Geometrie erzeugt wird. Wenn eine Reihe Löcher erst durch eine Reihenanordnung erzeugt wird, kann man in der Skizze logischerweise den Lochabstand noch nicht bemaßen. Eine Mischung aus beiden ist auch möglich.Die Bemaßungen können in der Ansicht auf der Zeichnung abgerufen und eingeblendet werden. Meist fliegen die Bemaßungen dann irgendwo hin und das Position ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : prüfen ob Zusammenbauzeichnungen akt. werden müssen
bkrüger am 07.09.2020 um 19:16 Uhr (1)
Zitat:Original erstellt von EIBe 3D:Hallo zusammen,hab das ganze nun mal hier nachvollzogen und das gleiche Verhalten bkrüger beobachten können.RequiresUpdate scheint über Apprentice nicht abzurufen zu sein. Apprentice lädt wohl nicht das zur Zeichnung zugehörige 3D-Modell, womit kein Vergleich möglich ist.GrüßeEIBe 3DDoch, doch - Apprentice lädt die referenzierten Dateien - referenceddocuments, referencefiles usw. sind belegt - das sind sie jedoch nicht, wenn er die ref. Dateien nicht findet - er generier ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Makro zur Abfrage der Stücklistenstruktur (Referenz?)
THPET am 22.05.2008 um 20:11 Uhr (0)
Einfach geht es wenn die Stückliste der Zeichnung abgefragt werden soll:Private Sub AddStkL() Dim oDrawDoc As DrawingDocument Set oDrawDoc = oIDWDoc Dim oPartList As PartsList Dim oPartLists As PartsLists Set oPartLists = oSheet.PartsLists For Each oPartList In oPartLists Dim I As Long MacheFett oExcel.Cells(oZeile, 3).Value = "Teileliste von: " + oPartList.ReferencedDocumentDescriptor.DisplayName oZeile = oZeile + 1 MacheFett For I = 1 To oPartList.PartsListColumns.Count oExce ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : FullFileName editieren
Shakie am 01.03.2005 um 09:14 Uhr (0)
Hmm,wie es aussieht habe ich schon das ServicePack 1 drauf. Aber leider funktioniert "PutLogicalFileNameUsingFull" trotzdem nicht auf 2D-Ableitungen ("*.idw").Was heißt in dem Textfile des SP1 "Folgende Probleme blablabla werden BEHANDELT"? Ist das Problem behoben, bekannt oder hinzugefügt worden?Hat jemand einen Vorschlag, wie man das zum funktionieren bringen kann oder ob es eine Funktion gibt, auf die man ausweichen kann?PS.: für alle, die nicht nochmal alles vorher lesen wollen:Ich habe eine 3D-Zeichnu ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Probleme beim Drucken mittels VBA
Tacitus am 25.07.2005 um 09:06 Uhr (0)
Ich verwende folgende Routine um meine Dateien als pdf-Dateien zu drucken und habe seit Inventor 10 das gleiche Problem das das letze Blatt eine Zeichnung bis zu 15 mal wiederholt wird. Was hat sich denn geändert zu Inventor 9 ? Sub PlotAllSheetsInDrawing() Print all sheets in drawing document Get the active document and check whether it s drawing document If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then Dim oDrgDoc As DrawingDocument Set o ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : direkt ANSICHT1 bearbeiten
Enduro am 19.11.2012 um 10:56 Uhr (0)
Hallo ich habe folgende Frage: wie kann ich die iProps von der Datei bearbeiten, die zwar eine der Referenzen ist aber Ansicht eins ist?ich hab ja bisher den CodeCode:Dim oReferencedPartDoc As DocumentSet oReferencedPartDoc = oDoc.ReferencedDocuments.Item(1)oReferencedPartDoc.PropertySets.Item("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Revision Number").Value = "Revisionsnummer"verwendet. Das Problem ist aber, dass das Item(1) die erste Ansicht im Browser ist und nicht die erste Ansicht in der Zeichn ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : dxf export mit Optionen
rkauskh am 21.04.2009 um 19:19 Uhr (0)
HalloKleiner Fehler von mir, hatte das benutzerdef. iProp "Revision" nicht in meiner Test-IDW. Solltest du über ein Errorhandling an der Stelle nachdenken oder tritt der Fall nie ein bei euch?Die ZeileCode: If oAppAddIns(intIndex).ShortDisplayName = "Autodesk DXF-Translator" Thenmußte ich in Code:If oAppAddIns(intIndex).ShortDisplayName = "Translator: DXF" Thenändern, da bei Inventor 2008 bei mir eben das drinsteht.Ob die ini dort ist wo du sie vermutest, sollte über if fileexists geprüft werden. Anderfall ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Kisten Generator
Rydeordie am 22.06.2012 um 08:39 Uhr (0)
Hallo Zusammen, ich möchte gerne für Inventor ein Makro mit folgender Funktion schreiben:Benutzer öffnet mit dem Makro eine Userform mit Buttons und eingabe feldern.Eingabefelder: Höhe, Breite, Tiefe, Wandstärke, KistennummerButtons: [Erstelle Kiste], [Erstelle Zeichnung],[Kiste Speichern] ,[Abbrechen]Am besten wäre das Makro immer als Schaltfläche im Inventor eingebunden.Der Benutzer klickt auf [Erstelle Kiste] und es soll eine Vorlage mit 3D Modell geöffnet werden und die Maße werden aus den Eingabefelde ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Point2D und addBaseView geht nicht ...
RolandWeber am 07.10.2006 um 15:36 Uhr (0)
Hallo LeuteInventor 9Möchte eine neue Zeichnung erstellen und einen gewissen Zusammenbau automatisch einfügen.Soweit so gut.So sieht es aus ...ThisApplication.Documents.Add kDrawingDocumentObject, CopyTestCAD.PfadZusammenbau & "pamatech_test.idw", TrueDim oDrawingDoc As DrawingDocumentSet oDrawingDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, CopyTestCAD.PfadZusammenbau & "pamatech_test.idw", True)Dim oPoint1 As Point2dSet oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(5#, 7#)Debug. ...
|
| In das Form Inventor VBA wechseln |
Macro.txt |
Inventor VBA : Symbol aus externer Bibliotheksdatei austauschen
ofencad am 24.08.2023 um 14:54 Uhr (1)
moin.Ich habe ein kleines Problem.Einzusetzende Symbole sind in einer externen Bibliotheksdatei (Bibliothek.idw) im Netzwerk abgelegt, um diese jedem zur Verfügung stellen zu können.Nun kann es sein, dass sich beispielsweise Norm-Angaben verändern, und diese Texte (in den Symbolen) dann aktualisiert werden müssen.Es besteht di Möglichkeit, dass man eine ältere Zeichnung aufruft, und sich dort ein solches Symbol befindet. - Diese möchte ich mit einem Macro tauschen (mit der aktuellsten Version, wenn vorhand ...
|
| In das Form Inventor VBA wechseln |
