Using Classes in script

[John T.]

Hi all. Can anyone give me a sample of using VBscript to draw a rectangle? From what I see, I need to use the McRe class to define the rectangle, then the entity create function CreateRectangle which somehow uses the data from the McRe.

Do each of the 5 parts of the McRe class need to be defined by input?

 

I'm trying to automate drawing a simple rectangle of user inputed size and depth. Its the first step in trying to make a program that will automatically draw an aluminum box, program it for both top and bottom as seperate setups, post the programs and print a doc sheet. Kinda ambitious for me, but one step at a time!

[Mick from CNC Software Inc.]

John,

 

Is the example below what you are looking for?

 

code:

---

Call Main

 

 

 

Sub Main

 

Call NewMC(False)

Dim CRect

 

 

Call SetCPlaneNumber(mcVIEW_TOP)

 

Set CRect = New McRe

 

With CRect

 

.X1 = 0

.Y1 = 0

.Z = 0

.X2 = 10

.Y2 = 10

 

End With

 

'######## TOP

If CreateRectangle(CRect, 2 , 10) = mcENTITY_INVALID Then Exit Sub

 

With CRect

 

.X1 = 0

.Y1 = 0

.Z = -10

.X2 = 10

.Y2 = 10

 

End With

 

'######### BOTTOM

If CreateRectangle(CRect, 2 , 10) = mcENTITY_INVALID Then Exit Sub

 

 

Call SetCPlaneNumber(mcVIEW_SIDE)

 

With CRect

 

.X1 = 0

.Y1 = 0

.Z = 0

.X2 = 10

.Y2 = -10

 

End With

 

'######### SIDE 1

If CreateRectangle(CRect, 3 , 11) = mcENTITY_INVALID Then Exit Sub

 

 

With CRect

 

.X1 = 0

.Y1 = 0

.Z = 10

.X2 = 10

.Y2 = -10

 

End With

 

 

'############# SIDE 2

If CreateRectangle(CRect, 3 , 11) = mcENTITY_INVALID Then Exit Sub

 

Call RepaintScreen (True)

 

 

 

 

End Sub

---

[John T.]

Yes, Thanks! thats the kind of info I'm looking for. I just needed to see how its used.

I may have more questions in the future, but I'll have to try it and see how it goes