|
|
楼主 |
发表于 2016-12-29 09:58:12
|
显示全部楼层
FUNCTION Swarf(string ThicknessStr,Real offset,string Position,OUTPUT STRING THName) {
$THName=new_entity_name('Toolpath')
IMPORT TEMPLATE ENTITY TOOLPATH TMPLTSELECTORGUI "Finishing/Swarf-Finishing.ptf"
$SurfaceSide='outside'
$RadialOffset=0
$FanningDistance=0
$ReverseAxis=0
$FanAtEnd=1
$FollowSurfaceLaterals=0
$Tolerance=0.005
STRING ARRAY Thick[]=Tokens(ThicknessStr)
IF SIZE(Thick)==1 {
$UseAxialThickness=0
$Thickness=select(Position=='top',REAL(Thick[0])-0.015,REAL(Thick[0]))
PRINT=$Thickness
} ELSE {
$UseAxialThickness=1
$Thickness=select(Position=='top',REAL(Thick[0])-0.015,REAL(Thick[0]))
PRINT=$Thickness
$AxialThickness=REAL(Thick[1])
}
$SwarfBasePosition=Position
$AxialOffset=offset
$MultipleCuts='off'
$CornerRadius.Active=0
$AxialSmoothingTolerance=0
EDIT TOOLAXIS TYPE VERTICAL
EDIT TOOLPATH START TYPE POINT
EDIT TOOLPATH END TYPE POINT
EDIT TOOLPATH $THName CALCULATE
FORM ACCEPT SFPatternSwarf
FORM LEADLINK
EDIT TOOLPATH LEADS SKIMDIST "5"
EDIT TOOLPATH LEADS PLUNGEDIST "2"
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS LEADIN NONE
EDIT TOOLPATH LEADS LEADIN2 NONE
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LEADEXTENSIONS
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK STRAIGHT
EDIT TOOLPATH LEADS LONGLINK SKIM
EDIT TOOLPATH LEADS SAFELINK SKIM
PROCESS TPLEADS
LEADS ACCEPT
}
FUNCTION SetBlock() {
FORM BLOCK
DELETE BLOCK
EDIT BLOCKTYPE BOX
EDIT BLOCK LIMITTYPE MODEL
EDIT BLOCK ALL UNLOCK
EDIT BLOCK RESETLIMIT "0"
EDIT BLOCK RESET
EDIT BLOCK ZMAX LOCK
EDIT BLOCK RESETLIMIT "Tool.diameter*0.7"
EDIT BLOCK RESET
BLOCK ACCEPT
UNDRAW BLOCK
} |
|
发表于 2016-12-29 09:49:39
