|
INVENTOR VBA : Inventor + Excel
daywa1k3r am 26.10.2005 um 09:59 Uhr (0)
Zitat:Original erstellt von Emick:HiIch glaube der Fehler ist, ADD und Open nacheinader. Ich verstehe sowieso nicht warum nach ADD noch Open. Add ist danach offen.GrussEmickJa, könnte sein... Und das hier ist auch komisch:Code:oExcelApp.Workbooks.AddoExcelApp.Workbooks.Add.SaveAs (pfad + dateiName2(0) + " Stückliste.xls")------------------Grüße daywa1k3rFX64 Software SolutionsMold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : redim funzt bei mir nicht
daywa1k3r am 09.06.2005 um 10:17 Uhr (0)
Hi, du hast in Line2 mit dem redim LBound festgelegt, so musst du es auch bei ReDim Preserve weiter angeben: Code: ReDim Preserve liste(1 To UBound(liste()) + 10) ------------------ Grüße daywa1k3r FX64 Software Solutions Mold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : thumbnail von geladener komponente ??
daywa1k3r am 16.01.2006 um 06:40 Uhr (0)
Hallo Frank,ich werde bis heute Abend keine Zeit haben es zu testen, aber schau dir mal das FileDisplay C# Beispiel aus der SDK an. Da wird die Benutzung von dem Viewer und aber auch wie man eine PictureBox als einen Viewer missbraucht erklärt. Allerdings weiß ich nicht, wie sich die Sache verhält, wenn das Programm im gleichen Prozess wie Inventor läuft.------------------Grüße daywa1k3rFX64 Software SolutionsMold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : mehrdimensionales Datenfeld
daywa1k3r am 09.06.2005 um 15:20 Uhr (0)
So? Code: Private Type MYARRAY sArray() As String End Type Sub answer() Dim a(1 To 3) As MYARRAY Dim r%, c% For r = 1 To 3 For c = 0 To 9 ReDim Preserve a(r).sArray(c) a(r).sArray(c) = CStr(r) & | & CStr(c + 1) Next Next For r = 1 To 3 Debug.Print Join(a(r).sArray(), ; ) Next End Sub BTW Ist dir langweilig? ------------------ Grüße daywa1k3r FX64 Software Solutions Mold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Timer in Inventor VBA
daywa1k3r am 17.06.2005 um 10:00 Uhr (0)
Code: Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long) Private Sub test_timer() Debug.Print Started - & Time() Sleep 1000 Debug.Print Ended - & Time() End Sub ------------------ Grüße daywa1k3r FX64 Software Solutions Mold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Bibliotheksteil selbstgemacht?
daywa1k3r am 11.10.2005 um 22:18 Uhr (0)
Code:Public Sub Bibliotheksteil_selbstgemacht() If ThisApplication.ActiveDocumentType kPartDocumentObject Then Exit Sub Dim oPart As PartDocument Set oPart = ThisApplication.ActiveDocument oPart.SubType = "{9C88D3AF-C3EB-11D3-B79E-0060B0F159EF}" oPart.Save Dim sFileName As String sFileName = oPart.FullFileName oPart.Close True Call ThisApplication.Documents.Open(sFileName)End Sub------------------Grüße daywa1k3rFX64 Software SolutionsMold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Need Help!
daywa1k3r am 25.10.2005 um 13:04 Uhr (0)
Zitat:Original erstellt von philomba:Vielen Dank Thomas!Es funkioniert jetzte!Noch eine Frage am Rande:Wieso erscheint z.B. "Features" nicht im Scolldown-Menu das Automatisch erscheint nach "Set Extrusion1 = oCompDef."?GrußPhilippWeil CompDef. von Assembly, Part, Drawing, ... sein kann. Dein Interpreter kann nicht riechen was du meinst, und was während der Laufzeit kommt ------------------Grüße daywa1k3rFX64 Software SolutionsMold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Blatt Orientierung Hoch- oder Querformat
daywa1k3r am 22.07.2005 um 11:13 Uhr (0)
Zitat: Original erstellt von Fan-ME10: ...Wie aber kann man die Orientation feststellen? ... Ok, wenn du gesagt hättest Ausrichtung , hätte ich vielleicht verstanden, dass du die Eigenschaft nicht findest, da die in Englisch geschrieben ist. Aber du sagst es doch selbst Orientation . Also, was willst du noch wissen? Sheet.Orientation ? ------------------ Grüße daywa1k3r FX64 Software Solutions Mold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Migration INV 7 - INV 9 Makros auslesen
daywa1k3r am 11.08.2005 um 08:25 Uhr (0)
Zitat:Original erstellt von habkon:Uns würde es schon helfen wenn man herrausbekommen könnte in welchenBG oder BT überhaupt Makros vorhanden sind ???Das geht. Zitat:Original erstellt von Pordoi:Wenn ich das richtig verstanden habe würde es mit VBA gehen aber nicht mit IV VBA.IMHO richtig.------------------Grüße daywa1k3rFX64 Software SolutionsMold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Datei *.iam mit *ipt abspeichern !
daywa1k3r am 23.06.2005 um 01:08 Uhr (0)
Zitat: Original erstellt von anno45: Habe jetzt nur noch das Problem, das ich für die die geschlossene *.iam den DisplayNamen für das Document nicht weiß, wie ich den ändern kann. Bitte was? Code: Dim oApp As New ApprenticeServerComponent Dim oDoc As ApprenticeServerDocument Set oDoc = oApp.Open( C:MyDoc.iam ).DisplayName = Blah, blah... Aber wie du es abspeicherst? ------------------ Grüße daywa1k3r FX64 Software Solutions Mold&More Software Solutions [Diese ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Blatt Orientierung Hoch- oder Querformat
daywa1k3r am 22.07.2005 um 11:42 Uhr (0)
Zitat: Original erstellt von Fan-ME10: Hallo daywa1k3r, erstmal danke für deine schnelle Antwort. Ich will, wenn die Eigenschaft denn so heisst, die Sheet.Orientation auslesen und zum Plotten verwerten. D.h. oPrintMgr.Orientation = kPortraitOrientation oder die 2. Variante, die wahrscheinlich kLandscapeOrientation (heisst die wirklich so?) heisst setzen. Ja, die heisst so. ------------------ Grüße daywa1k3r FX64 Software Solutions Mold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Inventor AddIn mit VB.Net
daywa1k3r am 23.11.2005 um 23:02 Uhr (0)
So ganz nebenbei InternalName immer nur in Verbindung mit NameSpace (und zwar mit : ) . z.B. Schriftfeld:CmdIntName1 oCommandBar.Controls.AddButton(oButtonDef) liefert ein Rückwert. Also Call oCommandBar.Controls.AddButton(oButtonDef) oCommandBar besitzt keine Eigenschaft PanelBar Debuge mal dein Projekt, dann weißt du auch wo es abstürzt (das geht doch mit .NET viel besser als mit VB) Benutze für die Fehlerbehandlung Try-Catch in Activate------------------Grüße daywa1k3rFX64 Software SolutionsMold&More So ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Document Eigenschaften unter VB.Net
daywa1k3r am 01.12.2005 um 15:25 Uhr (0)
Zitat:Original erstellt von BernhardU:...Kann es sein, dass man zuerst oapp einen wert zuordnen muss dass man dass über oapp die Inventor Application ansprechen kann? ...Natürlich! Zitat:Original erstellt von BernhardU:... Ich weiß nur nicht welchen!! ...AddInSiteObject.Application aus ApplicationAddInServer Member "Activate".------------------Grüße daywa1k3rFX64 Software SolutionsMold&More Software Solutions
|
| In das Form INVENTOR VBA wechseln |
