Macro Ncprogram same name Model

[mantal84]

Greetings everyone, 

I need a macro that creats a ncprogram with the same name of moldel name. There is a solution on fórum but Opens a Window for me to Choose a model. I only same a one model. 

[cfastNJWK6]

STRING $ModName = ""
FOREACH $mod IN folder('Model') {
	$ModName = $mod.Name
	}
CREATE NCPROGRAM $ModName EDIT NCPROGRAM $ModName

[HMC400]

 NcProgram name

[HMC400]

Nc program Name