Tｺｰﾄﾞ順の工具ﾘｽﾄを作成する

まだまだ、PowerMillが使いこなせず悩んでます。
その1つが段取りする為の工具のﾘｽﾄ。

ISOｺｰﾄﾞ（Gｺｰﾄﾞ）出力する際、PowerMillではこんな感じになり
それぞれをﾎﾟｽﾄ処理します。
f:id:kandennti:20180302190324p:plain
その際ｾｯﾄｱｯﾌﾟｼｰﾄ（段取指示書、作業指示書・・とか）を作る事が
どのCAMｿﾌﾄでも出来る物ですが、こんな感じの物を作って使用しています。
f:id:kandennti:20180302190334p:plain
ﾌｫｰﾏｯﾄ自体は自由に変更できるのですが、どのCAMｿﾌﾄでも不満なのは
工程順に出力される部分です。（当然、それも欲しいのですが）

実際に現場で段取りを行う際は、工程順ではなくTｺｰﾄﾞ順に工具の用意や
確認をしたいんです、僕は。

過去にSpace-eでもｻﾎﾟｰﾄさんにこの件を何度か伝えたのですが、
未だ実現されてません。(ﾌﾟﾗｸﾞｲﾝの作り方も教えてもらえない・・・)

先日、PowerMillのﾌｫｰﾗﾑでこちらを見つけました。
Tool Tree Set-Up Sheet - Autodesk Community
よくこんなものを作れるなぁ　と言うのが本音です。

幾つかのﾀｲﾌﾟがあるのですが、個人的に使いやすいように（劇的に）直しました。
・ﾌﾗﾝｽ語　→　日本語
・Tｺｰﾄﾞ順にｿｰﾄ　←　これが一番の目的
・ﾏﾙﾁｾﾚｸﾄ時、個別ではなく集計しｴｸｽﾎﾟｰﾄ
・項目・表示の見直し
・ｺｰﾄﾞがｲﾛｲﾛと汚い･･･
　（ﾌｧｲﾙ開きっぱなしで、ﾙｰﾌﾟし処理しつつ書き出しは許せない）

//pm2018 macro
//UseToolList.mac Ver0.0.1
//選択済みNCﾌﾟﾛｸﾞﾗﾑから工具ﾘｽﾄを作成
//---------------------------------------------------------------------------------------------------
//本マクロはｺﾝﾃｷｽﾄﾒﾆｭｰからの起動の為、ncprogram.XMLに追記してください
//<?xml version="1.0" ?>
//<menupage>
//   <button label="使用工具リスト" command='MACRO ncprogram\UseToolList.mac ' 
 multiple_selection="allowed"/>
//</menupage>
//---------------------------------------------------------------------------------------------------

function Main() {
	//ｼﾝｸﾞﾙ-処理　ﾏﾙﾁ-最初のみ処理
	IF $PowerMILL.Status.MultipleSelection.Total  {
		IF $PowerMILL.Status.MultipleSelection.First == 0 {
			return
		}
	}
	
	//実行前チェック
	call HasProjectName()
	
	//選択要素(NCﾌﾟﾛｸﾞﾗﾑ)内でﾂｰﾙﾊﾟｽを持つもののみのリスト
	entity list ncs =  {}
	call GetHasToolpathNcpro(explorer_selected_entities() ,$ncs) 
	
	//ｴｸｽﾎﾟｰﾄﾊﾟｽ取得・ﾌｫﾙﾀﾞ作成
	string expdir = project_pathname(0) + '/NCProgramUseTools'
	MKDIR $expdir
	string exppath = $expdir+ "/UseTools.html"
	
	//Tｺｰﾄﾞによるｿｰﾄ済み工具ﾘｽﾄ
	entity list tools =  {}
	call GetSortedToolLst($ncs ,$tools) 
	
	//工具ｲﾒｰｼﾞ
	string list imgs = {}
	call InitToolImg($tools, $expdir ,$imgs) 	
	
	//工具データ
	string list tables = {}
	call GetToolInfoTable($tools ,$imgs ,$tables)
	
	//書き出し
	string list expheader = {'<html>','<head>','<title>使用工具</title>','</head>','<body lang=FR>','<H1> 使用工具 </H1>'}
	string list expfooter ={'</body>','</html>'}
	string list exptxt = $expheader + $tables + $expfooter 
	call WriteFile($exppath , $exptxt)
	
	//ﾌﾞﾗｳｻﾞに表示
	message info  'Done'
	OLE fileaction 'open' $exppath
}

