哪位大哥给个垂直面边界宏

王梦恩恩

垂直面边界宏  ！

bc123456

MACRO STOP DIALOGS MESSAGE OFF DIALOGS ERROR OFF ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT TOOLBAR COMMANDBAR LOWER
STRING yl= "请输入加工余量"
real q= ""
$q= input $yl
real qd= q-0.01
real qdi= q+0.01

STRING ToolName = INPUT ENTITY TOOL "选择当前刀具"

ACTIVATE TOOL $ToolName

EDIT ENTATTRIBUTE TEMPLATE FOLDER TOOLPATH

'xu顶'

CREATE FOLDER "Toolpath" ;

ACTIVATE FOLDER #

EDIT ENTATTRIBUTE TEMPLATE FOLDER TOOLPATH OFF

IMPORT TEMPLATE ENTITY TOOLPATH  "Finishing/Swarf-Finishing.ptf"
EDIT TPPAGE SWBlock
EDIT BLOCK ALL UNLOCK
EDIT BLOCK RESETLIMIT "100"
EDIT BLOCK RESET
EDIT TPPAGE SWPatternSwarf
EDIT PAR 'Tolerance' "0.01"
EDIT PAR 'CutDirection' 'climb'
EDIT PAR 'UseAxialThickness' '1'
EDIT PAR 'Thickness' $qd
EDIT PAR 'AxialThickness' "0.01"
EDIT TPPAGE SWPosition
EDIT PAR 'SwarfBasePosition' 'top'
EDIT TPPAGE SWMultiCutSwarf
EDIT PAR 'MultipleCuts' 'off'
EDIT PAR 'Ordering' 'pocket'
EDIT PAR 'UpperLimit.Type' 'top'
EDIT TPPAGE SWHighSpeed
EDIT PAR 'CornerRadius.Active' '1'
EDIT PAR 'CornerRadius.Active' '0'
EDIT PAR 'AxialSmoothingTolerance' "0"
EDIT TPPAGE SWToolRapidMv
EDIT TOOLPATH SAFEAREA SIZE  "0"
EDIT TOOLPATH SAFEAREA PLUNGE_SIZE  "0"
EDIT TPPAGE SWLeadsLinks
EDIT TOOLPATH LEADS PAGE ZHEIGHTS
EDIT TOOLPATH LEADS SKIMDIST "3"
EDIT TOOLPATH LEADS PLUNGEDIST "1"
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS LEADIN NONE
EDIT TOOLPATH LEADS LEADIN2 NONE
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD "1"
EDIT TOOLPATH LEADS LINK SAFEZ
EDIT TOOLPATH LEADS LONGLINK SAFEZ
EDIT TOOLPATH LEADS SAFELINK SAFEZ
PROCESS TPLEADS
LEADS ACCEPT
EDIT TPPAGE SWSEPtSPoint
EDIT TOOLPATH START TYPE POINT
EDIT TPPAGE SWSEPtEPoint
EDIT TOOLPATH END TYPE POINT
EDIT TOOLPATH ; CALCULATE

string ding = toolpath.name

IF toolpath.Computed ==0 {

DELETE TOOLPATH FOLDER "Toolpath\xu顶1"

return

}

CREATE PATTERN ;

EDIT PATTERN ; INSERT TOOLPATH ;

EDIT TOOLPATH DIVIDE TYPE RETRACT

PROCESS TPDIVIDE

DELETE TOOLPATH $ding

////////////////

EDIT ENTATTRIBUTE TEMPLATE FOLDER TOOLPATH

'xu底'

CREATE FOLDER "Toolpath" ;

ACTIVATE FOLDER #

EDIT ENTATTRIBUTE TEMPLATE FOLDER TOOLPATH OFF

