VBScript - Print named level list

[Mick from CNC Software Inc.]

Script of the day.

 

Print out list of all named levels directly to notepad.

 

code:

---

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

Public Const DEF_NOTEPAD = "C:WindowsNotepad.exe"

Public Const DEF_NOTEPAD_NT = "C:WINNTNotepad.exe"

Public Const DEF_LIST = "mcLevelList.txt"

Public Const DEF_ALL_LEVELS = 255

 

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

Dim intCurrentLevel, strCurrentLevelName()

Dim FSO, fsoLevelsList, intCount, strTemp, strShell

 

 

intCount = -1

 

' -- Iterate all levels

For intCurrentLevel = 1 To DEF_ALL_LEVELS

 

strTemp = Trim(GetLevelName(intCurrentLevel))

 

' -- Is this level named?

If Len(strTemp) <> 0 Then

' -- Resize our array

intCount = intCount + 1

ReDim Preserve strCurrentLevelName(intCount)

' -- Assign level name and nunber

strCurrentLevelName(intCount) = "Level #" & intCurrentLevel & " = " & strTemp

End If

Next

 

' -- Test

If intCount = -1 Then

' -- No named levels found

ShowString "No named levels found in current drawing"

Else

 

Set FSO = CreateObject("Scripting.FileSystemObject")

 

Set fsoLevelsList = FSO.CreateTextFile(GetPathOfThisScript & DEF_LIST)

 

For intCurrentLevel = 0 To intCount

fsoLevelsList.WriteLine strCurrentLevelName(intCurrentLevel)

Next

 

fsoLevelsList.Close

 

 

' -- Where is Notepad?

If FSO.FileExists(DEF_NOTEPAD) Then

strShell = DEF_NOTEPAD

ElseIf FSO.FileExists(DEF_NOTEPAD_NT) > 0 Then

strShell = DEF_NOTEPAD_NT

Else

strShell = vbNullString

End If

 

' -- Are we ok?

If Len(strShell) = 0 Then

'EditFile GetPathOfThisScript & "mcLevelList.txt"

' -- Stays modal to mc

Else

' -- Ok, show the file

strShell = strShell & " " & GetPathOfThisScript & DEF_LIST

Call ShellAndWait (strShell, False)

End If

 

' -- Clean up

Erase strCurrentLevelName

 

 

End If

 

 

' -- Clean up

Set FSO = Nothing

Set fsoLevelsList = Nothing

 

End Sub

---

[Bullines]

Just for fun, you can assemble the path to Notepad programatically. Fun

 

code:

---

Dim objWSHShell     ' WSH Shell

Dim strNotepadPath ' path to Notepad

 

 

' create the WSH Shell object

Set objWSHShell = CreateObject("WScript.Shell")

 

' assemble path to Notepad

strNotepadPath = objWSHShell.ExpandEnvironmentStrings("%WinDir%") & "NOTEPAD.EXE"

---

[Mick from CNC Software Inc.]

Nice tip

[bryan314]

will that output the Level Set information too? Or is it just the Level Name?

 

Bryan

[mario]

excuse my english

 

ok it is possible when i use the LEVELS.DLL fonction

i put the number of level (that it's ok) and after we have another choice put the name level

 

not going after in the level manager

 

thank's

 

 

[ 12-04-2003, 10:15 PM: Message edited by: mario ]

[Mick from CNC Software Inc.]

mario,

 

Easy enough in script.

 

code:

---

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

 

Dim strLevelName, intLevelNumber

 

' -- Ask for a level

If askValue("Input level number", 1, 255, intLevelNumber) Then

 

strLevelName = AskString("Input a level name")

 

' -- Ask for a name

If Len(Trim(strLevelName)) > 0 Then

 

Call SetLevelName (intLevelNumber, strLevelName)

 

ShowString "Level name set"

 

End If

 

End If

 

 

End Sub

---

[Mick from CNC Software Inc.]

quote:

---

will that output the Level Set information too? Or is it just the Level Name?

---

Bryan, just level name at this time.

[bryan314]

 

Bryan

[mario]

ok Mick

 

that' what I want and now it is possible to put on the LEVELS "chook" after

 

enter the level to change entities to #..

the next question is :

 

input level name

thank's

 

[ 12-07-2003, 08:59 PM: Message edited by: mario ]

[Mick from CNC Software Inc.]

mario,

 

If I understand correctly, you want to prompt for a level number and move all entities on that level to a new level and then name it?

[mario]

yes Mick

 

I want - CHANGE LEVEL -

select menu : window,all,group,result .....

enter number of level

and after name of level

 

merci beaucoup

[Mick from CNC Software Inc.]

mario,

 

Have a look at this script example, I think with that and the one above you should be able to accomplish what you are after.