|
Inventor VBA : Werte aus Excel Datei lesen und Bauteil einfärben
bwr am 02.08.2011 um 07:06 Uhr (0)
Hallo Alex,ich denke hier findest du alles was du suchst.GrußAndi
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Werte aus Excel Datei lesen und Bauteil einfärben
RfidAlex am 02.08.2011 um 09:00 Uhr (0)
Ahhh, das sieht gut aus!Besten Dank!
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : VB Express DLL für x86 läuft nicht
TH-Sulzer am 03.08.2011 um 11:03 Uhr (0)
Hallo zusammen, Habe versucht eine Datenbank Anbindung in VB.Net Express ( Listbox ) zu realisieren. Hierbei muss ich auf x86 Databank Engine ausweichen da es scheinbar für 64bit nichts gibt. Somit hab ich in Express als Zielsystem x86 eingestellt. Seither bekomme ich keine Fehlermeldung bzgl. der Datenbank mehr. Allerdings macht die Einbindung in Inventor Probleme. Inventor macht mit der DLL nicht mehr das was zuvor geschah ( Dialog öffnen ! ) und meldet: Die Datei oder Assembly "file:///U:...." oder eine ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : File bei SaveAs nicht überschreiben
startrek am 19.08.2011 um 20:13 Uhr (0)
Hi Toni,wies mit dem internen Speichern unter - Dialog bei der DIVA aussieht, keine Ahnung;-)Kannst ja als Krücke, wenn bei der msg-Box vbno geklickt wurde, eine Inputbox anbieten, wo der User nen eigenen Namen vergeben kann. (und diesen dann an den existierenden Pfad verketten) Allerdings müsste man diesen Vorgang auch wieder auf bereits vohandene Datei checken (Schleifchen drum o.ä.)Schicker wärs natürlich mit Original-Dialog, aber weiss nicht, obs simpel ginge oder nur mit APIs zu erschlagen wäre.Grüße ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : File bei SaveAs nicht überschreiben
RODER am 18.08.2011 um 13:18 Uhr (0)
Hallo ZusammenHabe mir ein kleies Script zusammengestellt, welches mir nach ein paar anderen Schritteneine Zeichnung als PDF speichert.So weit funktionniert das auch, nun möchte ich aber nicht, dass mir einvorhandenes File (mit dem selben Namen) automatisch überschrieben wird.Ich möchte in dem Fall die selbe Frage gestellt bekommen wie wenn ich manuelleine Datei "Speicher unter" wähle und die schon besteht.Hier mal ein Teil vom Code: Dim oContext As TranslationContext Set oContext = ThisApplication.Trans ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : File bei SaveAs nicht überschreiben
startrek am 18.08.2011 um 16:50 Uhr (0)
Hallo,mit:Code:if fso.fileexists(pfad+name) then ...könntest du prüfen, ob die Datei bereits existiert.HTH, Nancy
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Druck-Makro mehrseitige Zeichnungen
RODER am 19.08.2011 um 11:03 Uhr (0)
HalloHier mal ein Teil von meine Code:Check number of Pages Dim NumPages As Integer NumPages = dDoc.Sheets.Count Dim s As Integer s = 1 Dim byWert As Byte Sheet Number 1 If NumPages 1 Then Create File Name and Path If Len(Trim(dDoc.FullFileName)) 0 Then outFile = fso.GetParentFolderName(dDoc.FullFileName) & "" & fso.GetBaseName(dDoc.FullFileName) & " Blatt 1" & ".pdf" Set Activ Sheet to Sheet Number s dDoc.Sheets(s). ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Teile aus Dateinamen in iproperties eintragen
noctis79 am 27.09.2011 um 21:40 Uhr (0)
Gibt´s ^^Eigentlich ganz einfach...Willst Du dann die ganzen Dateien öffnen und von Hand das Makro ausführen? Erledigt das dann ein Jobserver bei euch? Soll das ganze mit Inventor passieren oder über den Apprentice- Server (ohne Inventor)???Fragen über fragen...Hier mal ein Lösungsansatz für Inventor:Code:Public Sub IdentProperties() Dim oapp As Inventor.Application Dim oDoc As Inventor.Document Set oapp = ThisApplication If oapp.ActiveDocument Is Nothing Then MsgBox "Kein Dokume ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Teile aus Dateinamen in iproperties eintragen
CAD-Huebner am 27.09.2011 um 22:04 Uhr (0)
Ab 2011 könnnte man das auch mit einem kleinen externen ILogic Makro durchführen lassen (z.B. beim Öffnen der Datei).------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 08.10.2011 um 22:20 Uhr (0)
Ist möglich. Hier mal ein kleiner Ansatz...Deine Excel- Datei erhält aber im Moment nur den Datei- Namen der IDW."Benennung" müsstest Du genauer definieren (Benennung als iProperty, oder meinst Du die Bezeichnung im Browser- Baum?) Willst Du das iProperty unbedingt haben? Wenn ja, welchen Namen hat das iProperty? Ist es ein Benutzerdefiniertes iProperty?Code:Sub export_BOM()Dim oapp As Inventor.ApplicationSet oapp = ThisApplicationDim odoc As Inventor.DrawingDocumentIf oapp.ActiveDocument.DocumentType kD ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 10.10.2011 um 18:20 Uhr (0)
Füg mal bitte vor dem Fehler das noch ein:Code:Dim objFSO As FileSystemObjectSet objFSO = New FileSystemObjectIf Not objFSO.FileExists(oTemplate) Then MsgBox "Template- Datei wurde nicht gefunden!", vbCritical + vbOKOnly, "Template" Exit SubEnd Ifund erstell einen Verweis (wie oben schon beschrieben) auf das Microsoft Scripting Runtime...Hab so eine Ahnung....Sollte der Fehler wieder auftauchen dann schau Dir nochmal die Zeile mitoTemplate = ".....xls" an.Bei Deinem post ist hinter dem xls noch ein L ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 10.10.2011 um 20:07 Uhr (0)
Da wünsch ich Dir viel Spaß...Wo bekommst Du die Revision her?Aus den iProperties?Mein Lösungsansatz wäre hier folgender:Prüfen ob xls- File existiert.Wenn ja, export als template.xlsÖffnen der template.xls, kopieren des sheets mit der Revision und das Ganze in die Original- Datei kopieren...Wird ein Spaß!
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 12.10.2011 um 07:42 Uhr (0)
Schon getestet?Beim 2011ér überschreibt er die kpl. Datei...Code:Dim oPropRev As PropertySetDim iRev As PropertySet oPropRev = odoc.PropertySets.item("Inventor Summary Information")For Each iRev In oPropRev If iRev.DisplayName = "Revisionsnummer" Then If iRev.Expression = "" Then oName = "0" Else oName = iRev.Expression End If End IfNextIch geh mal davon aus Du meinst Revisionsnummer?!?Die Zeile oName = .... löschen und den Code dafür einfügen.[Diese Nachricht wurde von noctis79 am 12. O ...
|
| In das Form Inventor VBA wechseln |
