|
Inventor : IDW super schnell erstellen? Arbeitstechniken?
cumulus am 02.05.2003 um 08:09 Uhr (0)
Habe eine Unterfunktion vergessen (oben einfügen): -------------------------------------------------------------------- Function DirPName(f As String) As String Pfad aus f extrahieren (Dateiname entfernen) Dim e As Long e = InStrRev(f, "") If e 0 Then DirPName = Left(f, e) Else DirPName = f End If End Function -------------------------------------------------------------------- -------------------- Gruß Thomas
| | In das Form Inventor wechseln |
|
Inventor : IDW super schnell erstellen? Arbeitstechniken?
cumulus am 02.05.2003 um 07:59 Uhr (0)
Hallo zusammen, hier könnte untenstehendes VBA-Programm (auf IV6SP2 getestet) helfen. "DocSwap" hat folgende Funktionen: -Zeichnung zum aktiven Modell öffnen und umgekehrt -Falls Zeichnung nicht vorhanden, Zeichnung neu erstellen Vorraussetzung für das Finden einer bereits vorhandenen Zeichnung zum aktiven Modell: gleicher Dateiname für Modell und Zeichnung. Bei Zeichnungsneuerstellung zu einer Präsentation muß die Vorlage "EKatalog.idw" vorhanden sein (oder entsprechenden Programmpunkt ändern)! Habe leide ...
| | In das Form Inventor wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |