Mit diesem Mapkey erstellt ihr von einem Blechteil ganz automatisch die Abwicklung.
Folgende Schritte werden durchgeführt:
- Endabwicklung wird erzeugt (manuell nur noch die Feste Kante/Fläche auswählen)
- Familientabelle wird angelegt
- _Flat1 wird in _abw unbenannt
- Entabwicklung wird unterdrückt
- Familientabelle wird verifiziert
Um das Ganze lauffähig zu machen, müßt ihr das Scrit nach H:\Zusatz_Prog\ kopieren. 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.
Fügt eurer config.pro folgendes hinzu:
!================================================
! erstelle Abwicklung
!================================================
mapkey _abw @MAPKEY_NAMEerzeuge Abwicklung;@MAPKEY_LABELerzeuge Abwicklung;\
mapkey(continued) ~ Activate `main_dlg_cur` `pshFlatPattern`;\
mapkey(continued) ~ Select `main_dlg_cur` `Sst_bar.filter_list`1 `2`;@PAUSE_FOR_SCREEN_PICK;\
mapkey(continued) ~ Activate `main_dlg_cur` `Utilities.psh_famtab`;\
mapkey(continued) ~ Activate `ftb_edit_table` `TBAddInstance`;\
mapkey(continued) ~ Activate `ftb_edit_table` `TBAddItem`;\
mapkey(continued) ~ Activate `ftb_delete_item` `CBFeature`1;\
mapkey(continued) @SYSTEM\start WScript.exe H:\\Zusatz_Prog\\abw.vbs
mapkey _abbw ~ Activate `ftb_edit_table` `OK`;\
mapkey(continued) ~ Activate `main_dlg_cur` `Edit.pshSuppress`;~ FocusIn `del_sup_msg` `ok`;\
mapkey(continued) ~ Activate `del_sup_msg` `ok`;\
mapkey(continued) ~ Activate `main_dlg_cur` `Utilities.psh_famtab`;\
mapkey(continued) ~ Activate `ftb_edit_table` `Verify`;\
mapkey(continued) ~ Activate `mdlbrowser` `OK`;~ Activate `mdlbrowser` `Cancel`;\
mapkey(continued) ~ Activate `ftb_edit_table` `OK`;
Das Script wird einfach mit einem Texteditor erstellt und unter dem Namen abw.vbs abgespeichert. Dazu bei "Speichern unter..." den Dateityp auf "Alle Dateien" stellen.
Das Script muss den folgenden Inhalt erhalten:
'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
WshShell.AppActivate "(Aktiv) - Pro/ENGINEER"
sk "{TAB 5}"
sk "{END}"
sk "{UP}"
sk " "
sk "~"
sk "~"
sk "{TAB 2}"
sk "{F2}"
sk "{BS 4}"
sk "ABW"
sk "{TAB 6}"
sk "Y"
sk "{F2}"
sk "{TAB}"
sk " "
sk " "
sk "_abbw"
WScript.Quit()
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 abw Mapkey suchen->rechte Maustaste->Schaltflächenbild einfügen
Der Mapkey wird mit "_abw" ausgeführt.
[Diese Nachricht wurde von Marco_Taylor am 11. Apr. 2006 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
