vb scrip

[mario]

est-ce possible de crée un scrip pour faire

 

file/get/all level on/all unblank/zoom all/save in same name

 

pour tout les répertoires

 

[ 04-22-2003, 04:30 PM: Message edited by: mario ]

[steve f]

mario,

 

probablement, mais il n'y a pas beaucoup des persons ici qui parlent (sp) en francais et aidez-vous avec vos (?) question.

 

steve

[mario]

je sais mais tu vas voir il plusieur personne qui parle très bien le francais sur le forum

[McRae]

Rek'd would be the hacker of choice to make the routine you desire - but as our albertan friend has stated, you will get a better result if you post your question in English - Otherwise Ksoufi is the only other resource for this kind of stuff that may speak french as well.

 

Launguage is the key to the world and I am at a disdvantage as I only speak one...

 

[ 04-22-2003, 04:54 PM: Message edited by: Andrew McRae ]

[ksoufi]

Hi to all

 

I can help either in english or frensh

but i don't have access to 9.1 yet , with (c/c++), it's easy to do this job.

 

mario , je n'ai pas encore accès à la version 9.1, cependant je sais faire avec du (c/c++).

[Bullines]

quote:

---

je sais mais tu vas voir il plusieur personne qui parle très bien le francais sur le forum

---

Nous avons besoin de plus vbscript.htm a toutes les fonctions disponibles pour Mastercam. Il semble possible avec le C-Hook API mais le VBS ne contient pas toutes les fonctions des C-Hooks...maintenant.

 

VBS, pouvez-vous nous aider? Er, I mean...VBS, can you help us?

[Mick from CNC Software Inc.]

Could some one translate this for me, I did try babelfish but the conversion was unclear.

 

Cheers.

[mario]

ok I try

 

my question is, if possible to create vbscrip for

 

file get/all level on/all unblank/zoom all/save in same name

 

open all file in folder( one by one ), all level on, all unblank, zoom all and save in the same name

 

i know if possible with autocad I wonder if it is possible with macam9.1

 

thank's ans excuse my english and my fench

[Mick from CNC Software Inc.]

Hi,

 

Not sure if this is what you are after but...

 

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

Const DEF_LEVELS = 255

 

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

On Error Resume Next

 

Dim FSO

Dim fsoFolder

Dim fsoFiles

Dim fsoFile

Dim i

Dim intCount

 

 

Set FSO = CreateObject("Scripting.FileSystemObject")

 

' **********************************************************************

' -- Ideally you would invoke a windows browse for folder

' -- dialog and have the user select a folder.

' -- See the example Batch Import DXF Files.vbs on how to do this.

' **********************************************************************

Set fsoFolder = FSO.GetFolder("C:Mcam9Data")

 

' -- Get all files in this folder

Set fsoFiles = fsoFolder.Files

 

' -- Iterate all files in this folder

For Each fsoFile In fsoFiles

' -- MC drawing?

If Right(LCase(fsoFile.Name), 3) = "mc9" Then

' -- Clear screen

NewMC False

' -- Open this drawing

If OpenMC(fsoFile.Path) Then

' -- Keep a running total

intCount = intCount + 1

' -- Iterate all levels

For i = 1 To DEF_LEVELS

' -- Clear the level name

SetLevelName i, vbNullString

Next

 

' -- Zoom all

RepaintScreen True

 

' -- Save the file

SaveMC False

End If

End If

Next

 

' -- Clear screen

NewMC False

 

' -- Show some feedback

If intCount = 0 Then

ShowString "No drawings found in selected folder"

Else

ShowString intCount & " files processed"

End If

 

If Err Then

ShowString "An error has occured with a description of " & Err.description

End If

 

 

' -- Clean up

Set fsoFile = Nothing

Set fsoFiles = Nothing

Set fsoFolder = Nothing

Set FSO = Nothing

 

End Sub

[mario]

DO YOU WANT TO SHIP A VB FILE BECAUSE COPY PASTE DOESN'T WORK

[Rekd™]

LOL! He's right, it doesn't wrap at the CR/LF's. Did you use 'quote' or 'code'??

 

'Rekd teh On Error GoTo He11

[Bullines]

Try pasting it into Notepad, first.

[mario]

I pasted in word and it's ok

 

[ 04-23-2003, 11:52 AM: Message edited by: mario ]