Vb Bounding Box

[crazy^millman]

Been picking things up so wanted to share. Do not laugh.

 

code:

---

'////////////////////////////////////////////////////////////////////////////////

'//

'// Author: Ronald Branch

'// Date: 04/05/2004 07:26 AM

'// File Name: Boundbox

'//

'// Description: Mastercam VB Script

'//

'// Comments: Will make Bounding Box on Certain Level any Color you want

'// Use this at your own risk.

'//

'////////////////////////////////////////////////////////////////////////////////

Dim r 'Level in which to put Bounding Box

Dim s 'Color in which to make Bouning Box

'Dim t 'View in which to see part and bounding box

 

Call Main

 

 

Sub Main

If askNumber("What Level for Bounding Box" ,0 ,255, r) Then

If askNumber("What Color for Bounding Box" ,0 ,300, s) Then

' If askNumber("What View to Make Bounding Box 1:Top 2:Front 3:Back 4:Bottom 5:Right 6:Left 7:ISO" ,0 ,7 ,t) Then

' SetGViewNumber (t)

' End If

SetEntityColor (s)

End If

SetLevelByNumber ®

End If

RunMastercamCommand "makebbox"

SetGViewNumber (7) 'Just take out ' above and put here to have it end at a certain view

RunMastercamCommand "fit"

 

End Sub

---

Hope you like it and feel free to improve.

[Mick from CNC Software Inc.]

Nice job Ron

[Teh Bear without Brains kinda idiot]

Nice work ,Millman !

 

Yet I do not find it very useful ,IMHO,,especially if you use import named levels and EA.manager .

I use bbox a lot and like it !

but...

I want to hijack a thread a bit :

Mick ,what I really need and I think others too is sorta boundary form command .

What I do now is this :

I throw all my surfaces for milling on a separate level ,convert them to solid or if there is existing solid I use it for a boundary box

After that I run solid->layout command and use a border contour for building boundary part form .

It is not an easy thing ,this boundary countour I must translate from one place to another and so on .

If it is possible to combine commands to make boundary form curves by one command it would be greate .

 

Teh hijacker .