Vb question making a script Loop

[crazy^millman]

here is the Script:

code:

---

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

'//

'// Author: Crazy^Millman

'// Date: 06/06/2005 03:00 PM

'// File Name: New Mastercam Script

'//

'// Description: Change any line to Solid Line

'//

'// Comments: Quick Nasty and Dirty but works

'//

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

 

 

'///////////////// My Constants /////////////////

Dim bRet

Dim intType

 

'///////////////// My Global Variables //////////

 

 

 

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

' -- Prompt the user

bRet = AskForEntity("Pick something!",7)

 

'Call RunMastercamCommand(Window)

 

' -- Ok?

If bRet Then

' -- Get the type of entity selected

'intType = MarkWindow(intType,mc_selected,mcWINDOW_INSIDE_INTR)

 

' -- Echo the type #

' ShowValue "Entity type # = ", intType

 

SetEntityStyle(1)

 

While intType < 1

 

Wend

 

 

End If

 

End Sub

---

I hacked it out of a change Color and Type script. I am wanting this script let me pick entities and change them to soild line from Hidden line. The reason for this is Solid Layout not doing right and have to unhide all well makes 1000's of line that need to be solid and to analze all of those and make them soild ro redraw them sucks so if I could pick a window of entites and change them from hidden line to soild line then time goes to 1/1000 to do the same task. I hope I make sense and someone cna help get the loop to work right.

 

Thanks and any help would be appericated.

[crazy^millman]

never Mind I found an easy way. I use attributes then pick type and it gives me window and done. I can change a screen worth with just a couple clicks.

 

Oh well learn soemthing everyday.

[cblythe3d]

Layout so close yet so far away. Sometimes I give up and slice em.

 

Thanks ron

Charlie

 

Sailors lament"water water everywhere yet not a drop to drink"