|
INVENTOR VBA : Dialoge und Fehlermeldungen via VBA ausstellen
Arne am 06.12.2004 um 10:52 Uhr (0)
Hallo Forum, ich will via VBA den IV automatisch ansteuern, leider stolpere ich über die aufpoppenden Fehlermeldungen bzw. Fragen, ob z.B. eine Speicherung erfolgen soll. Kann man diese schon im VBA ausstellen? Ich habe bei Anwendungsoptionen /Meldungen geschaut, aber komplett deaktiviert habe ich es nicht bekommen. Gruß und Dank! Arne PS Hier ein Ausschnitt auch dem Quellcode und der Stelle an welcher Excel/VBA auf die Eingabe in der OLE Anwendung warte: oView.SaveAsBitmap "c:" & filename & Format(Now(), ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Zeichnungskopf austauschen
freak-tom am 16.09.2009 um 17:57 Uhr (0)
Hallo Muelb,vielleicht als Hilfe mein fertiges Macro, das funktioniert!Code:Public Sub Schriftfeld_ersetzen() MsgBox Environ$("Inventor") If ThisApplication.ActiveDocument Is Nothing Then MsgBox "No Document open", 16, "Error" Exit Sub End If If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then MsgBox "No Drawing", 16, "Error" Exit Sub End If Dim oApp As Application Set oApp = ThisApplication Dim i As Long Dim oDrawDoc As DrawingDocument Set oDrawDoc = ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Probleme mit Excel
Buskonne am 22.02.2008 um 08:34 Uhr (0)
Hi Leute,ich bin neu hier, daher eine kurze vorstellung von meiner seite:mein nic resultiert aus meiner vorliebe für VW busse aller generationen (darf stolz einen wunderschönen 71er und einen, natürlich ebenso schönen, 96er, jeweils 9-sitzer, mein eigen nennen) und meinem namen (Konrad).ich bin (noch) maschbau-student und versuche seid 2 jahren mein diplom irgendwie zu schreiben (arbeit ging bislang vor). jetzt habe ich mir einfach mal die zeit genommen und damit begonnen. wir (besser eigentlich ich, ich b ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : iPart Tabellen analysieren
TSch am 20.10.2004 um 09:30 Uhr (0)
Hallo Forum ! Da leider niemand helfen kann, hier die "Lösung": Die Lösung ist, daß es keine gibt..... Aber einen (sehr aufwendigen) Workaround kann man bauen: - Vergleiche Spaltennamen und Parameternamen, wenns passt, ist die Spalte ein Parameter - Gehe durch die Liste der Konstruktionselemente. Wenn Featurename und Spaltenname passen, wird s wohl eine Unterdrückung sein... - Bei den Properties ist es einfacher, hier kann man das aus der ersten Zeile des Excel Embeddings auslesen ( Spaltenname = ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Properties ohne öffnen einer Datei
yamaha am 23.05.2004 um 18:44 Uhr (0)
Hey, habe folgenden Code ausprobiert ==================================================== Public Sub UebernahmeProperties() Dim objApp As New ApprenticeServerComponent Dim objDoc As ApprenticeServerDocument Dim oPropSets As PropertySets Dim oPropSet As PropertySet Dim oProp As Property Set objDoc = objApp.Open( D:Konst_Inventor LaptopINVENTOR_ZeichnungenVogelhausFuß.ipt ) Set oPropSets = objDoc.PropertySets in dieser Zeile Fehlermeldung For Each oPropSet In objDoc.PropertySets For Each oProp I ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Blechteile einer Baugruppe in DXF konvertieren
Roman1000 am 13.03.2008 um 11:01 Uhr (0)
Moin Moin!Ich habe hier aus dem Forum den (wahrscheinlich allgemein bekannten) Code zum erstellen von DXF-Dateien aus Blechteilen verwendet.Jetzt möchte ich diesen erweitern, und zwar auf Baugruppenebene. Meine Baugruppe besteht aus mehreren Blechteilen, deren Größe ich "Excel-gesteuert" verändere. Die Blechteile sollen danach mit einem Laser zugeschnitten werden. Wenn ich aus einer einzelnen .ipt eine DXF erstellen will, nutze ich für das oDoc (PartDocument)Code:Dim oDoc As PartDocument Set oDoc = Th ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Exportiern der Punktkoordinaten mit den Bauteilnamen
Tacker am 09.10.2017 um 13:49 Uhr (15)
Hallo Naja, Name = selectedObj.ContainingOccurrence.NameSo kommst an den Namen. Achtung! Es gibt nicht immer ein ContainingOccurrence, ergo sollte da noch eine IF Abfrage rein ob der Punkt auch wirklich verknüpft ist.If not selectedObj.ContainingOccurrence is Nothing thenName = selectedObj.ContainingOccurrence.NameElseName = ""End ifWie und wo du den Wert dann in deine Excel Datenbank haben willst musst du selbst wissen.BTW, das hätte man recht einfach herausgefunden wenn man beim Debugging im Lokal Fenst ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Dateiinfo von IDW-Zeichnungen
McBain05 am 09.11.2011 um 14:37 Uhr (0)
Hallo Zusammen,ist es nicht möglich über VBA Informationen in die Dateiinfo zu schreiben?In Excel ist die ja auch über:ThisWorkbook.BuiltinDocumentProperties(5) = "Mein Titel"möglich.Wir bräuchten das bei uns für die AV, die ohne IV Arbeitet und im Explorer gleich die Blattgröße erkennen soll.Die Blattgröße in die iProperties zu schreiben ist nicht das Problem:------------------------------------------------------------------------------- Dim zeichnung As DrawingDocument Set zeichnung = ThisApplication.Ac ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile rotieren mit VBA - aber wie geht das?
murph am 22.10.2014 um 12:15 Uhr (5)
Servus cad.de-Community,ich möchte bei Inventor Bauteile in einer Baugruppe mit Winkelwerten (welche ich aus einer Excel-Tabelle importiert habe) um die eigenen Koordinatenachsen des jeweiligen Bauteile rotieren. Mit den "normalen" Features zum Zusammenbau von Inventor scheint das nicht zu gehen, in den iProperties sind die Winkel grau und nicht editierbar. Ich bin auf den Hinweis gestoßen, dass das mit VBA gehen soll. Ich habe zwar schon mal programmiert, aber von der Skriptsprache VBA keine Ahnung.Ich ha ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : firmenweite Voreinstellungen
StevenS am 12.05.2004 um 08:44 Uhr (0)
Hallo, ich habe bisher keinerlei Hinweis gefunden, wie ich meine selbst geschriebenen Macros im Inventor benutzerfreundlich für die User bereitstellen kann. Ich habe die Macros in die default.ivb eingebracht und diese ins Netzwerk gestellt. Alle User haben Inventor so eingestellt, daß das Defaul VBA Projekt von dieser Datei im Netz geholt wird, damit haben alle die Makros. Jetzt möchte ich ein neues Menü erzeugen und die Makroaufrufe dort hinein plazieren. Ist eigenlich kein Problem, es muß nur jeder se ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : iProperty auslesen -> Tabelle einfügen
Wattwurm am 08.04.2020 um 16:36 Uhr (1)
Hallo und guten Tag,ich möchte (Imventor 2014) einen Wert aus einer benutzerdefinierten iProperty (Bsp: "TG4") auslesen und in Abhängigkeit von diesem Wert eine (vorgefertigte) Tabelle in die Zeichnung einfügen. (Toleranzgruppe DIN16742 - Auszug der Toleranztabelle für diese TG)Ich hatte gedacht, ich könne eine Zeichnung erstellen, in der alle Tabellenauszüge TG1 bis TG9 drin sind, diese unterschiedlich benennen oder als skizzierte Symbole ablegen und dann aus dieser Zeichnung herauskopieren und in die akt ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : iproperties der Einzelteile in einer Baugruppe ändern
Thomas Thomas am 12.09.2020 um 06:32 Uhr (1)
Hallo,ok Danke, da schaue ich mir mal SubOccurrences an.Zitat:Dein Vorhaben funktioniert nur unter der Bedingung, dass die Bauteile einer Kaufbaugruppe nicht als Einzelkaufteile verbaut werden.Das ist gegeben, das die Einzelteile von der Kaufteilbaugruppe nicht als Einzelteil verbaut sind.Zitat:Des weiteren sollte man auch gleich darüber nachdenken was mit Unterbaugruppen in Kaufbaugruppen passiert. Auch eine Kategorie "K"? Bestellt euer Programm dann die Kaufbaugruppe und die Kaufunterbaugruppe?Das ist ri ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Regel auf alle geöffnete Dateien
Big-Daddy am 24.10.2019 um 11:24 Uhr (1)
Hallo zusammen,ich versuche gerade eine Ilogic Regel zu basteln die durch alle geöffnete Dateien in Inventor (iam und ipt) durchläuft.Die Aufgabe der Regel ist eine Nummer aus Excel auszulesen und in die Iproperties zu schreiben. Diese läuft bisher auch tadellos. Sobald ich eine Schleife versuche zu Programmieren kommt eine Fehlermeldung.Code:Dim Doc As DocumentFor Each Doc In ThisApplication.Documents Doc.ActivateIf iProperties.Value("Project", "Part Number") = "" ThenDim oDoc As Document = ThisDoc.Doc ...
|
| In das Form Inventor VBA wechseln |
