PM2016宏应用之二：生成垂直面等高边界

taohuawodeai

只把春来报

晒哦是的

学习学习

剑若英

生成垂直面等高边界 [修改]

1200.21

ddddddddd

hudongbo

谢谢分享

XYP1995

顶一个

九MEI

什么都不说，大神的宏就是强大

喜洋洋/qiang

这宏写的牛....顶一个.

xingyue*

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
}

爱闪

没有看到