IMPORT TEMPLATE ENTITY TOOLPATH  "Finishing/Swarf-Finishing.ptf"
EDIT TPPAGE SWBlock
EDIT BLOCK ALL UNLOCK
EDIT BLOCK RESETLIMIT "100"
EDIT BLOCK RESET
EDIT TPPAGE SWPatternSwarf
EDIT PAR 'Tolerance' "0.01"
EDIT PAR 'CutDirection' 'climb'
EDIT PAR 'UseAxialThickness' '1'
EDIT PAR 'Thickness' $qdi
EDIT PAR 'AxialThickness' "0"
EDIT TPPAGE SWPosition
EDIT PAR 'SwarfBasePosition' 'bottom'
EDIT TPPAGE SWMultiCutSwarf
EDIT PAR 'MultipleCuts' 'off'
EDIT PAR 'Ordering' 'pocket'
EDIT PAR 'SwarfBasePosition' 'bottom'
EDIT TPPAGE SWHighSpeed
EDIT PAR 'CornerRadius.Active' '1'
EDIT PAR 'CornerRadius.Active' '0'
EDIT PAR 'AxialSmoothingTolerance' "0"
EDIT TPPAGE SWToolRapidMv
EDIT TOOLPATH SAFEAREA SIZE  "0"
EDIT TOOLPATH SAFEAREA PLUNGE_SIZE  "0"
EDIT TPPAGE SWLeadsLinks
EDIT TOOLPATH LEADS PAGE ZHEIGHTS
EDIT TOOLPATH LEADS SKIMDIST "3"
EDIT TOOLPATH LEADS PLUNGEDIST "1"
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS LEADIN NONE
EDIT TOOLPATH LEADS LEADIN2 NONE
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS PAGE LINK
EDIT TOOLPATH LEADS LINK THRESHOLD "1"
EDIT TOOLPATH LEADS LINK SAFEZ
EDIT TOOLPATH LEADS LONGLINK SAFEZ
EDIT TOOLPATH LEADS SAFELINK SAFEZ
PROCESS TPLEADS
LEADS ACCEPT
EDIT TPPAGE SWSEPtSPoint
EDIT TOOLPATH START TYPE POINT
EDIT TPPAGE SWSEPtEPoint
EDIT TOOLPATH END TYPE POINT
EDIT TOOLPATH ; CALCULATE

string di = toolpath.name

IF toolpath.Computed ==0 {

DELETE TOOLPATH FOLDER "Toolpath\xu顶1"

DELETE TOOLPATH FOLDER "Toolpath\xu底1"

return

}

EDIT PATTERN ; INSERT TOOLPATH ;

EDIT TOOLPATH DIVIDE TYPE RETRACT

PROCESS TPDIVIDE

DELETE TOOLPATH $di

string pat = entity('pattern','').Name

FOREACH tp IN folder('Toolpath\xu顶1') {

int xs = entity('toolpath',$tp.name).StartPoint.Position.X

int ys = entity('toolpath',$tp.name).StartPoint.Position.Y


real xst = entity('toolpath',$tp.name).StartPoint.Position.X

real yst = entity('toolpath',$tp.name).StartPoint.Position.Y

real zst = entity('toolpath',$tp.name).StartPoint.Position.Z-entity('toolpath',$tp.name).StartPoint.Distance

real xnd = entity('toolpath',$tp.name).EndPoint.Position.X

real ynd = entity('toolpath',$tp.name).EndPoint.Position.Y

real znd = entity('toolpath',$tp.name).EndPoint.Position.Z-entity('toolpath',$tp.name).EndPoint.Distance


FOREACH dtp IN folder('Toolpath\xu底1') {

int xs1 = entity('toolpath',$dtp.name).StartPoint.Position.X

int ys1 = entity('toolpath',$dtp.name).StartPoint.Position.Y


real xst1 = entity('toolpath',$dtp.name).StartPoint.Position.X

real yst1 = entity('toolpath',$dtp.name).StartPoint.Position.Y

real zst1 = entity('toolpath',$dtp.name).StartPoint.Position.Z-entity('toolpath',$dtp.name).StartPoint.Distance

real xnd1 = entity('toolpath',$dtp.name).EndPoint.Position.X

real ynd1 = entity('toolpath',$dtp.name).EndPoint.Position.Y

real znd1 = entity('toolpath',$dtp.name).EndPoint.Position.Z-entity('toolpath',$dtp.name).EndPoint.Distance


if xs==xs1 and ys==ys1 {
EDIT PATTERN ; INSERT SKETCH
ABSOLUTE
XYPLANE
X $xst
Y $yst
Z $zst
ADD
X $xst1
Y $yst1
Z $zst1
ADD
QUIT SSKETCHER ACCEPT
EDIT PATTERN ; INSERT SKETCH
ABSOLUTE
XYPLANE
X $xnd
Y $ynd
Z $znd
ADD
X $xnd1
Y $ynd1
Z $znd1
ADD
QUIT SSKETCHER ACCEPT

}

}

}

CREATE BOUNDARY ; SKETCH

EDIT BOUNDARY ; INSERT PATTERN ;

DELETE PATTERN ;

DELETE TOOLPATH FOLDER "Toolpath\xu顶1"

DELETE TOOLPATH FOLDER "Toolpath\xu底1"

EDIT TOOLPATH START TYPE POINT_SAFE

EDIT TOOLPATH END TYPE POINT_SAFE

GRAPHICS UNLOCK
DIALOGS MESSAGE ON
DIALOGS ERROR ON