|
Inventor : Kugellager als bas-Datei einlesen
VOSTA1 am 22.07.2005 um 09:19 Uhr (0)
Man kann die Imputbox mit einem Wert voreinstellen. Dazu die Sub - *********************************************** Private Sub getLocalOptions() Dim Mldg, Titel, Voreinstellung, Wert1 Mldg = "Pfad eingeben (z.B. c:cadfiles )" Aufforderung festlegen. Titel = "InputBox-für Kugellager" Titel festlegen. Voreinstellung = "C:/" Pfad festlegen. storePath = InputBox(Mldg, Titel, Voreinstellung) l = Len(storePath) If l 0 Then lastChar = Mid(storePath, l, 1) If lastChar "" Then storePa ...
| | In das Form Inventor wechseln |
|
Inventor : Kugellager als bas-Datei einlesen
VOSTA1 am 21.07.2005 um 17:49 Uhr (0)
Hallo, hier handelt es sich um ein Makro, bei mir läuft es einwandfrei (IV9) 1. Am besten alle Dokumente schließen! 2. Unter Extras den Visual Basic Editor Starten 3. Im Verzeichnis Module ein neues Modul erzeugen und die ganze "625_2z.bas.txt" hinein kopieren 4. Zum Schluß ist dann eine Sub Sub CreateInventorDocument() Set invApp = GetObject(, "Inventor.Application") Set irx = invApp.TransientGeometry PI = 3.14159265358979 Set sketchDic = CreateObject("Scripting.Dictionary") getLocalOptions CreatePart ...
| | In das Form Inventor wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |