用PowerMILL 做2D VB+巨集 原創

使用VB後加巨集(複製成你需要的刀數.改成你要刀具大小.都用巨集)
依然使用巨集加入進退刀.注意刀路方向.
POST出來的路徑,必須是 I,J,K,或 R 值,才能補正
不會用 POST 成 I,J,K 或 R 值的  可以用 NCTOOLS 或相關軟件 改變.

EXPLORER SELECT Toolpath '2' NEW
ACTIVATE Toolpath '2'
FORM TOOLPATH
EDIT TOOLPATH "2" RECYCLE
ACTIVATE TOOL "40"
EDIT TOOLPATH "2" CALCULATE
AREACLEAR CANCEL
EXPLORER SELECT Toolpath '3' NEW
ACTIVATE Toolpath '3'
FORM TOOLPATH
EDIT TOOLPATH "3" RECYCLE
ACTIVATE TOOL "32"
EDIT TOOLPATH "3" CALCULATE
AREACLEAR CANCEL
EXPLORER SELECT Toolpath '4' NEW
ACTIVATE Toolpath '4'
FORM TOOLPATH
EDIT TOOLPATH "4" RECYCLE
ACTIVATE TOOL "30"
EDIT TOOLPATH "4" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath '5'
FORM TOOLPATH
EDIT TOOLPATH "5" RECYCLE
ACTIVATE TOOL "25"
EDIT TOOLPATH "5" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath '6'
FORM TOOLPATH
EDIT TOOLPATH "6" RECYCLE
ACTIVATE TOOL "20"
EDIT TOOLPATH "6" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath '7'
FORM TOOLPATH
EDIT TOOLPATH "7" RECYCLE
ACTIVATE TOOL "16"
EDIT TOOLPATH "7" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath '8'
FORM TOOLPATH
EDIT TOOLPATH "8" RECYCLE
ACTIVATE TOOL "12"
EDIT TOOLPATH "8" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath '9'
FORM TOOLPATH
EDIT TOOLPATH "9" RECYCLE

RF.MAC


EXPLORER SELECT Toolpath '2' NEW
ACTIVATE Toolpath '2'
FORM TOOLPATH
EDIT TOOLPATH "2" RECYCLE
ACTIVATE TOOL "40"
EDIT TOOLPATH "2" CALCULATE
AREACLEAR CANCEL
EXPLORER SELECT Toolpath '3' NEW
ACTIVATE Toolpath '3'
FORM TOOLPATH
EDIT TOOLPATH "3" RECYCLE
ACTIVATE TOOL "32"
EDIT TOOLPATH "3" CALCULATE
AREACLEAR CANCEL
EXPLORER SELECT Toolpath '4' NEW
ACTIVATE Toolpath '4'
FORM TOOLPATH
EDIT TOOLPATH "4" RECYCLE
ACTIVATE TOOL "30"
EDIT TOOLPATH "4" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath '5'
FORM TOOLPATH
EDIT TOOLPATH "5" RECYCLE
ACTIVATE TOOL "25"
EDIT TOOLPATH "5" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath '6'
FORM TOOLPATH
EDIT TOOLPATH "6" RECYCLE
ACTIVATE TOOL "20"
EDIT TOOLPATH "6" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath '7'
FORM TOOLPATH
EDIT TOOLPATH "7" RECYCLE
ACTIVATE TOOL "16"
EDIT TOOLPATH "7" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath '8'
FORM TOOLPATH
EDIT TOOLPATH "8" RECYCLE
ACTIVATE TOOL "12"
EDIT TOOLPATH "8" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath '9'
FORM TOOLPATH
EDIT TOOLPATH "9" RECYCLE
ACTIVATE TOOL "10"
EDIT TOOLPATH "9" CALCULATE
AREACLEAR CANCEL
ACTIVATE Toolpath 'A'
FORM TOOLPATH
EDIT TOOLPATH "A" RECYCLE
ACTIVATE TOOL "6"
EDIT TOOLPATH "A" CALCULATE
AREACLEAR CANCEL

RFT.MAC


ACTIVATE Toolpath '1'
FORM LEADLINK
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS GOUGECHECK N
EDIT TOOLPATH LEADS LEADIN HARC
EDIT TOOLPATH LEADS LEADIN ANGLE 90
EDIT TOOLPATH LEADS LEADIN LRAD 15
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD 20
EDIT TOOLPATH LEADS LINK SURFACE
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK INCR
PROCESS TPLEADS
LEADS ACCEPT
ACTIVATE Toolpath '2'
FORM LEADLINK
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS GOUGECHECK N
EDIT TOOLPATH LEADS LEADIN HARC
EDIT TOOLPATH LEADS LEADIN ANGLE 90
EDIT TOOLPATH LEADS LEADIN LRAD 15
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD 20
EDIT TOOLPATH LEADS LINK SURFACE
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK INCR
PROCESS TPLEADS
LEADS ACCEPT
ACTIVATE Toolpath '3'
FORM LEADLINK
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS GOUGECHECK N
EDIT TOOLPATH LEADS LEADIN HARC
EDIT TOOLPATH LEADS LEADIN ANGLE 90
EDIT TOOLPATH LEADS LEADIN LRAD 15
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD 20
EDIT TOOLPATH LEADS LINK SURFACE
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK INCR
PROCESS TPLEADS
LEADS ACCEPT
ACTIVATE Toolpath '4'
FORM LEADLINK
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS GOUGECHECK N
EDIT TOOLPATH LEADS LEADIN HARC
EDIT TOOLPATH LEADS LEADIN ANGLE 90
EDIT TOOLPATH LEADS LEADIN LRAD 15
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD 20
EDIT TOOLPATH LEADS LINK SURFACE
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK INCR
PROCESS TPLEADS
LEADS ACCEPT
ACTIVATE Toolpath '5'
FORM LEADLINK
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS GOUGECHECK N
EDIT TOOLPATH LEADS LEADIN HARC
EDIT TOOLPATH LEADS LEADIN ANGLE 90
EDIT TOOLPATH LEADS LEADIN LRAD 15
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD 20
EDIT TOOLPATH LEADS LINK SURFACE
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK INCR
PROCESS TPLEADS
LEADS ACCEPT
ACTIVATE Toolpath '6'
FORM LEADLINK
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS GOUGECHECK N
EDIT TOOLPATH LEADS LEADIN HARC
EDIT TOOLPATH LEADS LEADIN ANGLE 90
EDIT TOOLPATH LEADS LEADIN LRAD 15
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD 20
EDIT TOOLPATH LEADS LINK SURFACE
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK INCR
PROCESS TPLEADS
LEADS ACCEPT
ACTIVATE Toolpath '7'
FORM LEADLINK
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS GOUGECHECK N
EDIT TOOLPATH LEADS LEADIN HARC
EDIT TOOLPATH LEADS LEADIN ANGLE 90
EDIT TOOLPATH LEADS LEADIN LRAD 15
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD 20
EDIT TOOLPATH LEADS LINK SURFACE
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK INCR
PROCESS TPLEADS
LEADS ACCEPT
ACTIVATE Toolpath '8'
FORM LEADLINK
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS GOUGECHECK N
EDIT TOOLPATH LEADS LEADIN HARC
EDIT TOOLPATH LEADS LEADIN ANGLE 90
EDIT TOOLPATH LEADS LEADIN LRAD 15
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD 20
EDIT TOOLPATH LEADS LINK SURFACE
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK INCR
PROCESS TPLEADS
LEADS ACCEPT
ACTIVATE Toolpath '9'
FORM LEADLINK
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS GOUGECHECK N
EDIT TOOLPATH LEADS LEADIN HARC
EDIT TOOLPATH LEADS LEADIN ANGLE 90
EDIT TOOLPATH LEADS LEADIN LRAD 15
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD 20
EDIT TOOLPATH LEADS LINK SURFACE
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK INCR
PROCESS TPLEADS
LEADS ACCEPT
ACTIVATE Toolpath 'A'
FORM LEADLINK
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS GOUGECHECK N
EDIT TOOLPATH LEADS LEADIN HARC
EDIT TOOLPATH LEADS LEADIN ANGLE 90
EDIT TOOLPATH LEADS LEADIN LRAD 15
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD 20
EDIT TOOLPATH LEADS LINK SURFACE
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK INCR
PROCESS TPLEADS
LEADS ACCEPT

高技术

VB好学吗？？？？？？？？？？？？

能不能讲详细点，听不懂

在powerMILL裡面有關巨集(宏)的指令.都能錄製
先錄製好你想要的相關動作.在改成你要的正確動作即可

VB 全名 Visual Basic  這是另一個領域.自己找相關的去學吧

...............

[ 本帖最后由 冠天Ж陈玮 于 2006-3-9 02:55 编辑 ]

谢谢你