DXF-Files für z.B. die Laserei fast automatisch erstellen.
Für diesen Mapkey sind zunächst einige Änderungen vorzunehmen.
Der Mapkey arbeitet mit der Verwendung der Favoritenfunktion.
Dies hat den Vorteil, dass ich mehrere Ordner mit ganz unterschiedlichen Ziel-Verzeichnissen erstellen und diese beliebig umbenennen kann.
1.
Favoriten erstellt man folgendermaßen:
Datei > Öffnen > ins gewünschte Verzeichnis wechseln > Symbol (Ordner mit Stern) drücken > Position speichern
Unter Favoriten (liegt hinter dem Modellbaum) könnt ihr diese dann beliebig umbenennen.
2.
Kopiert die dxf_laser.drw nach C:\Documents and Settings\(Benutzername)\My Documents\
3.
Fügt eurer config.pro folgendes hinzu:
!================================================
! DXF erstellen
!================================================
mapkey dxfe @MAPKEY_NAMEDXF erstellen;@MAPKEY_LABELDXF erstellen;\
mapkey(continued) ~ Activate `main_dlg_cur` `File.psh_save`;\
mapkey(continued) @SYSTEM\start WScript.exe H:\\Zusatz_Prog\\dxfe.vbs
mapkey dxxfe @MAPKEY_NAMEDXF erstellen Teil2;@MAPKEY_LABELDXF erstellen Teil2;\
mapkey(continued) ~ Activate `dwg_create` `psh_browse`;\
mapkey(continued) ~ Activate `file_open` `mydocs_pb`;\
mapkey(continued) ~ Select `file_open` `Ph_list.Filelist`1 `dxf_maschine.drw`;\
mapkey(continued) ~ Activate `file_open` `Open`;~ Activate `dwg_create` `psh_ok`;
!================================================
! DXF speichern
!================================================
mapkey dxfs @MAPKEY_NAMEDXF speichern;@MAPKEY_LABELDXF speichern;\
mapkey(continued) ~ Activate `main_dlg_cur` `File.psh_save_as`;\
mapkey(continued) @SYSTEM\start WScript.exe H:\\Zusatz_Prog\\dxfs.vbs
!================================================
Mit dem Mapkey "dxfe" wird nun ein Script gestartet, welches fast automatisch ein dxf vom aktiven Parts, Abwicklung, Zeichnung erstellt. Das Script muss sich in H:\\Zusatz_Prog\\
befinden. Das kann man aber auch beliebig verändern, nur muss dann der Pfad (H:\\Zusatz_Prog\\) im Mapkey angepasst werden. Der Pfad sollte zudem keine Leerzeichen enthalten, da es sonst nicht funktioniert.
4.
Erstellt mit einem Texteditor ein Script mit dem Namen dxfe.vbs . Dazu bei "Speichern unter..." den Dateityp auf "Alle Dateien" stellen.
Inhalt:
Option Explizit
WScript.Sleep 00
Dim Fi, Fso
Set Shell = CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Sub sk(Befehl)
'wscript.echo befehl
WshShell.SendKeys(Befehl)
WScript.Sleep 00 'Zeitangabe in Millisekunden
End Sub
sk "^s"
sk "+{TAB}"
sk "+{TAB}"
sk "{BS 4}"
sk "+^{left}"
sk "^c"
sk "^a"
sk "^n"
sk "^v"
sk "_dxf"
sk "{TAB 3}"
sk "{DOWN}"
sk "{TAB 3}"
sk "{DOWN}"
sk "{TAB 2}"
sk "{DOWN}"
sk "~"
sk "^v"
sk ".prt"
sk "{TAB}"
sk "dxxfe"
WScript.Quit()
5.
Erstellt nun ein Script mit dem Namen dxfs.vbs .
Inhalt:
'Option Explizit
WScript.Sleep 00
Dim Fi, Fso
Set Shell = CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Sub sk(Befehl)
'wscript.echo befehl
WshShell.SendKeys(Befehl)
WScript.Sleep 00 'Zeitangabe in Millisekunden
End Sub
sk "%"
sk "{DOWN}"
sk "p"
sk "{TAB 3}"
sk "{DOWN 3}"
sk "+{TAB}"
sk "+{TAB}"
sk "+{TAB}"
sk "{BS 4}"
sk "{TAB 9}"
sk " "
sk "~"
WScript.Quit()
Fertig!!!
Der Mapkey dxfe erstellt nun ein DXF. Bei einer Familientabelle kann das gewünschte Teil noch ausgewählt werden.
Da das Teil immer einen Maßstab von 1:1 haben soll, hab ich die Schablone auf 1:1 gesetzt. Deshalb muss diese Anzeige manuell weggenommen werden.
Alle Elemente die ihr nich haben wollt, müsst ihr auf einer dementsprechenden Folie haben. Diese Folie muss dann natürlich auch in der dxf_maschine.drw
vorhanden und ausgeblendet sein. Beim Folienanlegen auf der dxf_maschine.drw anschließend "Status speichern" nicht vergessen!
Um nun als DXF zu speichen den Mapkey dxfs ausführen.
Um das Icon ins ProE zu bekommen, öffnet es einfach im "Microsoft Photo Editor" (oder Paint)
-> Strg+c
Ins ProE wechseln
->Tolls->Bildschirm anpassen->Befehle->Mapkeys->den Mapkey suchen->rechte Maustaste->Schaltflächenbild einfügen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP