set WCS with VBScript

[Leif Johnson from MICO Inc]

Hello, is it possible to set the t & c plane with a VBScript? I program alot of step indexers on our VMC's & spendmore time in the WCS setting these to my different angles. I figure that if this is possible, I can create some icons & use the script linker.

 

Thanks

Leif

[Rekd™]

code:

---

// get the current construction plane view number

 

Integer GetCPlaneNumber(void)

 

 

 

// set the current construction plane view to a new number

 

Void SetCPlaneNumber(

 

Integer (Input: new view number)

 

)

 

// set the current construction plane view to be perpendicular to a certain vector

 

Integer SetCPlaneNormal(

 

Real, (Input: X-Coordinate of vector perpendicular to new view)

 

Real, (Input: Y-Coordinate of vector perpendicular to new view)

 

Real, (Input: Z-Coordinate of vector perpendicular to new view)

 

)

 

 

 

// get the current tool plane view number

 

Integer GetTPlaneNumber(void)

 

 

 

// set the current tool plane view to a new number

 

Void SetTPlaneNumber(

 

Integer (Input: new view number)

 

)

 

 

 

// set the current tool plane view to be perpendicular to a certain vector

 

Integer SetTPlaneNormal(

 

Real, (Input: X-Coordinate of vector perpendicular to new view)

 

Real, (Input: Y-Coordinate of vector perpendicular to new view)

 

Real, (Input: Z-Coordinate of vector perpendicular to new view)

 

)

 

 

 

// get the current construction plane & tool plane to the graphics view flag

 

Bool GetCPlaneEqualGView (void)

 

 

 

 

 

// set the current construction plane & tool plane to the graphics view flag

 

Void SetCPlaneEqualGView (

 

Bool (Input: true to set construction & tool plane equal to graphics view flag)

 

)

---

HTH

[Leif Johnson from MICO Inc]

It looks good, but how does it work? I tried to run that code and it alarmed out. What stuff do I need to do yet? Will this create new views or use ones that are already created?

 

Thanks

Leif

[Leif Johnson from MICO Inc]

Is it possible to do something like this?

 

Sub Main()

SetCPlaneNumber 19 ' Pallet 1 - 15 degrees

SetTPlaneNumber 19 ' Pallet 1 - 15 degrees

End Sub

 

Thanks

Leif

[Leif Johnson from MICO Inc]

bump

[Leif Johnson from MICO Inc]

Should I be using:

 

SetCPlaneNumber (19)

SetTPlaneNumber (19)

 

Thanks

Leif