topic Re: Macro Z values of the flat surfaces in PowerMill Forum

Macro Z values of the flat surfaces

lopezerik73 — Tue, 24 Apr 2018 18:29:57 GMT

Hello.

As title says i want to make a macro for get the Z values of the flat surfaces.

For the moment only have the flat surfaces selected.

Some one can help me to continue ,please?

Many thanks.

kind regards.

Macro:

EDIT MODEL ALL SELECT FLAT

Re: Macro Z values of the flat surfaces

jean-baptiste.bannerot — Wed, 25 Apr 2018 07:08:15 GMT

Hello @lopezerik73,

You want to get the Z values in an external file?

Please try to use the macro in attachment file and say me if it's working as you want.

Regards

Re: Macro Z values of the flat surfaces

lopezerik73 — Wed, 25 Apr 2018 10:03:17 GMT

Hello @jean-baptiste.bannerot.

First at all thanks for answer.

About get the data in external file is not necesary at all.

But , i have a problem, when execute the macro i have error in line 24 : EDIT MODEL ALL SELECT $Surf.

Don´t know what is the problem.

Many thanks for ty to help me.

Kind regards.

Re: Macro Z values of the flat surfaces

jean-baptiste.bannerot — Wed, 25 Apr 2018 10:07:08 GMT

Please can you send me a screen shot of the error box ?

Re: Macro Z values of the flat surfaces

lopezerik73 — Wed, 25 Apr 2018 10:27:09 GMT

Sorry, now i test in other part file and works fine.

Thanks.

Is posible to sort this values min to max?

Many thanks and sorry.

kind regards.

Re: Macro Z values of the flat surfaces

jean-baptiste.bannerot — Wed, 25 Apr 2018 11:59:57 GMT

Ok perfect.

Yes you can find in the documentation all macro function : "C:\Program Files\Autodesk\<PowerMill version>\lib\locale\C\HELP\Pmill.chm".

You can use extract all value from a list. Be carrefull, the macro used a string list and to extract value you need to use a real list.

Re: Macro Z values of the flat surfaces

lopezerik73 — Wed, 25 Apr 2018 12:07:47 GMT

Ok, many thanks.

I think for the moment i use it as you do, because i haven´t enough knowledge for the moment to modify.

Many thanks again.

Kind regards.

Re: Macro Z values of the flat surfaces

Mikhail_Voronin — Fri, 27 Apr 2018 07:27:26 GMT

Hi Jean-Baptiste,

I have a little problem with the macro

Re: Macro Z values of the flat surfaces

jean-baptiste.bannerot — Fri, 27 Apr 2018 07:41:56 GMT

Hi Mikhail,
Ok what is the problem ? How can I help you ?

Re: Macro Z values of the flat surfaces

Mikhail_Voronin — Fri, 27 Apr 2018 07:57:58 GMT

If PowerMILL doesn't have an English interface the macro doesn't work

Re: Macro Z values of the flat surfaces

jean-baptiste.bannerot — Fri, 27 Apr 2018 08:24:57 GMT

Ok I've find the problem.

Please try with this new version of the macro.

Jean-Baptiste

Re: Macro Z values of the flat surfaces

Mikhail_Voronin — Fri, 27 Apr 2018 08:35:36 GMT

It works fine,

Thank you!

Re: Macro Z values of the flat surfaces

jean-baptiste.bannerot — Fri, 27 Apr 2018 09:19:57 GMT

@Mikhail_Voronin don't forget to approve the solution;)

Thanks

Re: Macro Z values of the flat surfaces

kandennti — Mon, 30 Apr 2018 11:20:16 GMT

Even in non-English interface, it should work.
It is also fast.

function main() {
	//Please set a temporary file path
	string tracepath = 'c:\tmp\sel_surfs.txt'
	
	EDIT MODEL ALL DESELECT ALL
	EDIT MODEL ALL SELECT FLAT
	
	string list surfs = {}
	call GetFlatFacesName($tracepath, $surfs)
	if size($surfs) < 1 {
		message warn 'Horizontal plane can not be found!'
		return
	}

	string list zlevel = {}
	call GetZLevelList($surfs, $zlevel)
	
	string $msg = 'Flat surfaces Z value :' + crlf + join(zlevel, crlf)
	message info $msg
}

//高さリスト取得
function GetZLevelList(string list surfs, output string list out) {
	$out = {}
	
	UNDRAW BLOCK
	EDIT BLOCKTYPE BOX
	EDIT BLOCK COORDINATE WORKPLANE
	EDIT PAR powermill.Options.Block.UseReferenceModel 0
	
	EDIT BLOCK ALL UNLOCK
	EDIT BLOCK TOLERANCE '0.01'
	EDIT BLOCK RESETLIMIT '0'
	EDIT BLOCK LIMITTYPE MODEL
	
	string list pros = {}
	int dmy = 0
	string face = ''
	GRAPHICS LOCK
	foreach s in $surfs {
		EDIT MODEL ALL DESELECT ALL
		$face = RTRIM($s)
		EDIT MODEL ALL SELECT $face
		
		EDIT BLOCK RESET
		$dmy = add_last($out, string(round($Block.Limits.ZMin,3)))
	}
	GRAPHICS UNLOCK
	EDIT MODEL ALL DESELECT ALL
	
	$dmy = remove_duplicates($out )
	$out = reverse(sort($out ))
}

//水平面名取得
function GetFlatFacesName(string tracepath, output string list out) {
	$out = {}
	
	ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT
	tracefile open $tracepath
	print SELSURFACE
	tracefile close
	ECHO ON DCPDEBUG TRACE COMMAND ACCEPT
	
	file open $tracepath for read as 's'
	file read $out  from 's'
	file close 's'
	delete file $tracepath

	int dmy = remove_first($out )
}

Re: Macro Z values of the flat surfaces

jelrod — Mon, 30 Apr 2018 12:33:37 GMT

I think I'm getting the same error @lopezerik73 was. Please see attached. Using version 2018

Re: Macro Z values of the flat surfaces

5axes — Wed, 02 May 2018 09:14:20 GMT

Nice solution @kandennti

I would just change in your code the location of the temporary tracefile into :

	// Temporary file path
	STRING $TraceFilePath = MACRO_PATH(false) + "\Tracefile.txt"

like that you are not dependent of the configuration of your post with a hard coded path. GetFlatFacesName could be write like that :

FUNCTION GetFlatFacesName(OUTPUT STRING LIST Surf) {

	// Temporary file path
	STRING $TraceFilePath = MACRO_PATH(false) + "\Tracefile.txt"
	
	$Surf = {}
	
	ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT
	TRACEFILE OPEN $TraceFilePath
	PRINT SELSURFACE
	TRACEFILE CLOSE
	ECHO ON DCPDEBUG TRACE COMMAND ACCEPT
	
	FILE OPEN $TraceFilePath FOR READ AS Input
	FILE READ $Surf FROM Input
	FILE CLOSE Input
	DELETE FILE $TraceFilePath

	INT Ret = REMOVE_FIRST($Surf)
}

herewith same macro with block reset

Re: Macro Z values of the flat surfaces

kandennti — Wed, 02 May 2018 13:33:44 GMT

Thanks 5axes.

I also learned a lot.