Create folder within toolpath explorer's folder

[karan30782]

Hi all !

I'm tring to make a macro which will create some folders eg. ROUGH & FINISH in each folder which are already available in toolpath explorer.

Like I have 3 folders named Electrode 01,Electrode 02,Electrode 03.

I need to create ROUGH & FINISH folders in all 3 folders , which I already have.

please have a look on my macro and  point me in right direction.

REAL lengthx = ""
REAL lengthy = ""
REAL lengthz = ""
STRING limits = ""
STRING R = 'ROUGH'
STRING F = 'FINISH'


FOREACH ll IN FOLDER ('LEVEL') {
UNDRAW LEVEL ALL DRAW LEVEL $ll.name
EDIT LEVEL $ll.name SELECT SURFACE
FORM BLOCK
EDIT BLOCK RESETLIMIT "0"
DELETE BLOCK
EDIT BLOCK RESET
DRAW BLOCK
DELETE SCALE
$lengthx = $widget("RoughBlock.LimitFrame.LenX").value
$lengthy = $widget("RoughBlock.LimitFrame.LenY").value
$lengthz = $widget("RoughBlock.LimitFrame.LenZ").value
$limits = $ll.name + " _ " + round($lengthx, 0) + " X " + round($lengthy, 0) + " X " +  round($lengthZ, 0)

BLOCK ACCEPT

IF NOT folder_exists("Toolpath\" + $limits ) {
	CREATE FOLDER "Toolpath" $limits + '\' + '$R'
        CREATE FOLDER "Toolpath" $limits + '\' + '$F'

}
}

Thank you !

[icse]

exchange this:

//you whant to create the subfolder only if the main folder exists(removed the not)
IF folder_exists("Toolpath\" + $limits ) {	
	string $path = 'Toolpath\' + $limits
	CREATE FOLDER ${path} ${R}
    CREATE FOLDER ${path} ${S}
}

[karan30782]

Not working ..... BRO

[icse]

can you show me the error message?

[karan30782]

It doesn't show any error ,but not any folder nor sub folder created.

[icse · Accepted solution]

ah now i see... i thougth the base folders are already existant as you wrote in your original post.

try this then:

REAL lengthx = ""
REAL lengthy = ""
REAL lengthz = ""
STRING limits = ""
STRING R = 'ROUGH'
STRING F = 'FINISH'


FOREACH ll IN FOLDER ('LEVEL') {
	UNDRAW LEVEL ALL DRAW LEVEL $ll.name
	EDIT LEVEL $ll.name SELECT SURFACE
	FORM BLOCK
	EDIT BLOCK RESETLIMIT "0"
	DELETE BLOCK
	EDIT BLOCK RESET
	DRAW BLOCK
	DELETE SCALE
	$lengthx = $widget("RoughBlock.LimitFrame.LenX").value
	$lengthy = $widget("RoughBlock.LimitFrame.LenY").value
	$lengthz = $widget("RoughBlock.LimitFrame.LenZ").value
	$limits = $ll.name + " _ " + round($lengthx, 0) + " X " + round($lengthy, 0) + " X " +  round($lengthZ, 0)
	
	BLOCK ACCEPT
	
	CREATE FOLDER 'Toolpath' ${limits}
	IF folder_exists("Toolpath\" + $limits ) {	
		string $path = 'Toolpath\' + $limits
		CREATE FOLDER ${path} ${R}
		CREATE FOLDER ${path} ${F}
	}
}

[karan30782]

It's fantastically working !

Thank you !!