//工具画像
function InitToolImg(entity list lst, string exppath ,output string list outlst) {
	string list imgs = {}
	int dmy = 0
	string cmd = ''
	string imgname = ''
	foreach tl in lst {
        $imgname = replace($tl.name ,' ' ,'_') + '.png'
		$cmd='FORM RAISE TOOLASSPREVIEWFORM "' + $tl.name  + '"'
		docommand $cmd
		wait form //必要
		
	    $cmd='EXPORT TOOLASSEMBLYPREVIEW FILE "' + $exppath + '/' + $imgname +'"'
        docommand $cmd
		yes
		FORM CANCEL TOOLASSPREVIEWFORM
		
		$dmy = add_last($imgs , $imgname)
	}
	$outlst = $imgs
}

//工具情報
function GetToolInfoTable(entity list tools ,string list imgs ,output string list outlst) {
	string list tb_head = {'<table border=1 cellspacing=1 cellpadding=1>'}
	string list tb_foot = {'</table>'}
	
	//ﾃｰﾌﾞﾙﾀｲﾄﾙ
	string list tb_title = {'ｲﾒｰｼﾞ','Tｺｰﾄﾞ','径/ﾉｰｽﾞR','ﾀｲﾌﾟ','ｼｬﾝｸ径/首下','ﾎﾙﾀﾞ径/突出','ﾎﾙﾀﾞ名'}
	string tmp = ''
	call Join2SrtLst($tb_title ,'<TD align="center" ><H3>', '</H3></TD>' ,$tmp)
	$tmp = '<TR>' + $tmp + '</TR>'
	$tb_title = {$tmp}
	
	//ｲﾒｰｼﾞﾀｸﾞ用
	string browser = '15%' //Chrome
	//string browser = '80p' //IE　上手く行かない

	//ﾃｰﾌﾞﾙ中身 ﾀｲﾄﾙと合わせてね
	string list tb_infos = {}
	string list vals = {}
	int dmy = 0
	int cnt = -1
	foreach tl in tools {
		$vals = {}
		$cnt = $cnt + 1
		
		$dmy = add_last($vals , '<img src="./' + $imgs[$cnt] + '" alt="' + $tl.name + '"  height="' + $browser +'"/>')
		$dmy = add_last($vals , string($tl.Number.Value))
		$dmy = add_last($vals , 'D' + string(round($tl.Diameter,3)) + '/R' + string(round($tl.TipRadius,3)))
		$dmy = add_last($vals , string($tl.Type))
		$dmy = add_last($vals , 'D' + string(round($tl.ShankSetValues[0].UpperDiameter,3))+ '/' + string(round($tl.Length,3)))
		$dmy = add_last($vals , 'D' + string(round($tl.HolderSetValues[0].LowerDiameter,3))+ '/' + string(round($tl.Overhang,3)))
		$dmy = add_last($vals , $tl.HolderName)
		
		call Join2SrtLst($vals ,'<TD align="center" >', '</TD>' ,$tmp)
		$tmp = '<TR>' + $tmp +'</TR>'
		$dmy = add_last($tb_infos  ,$tmp)
	}
	
	$outlst = $tb_head + $tb_title + $tb_infos  + $tb_foot
}

//Tｺｰﾄﾞによるｿｰﾄ済み工具リスト
function GetSortedToolLst(entity list ncs ,output entity list outlst) {
	string list tools = {}
	foreach nc in ncs {
		$tools = $tools + list_nctools($nc)
	}
	int dmy = 0
	$dmy = remove_duplicates($tools)
	
	entity list nctools = {}
	foreach toolname in tools {
		$dmy = add_last($nctools , entity('Tool',$toolname))
	}	
	$nctools = sort($nctools ,'tool.number')
	$outlst = $nctools
}

//StrLstの連結
function Join2SrtLst(string list lst ,string SepFront ,string SepRear ,output string out) {
	string s = ''
	foreach t in lst {
		$s = $s + $SepFront + $t + $SepRear
	}
	$out = $s
}

//ファイル書き出し
function WriteFile(string path ,string list lst) {
	string s = ''
	call Join2SrtLst(lst ,'' ,crlf ,$s)
	FILE OPEN $path FOR WRITE AS file
	FILE WRITE $s TO file
	FILE CLOSE file
}

//ﾂｰﾙﾊﾟｽを持っているNcデータリスト
function GetHasToolpathNcpro(entity list ncs ,output entity list outlst) {
	foreach nc in $ncs {
		IF number_nctoolpaths($nc) > 0 {
			int dmy = add_last($outlst , $nc)
		}
	}
	IF is_empty($outlst) {
		string msg = '選択されたNCプログラムにはツールパスがありません!'
		MESSAGE ERROR $msg
		MACRO ABORT 
	}	
}

//保存されているﾌﾟﾛｼﾞｪｸﾄ？
function HasProjectName() {
	string $proname = project_pathname(1)
	if length($proname) > 0 {
		return
	}
	
	string msg = '一度ﾌﾟﾛｼﾞｪｸﾄを保存してください!'
	MESSAGE ERROR $msg
	MACRO ABORT 
}