PowerMill经验技巧螺旋铣孔-变量宏

REAL LIST Hole={}
DEACTIVATE TOOLPATH
FOREACH A IN components(entity('featureset',Name)) {
    REAL Dia=a.diameter
    IF $a.Type=='hole' AND (NOT member(Hole,Dia)) {
        int i=add_last(Hole,Dia)
    }
}
PRINT PAR "sort(Hole)"
STRING LIST HoleDia={}
FOREACH item IN sort(Hole) {
PRINT=ITEM
int i=add_last(HoleDia,STRING(item))
}
INT i = INPUT CHOICE $HoleDia "选择要加工的孔径："
    IMPORT TEMPLATE ENTITY TOOLPATH TMPLTSELECTORGUI "C:\dcam\星月工具栏\MyTemplate\螺旋铣孔.ptf"
    REAL Dia=REAL(HoleDia[i])
    IF Dia>=4 AND Dia<=5.5 {
       ACTIVATE TOOL "E2.98"
       EDIT PAR 'AxialDepthOfCut.UserDefined' '1' EDIT DRILL PECK_DEPTH "0.08"
    } ELSEIF Dia>5.5 AND Dia<=7.2 {
       ACTIVATE TOOL "E3.98"
       EDIT PAR 'AxialDepthOfCut.UserDefined' '1' EDIT DRILL PECK_DEPTH "0.1"
    } ELSEIF Dia>7.2 AND Dia<=11 {
       ACTIVATE TOOL "E5.98"
       EDIT PAR 'AxialDepthOfCut.UserDefined' '1' EDIT DRILL PECK_DEPTH "0.12"
    } ELSEIF Dia>11 AND Dia<=15 {
       ACTIVATE TOOL "E7.98"
       EDIT PAR 'AxialDepthOfCut.UserDefined' '1' EDIT DRILL PECK_DEPTH "0.15"
    } ELSEIF Dia>15 AND Dia<=18 {
       ACTIVATE TOOL "E9.98"
       EDIT PAR 'AxialDepthOfCut.UserDefined' '1' EDIT DRILL PECK_DEPTH "0.18"
    }
    FORM FEATURESELECT
    EDIT SELECTION DELETE
    EDIT SELECTION STORE\r $i NEW
    EDIT SELECTION ADD EDIT SELECTION APPLY
    FEATURESELECT CANCEL
    EDIT TOOLPATH ; REAPPLYFROMGUI

注释文字转成线条实操

第205天UG培训UG编程过切分析,切削区域不属于部件几何体

CAD确认通过标记