VBScript - Prompt for colour and arc.....

[Mick from CNC Software Inc.]

Open a drawing. This script prompts the user for a colour and an arc diameter. The script then searches for all arcs and when an arc diameter matches the user specified diameter it changes that arcs colour to the user specified colour.

 

code:

---

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

Dim lngColour

Dim dblDiameter

Dim dblArcDia

Dim bOK, bRet

Dim CArc

Dim lngArcs

 

' -- Prompt for a colour and a diameter

If askColor(lngColour) Then

 

' -- Ask for a dia

If askValue("Specify a diameter",0, 100, dblDiameter) Then

' -- Select all arcs

bRet = StartDBSearch(mc_alive, mc_arctype)

 

' -- Ok to go?

If bRet Then

 

' -- Initialize looping flag to false

bOk = False

 

Do

' -- Instantiate a new Arc class object

Set CArc = New McAr

 

' -- See if we returned a valid object

bOk = GetArcData(-1, CArc)

 

' -- Success ?

If bOk Then

' -- Get this arcs diameter

dblArcDia = (CArc.R * 2)

 

' -- If you need to add a tolerance you can add it to this

' -- evaluation.

If dblArcDia <> dblDiameter Then

' -- Ignore it...

Else

' -- Set the colour

Call SetEntityColor(lngColour)

lngArcs = lngArcs + 1

End If

 

End If

 

' -- Just to be sure

Set CArc = Nothing

 

' -- Get the next entity

bRet = NextDBSearch()

 

 

Loop While bRet

 

' -- Zoom all

Call RepaintScreen(True)

 

' -- Save it

Call SaveMC(True)

 

ShowString "Script completed, " & lngArcs & " arcs were found"

 

End If

End If

End If

 

 

 

 

 

End Sub

---

[Müřlıń®]

Is Mastercam the first to be able to do scripting?

 

This ability adds a whole new demension for the knowledgable VB programmer

 

Too bad I'm VB retarded

 

But I can see the advantages of being able to do this.....

 

 

Murlin

[Rekd™]

Other applications like Autocad, Bobcad, Word, Excell and a slew of others also use this technology.

 

Mastercam was just a little slow coming into the arena, but now that they're here, look out!

 

'Rekd

[Bullines]

VBS and VBA is a very popular way to add automation to an app.

 

One of the kewlest similar technologies I've seen come along is UNO (Universal Network Objects) in OpenOffice; for Java and C++ only though.

[bryan314]

Hi Mick.

Cool Scripts.

Keep them up.

 

Bryan