Skip to content

Instantly share code, notes, and snippets.

@deathponta
deathponta / ShowProcessingTime.ms
Last active November 19, 2016 09:42
【MaxScript】処理時間を計測する
-- スクリプトリスナーをすっきりさせるためのコマンドです。無くてもいいです。
Clearlistener()
sTime = timeStamp() -- 開始時間保存
------------------------------
-- 処理内容をここに記述
for i=1 to i=10000 do(
print i
)
@deathponta
deathponta / batchProcessTest.ms
Created November 19, 2016 10:44
【MaxScript】バッチ処理
-- 現在開いているMaxファイルのフルパスゲット
baseFilePath = maxFilePath+maxFileName
-- 今回は9ファイル処理。001 - 009。それ以上は別途対応が必要なり
for i=1 to 9 do(
-- Substring 関数え取得したパスを編集。拡張子前の一文字をiに置き換え
filePath = ((Substring baseFilePath 1 (baseFilePath.count-5)) + (i as String)+".max")
LoadMaxFile filePath
@deathponta
deathponta / batchProcessTest999.ms
Last active November 19, 2016 11:17
【MaxScript】バッチ処理999迄対応
-- 現在開いているMaxファイルのフルパスゲット
baseFilePath = maxFilePath+maxFileName
-- 今回は150ファイル処理。001 - 150
for i=1 to 150 do(
--------------------------------------------------
-- 001 - 999 迄処理が行えます。今回は4桁の連番には対応しません。
if ( i<10 ) then(
filePath = ((Substring baseFilePath 1 (baseFilePath.count-5)) + (i as String)+".max")
)else if ( (i>9) and (i<100) ) then (
@deathponta
deathponta / SwapBool.ms
Last active December 20, 2016 14:53
【MaxScript】真偽値の反転サンプル
try( DestroyDialog rol_test )catch()
global b = true
rollout rol_test "SwitchTest" width:120 height:32(
button btn1 "押して" pos:[8,8] width:104 height:16
on btn1 pressed do(
b = not b
@deathponta
deathponta / ShowBoundingBox.ms
Created February 19, 2017 12:34
【MaxScript】BoundingBoxの取得し最小値と最大値の位置にポイント配置
bb = NodeLocalBoundingBox $
bmax = bb[2]
bmin = bb[1]
Point pos:bmax box:off cross:on
Point pos:bmin box:off cross:on
@deathponta
deathponta / GoLastRow.js
Created March 11, 2017 05:47
GoogleSSで最終行を取得して移動する
function GoLastRow() {
var as = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet();
var lastRow = as.getLastRow();
// 意味 A1 ~ A最終行 迄の範囲取得
var A_Cells = as.getRange( 1,1,lastRow,1 );
// Aのすべてのセル内の値配列
var A_Values = A_Cells.getValues();
@deathponta
deathponta / ToggleDownLayerVisible.jsx
Created April 6, 2017 13:28
アクティブレイヤーの下のレイヤーをトグル。可視時は半透明。
/*
Created on 2017.4.5
現在のアクティブレイヤーの下のレイヤーをオン・オフ
不透明度は50%にする
■ 用途
アニメーション作業をする時に、下のレイヤーをオン・オフしながらやることが多いので
*/
l = activeDocument.layers;
al = activeDocument.activeLayer;
@deathponta
deathponta / RenameNodeNameAllMaxFile.ms
Last active May 20, 2017 04:14
複数maxシーン内のノード名を一括リネーム
/*
Created on 2017.5.16
Author deathponta
指定フォルダ内にある全Maxファイル内の、指定したノードをリネームする
*/
fn Main _tgtPath _srcNodeName _newNodeName=(
d = DotNetClass "System.IO.Directory"
@deathponta
deathponta / PrintAllBitmapPath.ms
Created July 16, 2017 04:39
シーン内の全Bitmapのテクスチャ参照パスを表示
for map in ( GetClassInstances BitmapTexture ) do(
print map.filename
)
@deathponta
deathponta / ReplaceRelativePath.ms
Created July 16, 2017 05:06
テクスチャ絶対パスを相対パスに置き換え
p = DotNetClass "System.IO.Path"
-- path をプリントするだけ
for map in ( GetClassInstances BitmapTexture ) do(
-- 絶対パスから名前と拡張子を取り出す
fileNameExtension = p.GetFileName( map.fileName )
-- テクスチャパスを相対パスに
map.fileName = "..\\tex\\" + fileNameExtension
)