|
Inventor VBA : Rückgabewert einer Funktion mit Argumenten
daywa1k3r am 18.11.2006 um 21:20 Uhr (0)
Klar.Code:Private Sub TestSub() Dim iResult As Integer iResult = Addiere(2, 4) MsgBox iResultEnd SubPrivate Function Addiere(x As Integer, y As Integer) As Integer Addiere = x + yEnd Function------------------Grüße daywa1k3rFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor : iam-Stückliste Spaltenauswahl speichern
daywa1k3r am 28.08.2007 um 20:40 Uhr (0)
Zitat:Original erstellt von Michael Puschner:Aber vielleicht blickt da ja ein VBAler oder .NETter durch oder ich habe noch eine XML-Datei übersehen ... C:ProgrammeAutodeskInventor 2008Design DataPartsList.XMLAls Anhang z.B. die Definition von DIN Tabelle...------------------Grüße IgorFX64 Software Solutions [Diese Nachricht wurde von daywa1k3r am 28. Aug. 2007 editiert.]
|
| In das Form Inventor wechseln |
|
Inventor VBA : Bauteil aus DA (Desing Accelerator) Konstruktions-Assistent erkennen
daywa1k3r am 09.06.2008 um 12:39 Uhr (0)
Hi Udo, war so wie vermutet ein weiteres PropertySet. Mit dem Makro kannst du es löschen. Schau dann ob sich das Bauteil so verhält, wie du es haben willst.Code:Sub DeletePropertySet() Dim oPart As PartDocument Set oPart = ThisApplication.ActiveDocument If (oPart.PropertySets.Count 5) Then oPart.PropertySets(5).Delete End IfEnd Sub------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Microsoft Visual Basic 2005 Express Edition und Inventor?
daywa1k3r am 25.07.2007 um 10:06 Uhr (0)
Zitat:Original erstellt von BernhardU:OK! Habe nachgelesen! SharpDevelop hat keinen Debugger der VB unterstützt! Die Projekte können zwar erstellt werden, jedoch nicht debuggt! Schade mfg Bernhard Heißt ja auch SharpDevelop und nicht BasicDevelop Schade.------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor .NET : Thumbnail.bmp to Image
daywa1k3r am 14.01.2008 um 19:32 Uhr (0)
Hallo Manfred,das kann ich mir nicht vorstellen. Ich hatte nie Probleme damit. Allerdings muss ich sagen, dass ich immer mit Apprentice-Dokumenten arbeite. Vielleicht gibt es da einen Unterschied. Arbeitest du auch mit Apprentice? Wenn nicht, welchen Sinn hat die Anzeige von Thumbnails von einem, im Inventor geöffneten Inventor Dokument?------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor .NET wechseln |
|
Inventor VBA : benutzerdefinierte iProbs löschen
daywa1k3r am 17.06.2008 um 14:08 Uhr (0)
Code:Sub Property_loeschen() Dim oDoc As Document Set oDoc = ThisApplication.ActiveDocument Dim oPropSets As PropertySets Set oPropSets = oDoc.PropertySets Dim oProp As Property Dim oPropSet As PropertySet Set oPropSet = oPropSets(4) For Each oProp In oPropSet oProp.Delete Next End Sub------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor : Inventor per Mausgesten steuern
daywa1k3r am 02.09.2006 um 21:37 Uhr (0)
Hallo Jürgen, du Freak Die MouseGestures benutze ich nahezu in allen Anwendungen. Betriebssystemübergreifend macht das StrokeIt (Freeware). Angesteckt damit hat mich natürlich mein Lieblings-Browser Opera. Ich wollte schon länger eine Anleitung für StrokeIt im Zusammenhang mit Inventor schreiben, aber jetzt bist du mir zuvor gekommen. BTW sieht sehr gut aus wie du das machst. ------------------Grüße daywa1k3rFX64 Software Solutions
|
| In das Form Inventor wechseln |
|
Inventor : Bauteilende
daywa1k3r am 03.01.2008 um 20:50 Uhr (0)
Na ja, für mich ging es auch nie um die Archivierung sondern um: Zitat:...wollten Sie schon immer mal wissen, wie sich die Dateigröße für den Datenaustausch temporär reduzieren lässt?...Obwohl das schon in dem ersten Beitrag stand, kamen deine Bedenken erst auf sobald ein Tool ins Gespräch kam. Entschuldige, dass ich das merkwürdig fand. Ich bin eben eine Mimose (aber, das müsstest du doch wissen) ------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor wechseln |
|
Inventor : Umwandlung Normteil - Bauteil
daywa1k3r am 29.09.2008 um 09:00 Uhr (0)
Zitat:Original erstellt von Fyodor:Hallo, Igor!Ist das Makro unter IV2008 (eventuell IV2009) lauffähig? Wenn ja: Gibt es das komplette Makro noch irgendwo? In dem ZIP weiter oben ist nur ein Bild...Ich weiß es nicht. Einfach mal probieren. Hier gibt es eine neuere Version. Die exe die es gab, habe ich leider nicht mehr...------------------Grüße IgorFX64 Software Solutions - Inventor Tools
|
| In das Form Inventor wechseln |
|
Inventor VBA : Save über CommandManager
daywa1k3r am 23.04.2007 um 16:40 Uhr (0)
Ich verstehe nicht was da nicht funktionieren soll!? Code:Sub test_save_asm() Dim oAsm As AssemblyDocument Set oAsm = ThisApplication.ActiveDocument ThisApplication.SilentOperation = True On Error Resume Next oAsm.SaveAs "C: est.iam", False If Err.Number = 0 Then MsgBox ("Alles klar") Else MsgBox ("Nix is klar") End If ThisApplication.SilentOperation = FalseEnd Sub------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor VBA wechseln |
|
Inventor : Bauteilende
daywa1k3r am 03.01.2008 um 21:41 Uhr (0)
Zitat:Original erstellt von Husky: In einem Punkt bin ich mir aber sicher : Das Zippen geht in der Summe sicher schneller und ökonomischer. Selbst meine M90 Zippt mit über 1MB/sec ...Das Zippen wird nicht ausgeschlossen. Das kann aber jeder manuell machen. Also für mich wird die Sache interessant, wenn die Datenmenge z.B. auf 30% kommt, und es kommen später auch keine Probleme bei Öffnen von Dateien. ------------------Grüße IgorFX64 Software Solutions
|
| In das Form Inventor wechseln |
|
Inventor VBA : Flächen automatisiert anwählen, um deren Farbe zu ändern
daywa1k3r am 05.03.2007 um 15:06 Uhr (0)
Code:Sub SelectAllFaces() If (ThisApplication.ActiveDocumentType kPartDocumentObject) Then MsgBox "Nur für Bauteile gedacht...", vbOKOnly, "Falscher Dokumenttyp" Exit Sub End If Dim oPart As PartDocument Dim oFace As Face Dim oSurfaceBody As SurfaceBody Set oPart = ThisApplication.ActiveDocument For Each oSurfaceBody In oPart.ComponentDefinition.SurfaceBodies For Each oFace In oSurfaceBody.Faces oPart.SelectSet.Select oFace Next NextEnd Sub------------------Grüße IgorFX64 So ...
|
| In das Form Inventor VBA wechseln |
|
Inventor : Begrenzung für Anzahl von Benutzerdefinierten Iproperties?
daywa1k3r am 17.04.2008 um 15:34 Uhr (0)
Zitat:Original erstellt von MatthiasG: So, die hab ich jetzt drin,und wie krieg ich sie wieder raus ;) MatthiasIch mag dich :D Für Alle die die Meldung Wollen Sie die Änderungen speichern mit Ja bestätigt haben Code:Sub Delete_Test_UserProps() Dim oPart As PartDocument Set oPart = ThisApplication.ActiveDocument Dim oUserProps As PropertySet Set oUserProps = oPart.PropertySets.Item(4) Dim oProp As Inventor.Property For Each oProp In oUserProps If oProp.Value = "test" Then oProp.Delete ...
|
| In das Form Inventor wechseln |
