topic Betreff: Need a help. Create one or more Boundary. If more than one , combine them together. in PowerMill Forum

Need a help. Create one or more Boundary. If more than one , combine them together.

peterquRXR7S — Thu, 05 Oct 2023 20:12:02 GMT

The macro I made doesn't work. Also, I don't know how to combine that two Boundary together. Because I don't know the Boundary name.

//-------------------------------------

ROTATE TRANSFORM TOP
DELETE SCALE

ACTIVATE FEATURESET ; FORM EDITHOLE
EDIT FEATURESET ; FEATURE SELECTION 0
REAL $R0=$widget("EditHole.Shell.Geom.UpperDia").value
$R0=$R0*0.5

FOREACH f IN components(entity('featureset','')) {
EDIT FEATURESET ; DESELECT ALL
EDIT FEATURESET # SELECT $f.name

//X,Y,Z
real $X=$widget("EditHole.Shell.Geom.PosFrame.X").value
real $Y=$widget("EditHole.Shell.Geom.PosFrame.Y").value
real $Z=$widget("EditHole.Shell.Geom.PosFrame.Z").value
FORM CANCEL EDITHOLE

CREATE BOUNDARY ; SKETCH FORM BOUNDARY
EDIT BOUNDARY ; PRIVATE NO
EDIT BOUNDARY ; AUTOREPLAY NO
EDIT BOUNDARY ; CURVEEDITOR START
CURVEEDITOR MODE CIRCLE
CURVEEDITOR CIRCLE RADIUS $R0
MODE COORDINPUT COORDINATES $X $Y $Z

}

//COMBINE THEM TOGETHER

EDIT Boundary $first_one INSERT Boundary $second_one

//I don't know how to get the Boundary name

Betreff: Need a help. Create one or more Boundary. If more than one , combine them together.

icse — Fri, 06 Oct 2023 06:04:40 GMT

So you whant to draw a circle for each hole of the active featureset in one boundary? Thats pretty easy i can write you a macro for that when im back at my work.

Betreff: Need a help. Create one or more Boundary. If more than one , combine them together.

icse — Fri, 06 Oct 2023 07:53:14 GMT

does this work for you?

if not entity_exists(entity('featureset','')) or size(components(entity('featureset',''))) == 0 { return } entity $fs = entity('featureset','') ACTIVATE WORKPLANE FROMENTITY FEATURESET ${fs.Name} string $boundaryName = $fs.Name if entity_exists('boundary',$boundaryName) { $boundaryName = new_entity_Name('boundary',$boundaryName) } CREATE BOUNDARY ${boundaryName} EDIT BOUNDARY ${boundaryName} PRIVATE NO EDIT BOUNDARY ${boundaryName} AUTOREPLAY NO EDIT BOUNDARY ${boundaryName} CURVEEDITOR START CURVEEDITOR MODE CIRCLE foreach $f in components($fs) { CURVEEDITOR CIRCLE RADIUS ${f.Diameter / 2} MODE COORDINPUT COORDINATES $f.WPPoint[0] $f.WPPoint[1] $f.WPPoint[2] } CURVEEDITOR FINISH accept

Betreff: Need a help. Create one or more Boundary. If more than one , combine them together.

peterquRXR7S — Fri, 06 Oct 2023 10:49:37 GMT

Thank you so much! Your macro is professional. There is one small issue, the position is not right. I guess you use world coordinate.

Betreff: Need a help. Create one or more Boundary. If more than one , combine them together.

peterquRXR7S — Fri, 06 Oct 2023 12:51:03 GMT

I use current work plane and your program works fine. Thank you!

Betreff: Need a help. Create one or more Boundary. If more than one , combine them together.

icse — Fri, 06 Oct 2023 12:55:32 GMT

It actually uses the workplane of the active featurest:

ACTIVATE WORKPLANE FROMENTITY FEATURESET ${fs.Name}

you can change it to whatever workplane you whant just by replaceing this line,

this uses the workplane of the active toolpath:

activate workplane ${entity('toolpath','').Workplane.Name}

this activates the worplane with the name 'myWorkplane'

activate workplane 'myWorkplane'

if you delete this line it just takes the active workplane

Betreff: Need a help. Create one or more Boundary. If more than one , combine them together.

peterquRXR7S — Thu, 26 Oct 2023 13:20:01 GMT

Thank you!

Another question. How can I get the diameter and position of one specific feature, Say the first hole.

Something likes this,

CURVEEDITOR CIRCLE RADIUS ${CLEARANCE-THRU-.500-DIA-.697-ORING-CUP_D1_1.Diameter / 2}
MODE COORDINPUT COORDINATES $CLEARANCE-THRU-.500-DIA-.697-ORING-CUP_D1_1.WPPoint[0] $CLEARANCE-THRU-.500-DIA-.697-ORING-CUP_D1_1.WPPoint[1] $CLEARANCE-THRU-.500-DIA-.697-ORING-CUP_D1_1.WPPoint[2]

Betreff: Need a help. Create one or more Boundary. If more than one , combine them together.

icse — Thu, 26 Oct 2023 16:09:11 GMT

this gives you the diameter of the first hole in the active featureset:

real $dia = components(entity('featureset',''))[0].Diameter

this gives you the x y z coordinates:

real $x= components(entity('featureset',''))[0].WPPoint[0] real $y= components(entity('featureset',''))[0].WPPoint[1] real $z= components(entity('featureset',''))[0].WPPoint[2]

Re: Need a help. Create one or more Boundary. If more than one , combine them together.

peterquRXR7S — Thu, 26 Oct 2023 16:58:54 GMT

Thank you so much!