|
Inventor VBA : Abgelei.Kompo. - Verknüpfung mit Basisbaugruppe lösen?
cadtb am 12.12.2008 um 08:33 Uhr (0)
Ich habe ein ähnliches Problem, wobei ich hoffe das das einfacher zu erschlagen ist als jede Baugruppe nach Verknüpfungen zu durchsuchen und für jede nachzuschauen ob die Datei existiert.Ich bekomme beim automatischen Umwandeln von einer Datenbank diese "Verknüpfung auflösung" angezeit. (siehe Bildanhang)Wie kann ich die unterbinden? Die Verknüpfungen zu den Teilen die er nicht findet soll er einfach löschen oder ignorieren, wie auch immer. Er soll nur eben nicht die Operationen anhalten.Wie kann ich das r ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Layer in automatisch erstellter DXF-Datei
Eman1 am 23.12.2008 um 15:46 Uhr (0)
Hello Everyone,Kann mir jemand sagen ob der eintrag "invisibleLayers" in 2009 funktioniert. Bei mir wird the layer "aux" immer sichtbar exportiert.Ist das ein program-error oder ist da etwas am code falsch (siehe unten)sOut = "FLAT PATTERN DXF?" _ + "AcadVersion=R12" _ + "&OuterProfileLayer=cut" _ + "&InteriorProfilesLayer=cut" _ + "&FeatureProfilesLayer=aux" _ + "&TangentLayer=aux" _ + "&BendLayer=aux" _ + "&ToolCenterLayer=punch" _ + "&ArcCentersLayer=punch" _ + "&InvisibleLaye ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Default Speichername ändern
lbcad am 31.01.2009 um 17:55 Uhr (0)
Hi Alex,der Inventor schlägt den Namen für die Datei vor, mit dem die Datei im Browser schon bezeichnet ist. Das ist nun mal standardmäßig so. Wenn Du es anders möchtest, kannst Du auch eine Bauteilnummer vergeben und eine Benennung und mein Makro für den Displaynamen benutzen, das schwirrt hier irgendwo herum. Dann wird der Displayname zu:Bauteilnummer - Benennung. Das hat dann schon mal viel mit dem Teil zu tun.------------------Gruß Lothar ---------------------------------------------------Während man ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Kann ThisDrawing.ActiveSelectionSet nicht leeren
daywa1k3r am 12.02.2009 um 08:36 Uhr (0)
Zitat:Original erstellt von rkauskh:HalloAus dem Bauch heraus gefragt, warum setzt du das SelectSet nicht auf Nothing wenn du es sowieso komplett leeren willst? Hast du das schon selbst ausprobiert?@GloemUnd du bist dir sicher, dass das nicht AutoCAD ist? Im Inventor heißt es ThisApplication.ActiveDocument.SelectSet.ClearUnd die Endlosschleife ist normal, denn wenn er das erste mal das SelectSet nicht bereinigen kann, warum sollte er es bei zweiten mal können. Das hat sicherlich andere Gründe.------------ ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Kann ThisDrawing.ActiveSelectionSet nicht leeren
Gloem am 12.02.2009 um 17:09 Uhr (0)
Sorry, ich bin wirklich im falschen Forum gelandet. Natürlich ist das AutoCAD-VBA. Hab mich schon gewundert warum ich meinen eigenen Post nicht wiederfinden konnte.Die SChleife sollte nur ein Beweis sein, das es wirklich nicht funktioniert
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Makro erstellen
wernerohnew am 17.02.2009 um 11:17 Uhr (0)
Hallo zusammen,wer kann mir behilflich sein bei einer Makroerstellung?? Ich möchte mit Hilfe des Inventor Dateilisten erstellen. Wenn ich dies von Hand mache sieht das folgendermaßen aus:Im Inventor gehe ich auf Datei öffnen, dann auf Suchen. An dieser Stelle suche ich nur nach einem Dateityp (z.B. ipt oder idw oder iam oder idw). Das Suchprogramm rennt nun los und bringt mir eine Liste heraus, welche ich im Text-Format an einer bestimmten Stelle abspeichere.Ich freue mich über jede Hilfe (Literaturhinweis ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Makro erstellen
wernerohnew am 20.02.2009 um 15:37 Uhr (0)
Hallo Reinhard,wenn Du es genauer wissen willst, muss ich etwas weiter ausholen. Dass wir nicht über eine Dokumentenverwaltung verfügen hatte ich schon geschrieben. Der Dateiname unserer Dokumente ist gleich die Artikelnummer. Das heißt eine 0815.idw bildet den Artikel 0815 ab.So weit so gut. Jetzt gehe ich folgendermaßen vor. Aus PPS-System kann ich mir recht zügig eine Liste aller Artikel in eine Excel-Datei holen. Hier sind neben der Artikelnummer auch die anderen Bezeichnungen wie Benennung Abmaß usw. ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Makro erstellen
rtend12 am 20.02.2009 um 21:34 Uhr (0)
Hallo wernerohnew,die angehängte xls-Datei durchsucht nach vorheriger Auswahl den Ordner und schreibt alle gefunden IDWs, IAMs und IPTs in jeweils eigene Blätter.Kannst ja mal ausprobieren.VERWENDUNG AUF EIGENE GEFAHR!GrußReinhard
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Hauptkomponente der idw finden
Doc Snyder am 12.03.2009 um 17:21 Uhr (0)
Moin!Ich bastle mir grad einen Knopf, um aus der idw direkt ins referenzierte Modell zu springen. Klappt so weit schon ganz gut, nur in Baugruppenzeichnungen werden sämtliche beteiligten Modelle gleichrangig aufgelistet (z.B. 300 items) und das erste ist dann vielleicht nur irgendeine Schraube.Code:Public Sub OpenModel() Set odoc = ThisApplication.ActiveDocument If odoc.AllReferencedDocuments.Count = 0 Then MsgBox "Es ist in dieser Datei kein Modell referenziert." Else ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Hauptkomponente der idw finden
rkauskh am 12.03.2009 um 20:33 Uhr (0)
HalloProbier mal:Code:Public Sub OpenModel() Dim odoc As Document Dim dateiname As String Set odoc = ThisApplication.ActiveDocument If odoc.File.ReferencedFiles.count = 0 Then MsgBox "Es ist in dieser Datei kein Modell referenziert." Else dateiname = odoc.File.ReferencedFiles.Item(1).FullFileName End If ThisApplication.Documents.Open (dateiname)End Sub------------------MfGRK
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : File bei SaveAs nicht überschreiben
RODER am 20.08.2011 um 07:36 Uhr (0)
Hallo NancyHabs im moment so gelöst, dass ich wenn das File schon besteht dieAuswahl gebe überschreiben oder nicht.Weil wenn die Zeichnung richtig bezeichnet ist besteht das PDF davon noch nicht oder es gehört überschrieben.Allerdings kommt es in der Hitze des gefechtes schon mal vor, das z.B. der Änderungsindex im Dateinamen nochnicht angepasst worden ist und schon jemand ein PDF machen will. Deher muss ich es abfangen können.----If fso.fileexists(outFile) Then MsgBox "Datei existiert bereits, bitt ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : dxf export mit Optionen
hugeng am 16.04.2009 um 09:25 Uhr (0)
Hallo zusammenFolgendes Makro (Funktion) funktioniert einwandfrei:Code:Public Function Export2DXF(ByVal strFN As String, ByVal strFP As String, ByVal oRevision As String) Dim oApp As Application Set oApp = ThisApplication Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Dim bSaveAsCopyOptions As Boolean Dim oAppAddIns As ApplicationAddIns Dim oDataMedium As DataMedium Dim oDXFTransl As TranslatorAddIn Dim oTransObjs As TransientObjects Dim oTranslCntxt As TranslationContext ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : dxf export mit Optionen
rkauskh am 16.04.2009 um 12:39 Uhr (0)
HalloGibt es einen Grund keine angepaßte ini-Datei zu verwenden?Hab mir schnell mal eine test.ini angelegt mit "nur Modellgeometrie" und lade diese dann beim Export.Code:Public Function Export2DXF(ByVal strFN As String, ByVal strFP As String, ByVal oRevision As String) Dim oApp As Application Set oApp = ThisApplication Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Dim bSaveAsCopyOptions As Boolean Dim oAppAddIns As ApplicationAddIns Dim oDataMedium As DataMedium Dim ...
|
| In das Form Inventor VBA wechseln |
