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

xingyue* 发表于 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.015,REAL(Thick))
       PRINT=$Thickness
    } ELSE {
       $UseAxialThickness=1
       $Thickness=select(Position=='top',REAL(Thick)-0.015,REAL(Thick))
       PRINT=$Thickness
       $AxialThickness=REAL(Thick)
    }
    $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

没有看到      

爱闪 发表于 2016-12-29 09:49:12

没有哦

1217736021 发表于 2016-12-29 09:48:42

顶起来呵呵呵就是厉害

xingyue* 发表于 2016-12-29 09:48:29

没有源码吗？新手新手不好意思！改下

xingyue* 发表于 2016-12-29 09:47:10

爱闪 发表于 2016-12-29 09:42
源码呢,没看到

没有源码吗？

Lauren* 发表于 2016-12-29 09:43:25

屌爆了

512037694 发表于 2016-12-29 09:43:19

好东西   下载先谢谢楼主分享

爱闪 发表于 2016-12-29 09:42:40

源码呢,没看到

爱闪 发表于 2016-12-29 09:40:57

学习···········学习······················

查看完整版本: PM2016宏应用之二：生成垂直面等高边界