changing multible dias

[happycat64]

is there a wat to change multible dia all at once?

i have about 300 dia at .076 and i need to change them to .075

running mx 6

[ajmer]

there is a chhoko called arcmultiedit

http://www.mastercam.com/Support/Downloads/MastercamX6/Files/mastercamx6-arc-multiedit-x86.zip

[happycat64]

ok ill give it a try, thanks

[kdgrills]

Attached is a quick & dirty vb script.

 

Oops, a little too quick, a little debugging required.

[happycat64]

i ran the multi arc edit and it shrunk the radius like i wanted but didnt keep them trimmed to the other enitys, which would be time consuming to go and trim them all--is there another method?

[Jayson Kramer]

So they are not Dia like holes they are corner radii correct?

[kdgrills]

vbscript can't edit the existing entity (well perhaps if you jumped through enough hoops).

 

It would relatively easy to create duplicate entities, with the revised diameter, if that would help.

[kdgrills]

The attached vbs file will create duplicates of all 0.076 diameter arcs, with a new diameter of 0.075

 

Following is the code, if you wanna copy / paste:

 

 

Dim objMyArc '#Obj : Arc parameters

Dim objMyNewArc '#Obj : Arc parameters

Dim blnEntity '#Bln : DB search

 

 

blnEntity = StartDBSearch(mc_alive, mc_arctype)

 

Do While blnEntity

Set objMyArc = New McAr

Set objMyNewArc = New McAr

If GetArcData(GetEntityEptr, objMyArc) Then

If (objMyArc.R = 0.038) Then

With objMyNewArc

.X = objMyArc.X

.Y = objMyArc.Y

.Z = objMyArc.Z

.R = .0375

.SA = objMyArc.SA

.SW = objMyArc.SW

.View = objMyArc.View

 

CreateArc objMyNewArc,mcCONSTRUCTION_COLOR_CURRENT, mcCONSTRUCTION_LEVEL_CURRENT

End With

End If

End If

blnEntity = NextDBSearch

Loop

[chipman]

i ran the multi arc edit and it shrunk the radius like i wanted but didnt keep them trimmed to the other enitys, which would be time consuming to go and trim them all--is there another method?

 

If you have fillets instead of arcs, try using the fillet chain option,

create new fillets .0375, window select all chains,

then use mask only, misc, dia = .038 to select the fillets to delete

[happycat64]

So they are not Dia like holes they are corner radii correct?

yeah they are radius, sorry about that

[happycat64]

If you have fillets instead of arcs, try using the fillet chain option,

create new fillets .0375, window select all chains,

then use mask only, misc, dia = .038 to select the fillets to delete

ok ,ill try that,thanks for your help

[happycat64]

vbscript can't edit the existing entity (well perhaps if you jumped through enough hoops).

 

It would relatively easy to create duplicate entities, with the revised diameter, if that would help.

thanks for your help