//ZBrush macro by marcus_civis - save to ZBrush 2021\ZStartup\Macros\Misc\ folder

[VarDef,fileName,""]

[IButton,???,"Export image of the document",
	[If,[IGet,Preferences:Utilities:View window id]==[IGetID,0],
		[MemDelete,MC_ExportSnap]
	]
	[If,[MemGetSize,MC_ExportSnap],
		[MemReadString,MC_ExportSnap,fileName,0]
		[VarSet,fileName,[FileNameAdvance,fileName,3]]
		,//else get file name
		[VarSet,fileName,[FileNameAsk,"PNG(*.png)|*.png|BMP(*.bmp)|*.bmp|Photoshop(*.psd)|*.psd||","Image000.png","Please save file..."]]
		[If,[StrLength,fileName],
			[MemCreate,MC_ExportSnap,256]	
		]		
	]
	[If,[StrLength,fileName],		
		[MemWriteString,MC_ExportSnap,fileName,0]
		[FileNameSetNext,fileName]
		[IPress,Document:Export]
	]	
,,0.5]