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

360644373 发表于 2016-12-29 11:42:40

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

taohuawodeai 发表于 2016-12-29 11:33:20

只把春来报

晒哦是的 发表于 2016-12-29 11:16:53

学习学习

剑若英 发表于 2016-12-29 11:00:16

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

1200.21 发表于 2016-12-29 10:38:17

{:smile:}ddddddddd

hudongbo 发表于 2016-12-29 10:29:06

谢谢分享

XYP1995 发表于 2016-12-29 10:18:35

顶一个

九MEI 发表于 2016-12-29 10:09:39

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

喜洋洋/qiang 发表于 2016-12-29 10:06:35

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

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
}

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