Ads by Google
Posted by すん at --/--/-- --:-- |
Top▲
3D図形の座標位置、サイズをテキストに書き出す
というこで、一応プロトタイプですが完成しましたよー。
まさか自分で作るとは思いませんでしたけどね。
スクリプトって関係ないものだとずっと思ってましたけど、
改めて知ってみると、ものっそ効率化してくれますね。
今回作ったのはVectorworksで選択した柱状体の中心座標とサイズを
テキストに書き出すって言うスクリプトです。
どういうこと！説明して！って言われそうなので簡単に解説しますね(ﾉ∀`)
簡単な図形を使って説明しますねー
※VWで立方体はワイヤーフレーム表示なので
分かりやすくする為色をつけています。
これが上から見た平面図ですね。
正方形が3つある感じです。
正面から見たところ
これを3つとも選択します。
それから追記に書いてあるスクリプトを実行するとテキストを取り出してくれます。
すると、こんな感じで数値がでます。
35 35 25 50 50 50
105 35 40 50 50 80
70 100 50 50 50 40
なんか数字だけですが左からｘ、ｙ、ｚ座標・幅、奥行き、高さ
って言う順番ですね。
いまいちどういう順番で書き出してくれてるのか分かりませんが(´∀｀*)
この数値をセカンドライフ上で入力すれば、はい出来上がりっていう感じです。
複雑な建築とか、プリム数多くてSL内で作業するとどうしても時間かかります。
オフラインで、vectorworksっていうソフトを使ってちゃちゃっと作れます。
しかも保存しておけます。
そういうことなのでわっふるわっふるしていたわけですよ( ﾟ∀ﾟ)
今思うのは、自動建造スクリプトがあればもっとらくちんなのになーって事ですね。
これもまた夢のようなお話しなんですよね(*´д｀*)
LSLも覚えないといけないので、はっきり言って自作はあきらめました（今のところ
いつかVWでモデリングしたものがそのままSLで建てれる日を待ち望んでます。
ということで追記にスクリプト置いておきますよー。
コピペなので改行とかおかしくなってるかもしれません。
PROCEDURE Export3Dsizepoint;
VAR
n:LONGINT;
h:HANDLE;
px, py, zValue:REAL;
height,width,depth:REAL;
s1, s2, s3, s4, s5, s6:STRING;
fileName:STRING;
BEGIN
PutFile ( '取り出し:','3D位置サイズデータ.txt',fileName );
IF NOT DidCancel THEN
BEGIN
h:=FSActLayer;
n:=Count((SEL=TRUE));
WHILE h<>NIL DO
BEGIN
DSelectObj(((T<>MXtrd) AND (T<>Xtrd) AND (SEL=TRUE)));
BEGIN
Get3DCntr(h,pX, pY, zValue);
s1 := Num2StrF ( px );
s2 := Num2StrF ( py );
s3 := Num2StrF ( zValue );
Get3DInfo(h,height, width, depth);
s4 := Num2StrF ( width );
s5 := Num2StrF ( height );
s6 := Num2StrF ( depth );
WriteLn ( s1,' ',s2,' ',s3,' ',s4,' ',s5,' ',s6);
END;
h := NextSObj ( h );
END;
END;
END;
RUN ( Export3DsizePoint );
このスクリプトはVectorworks11.5上で動作を確認しております。
他の環境で動く保障は出来ないのでご了承下さい。
セカンドライフで家建てたりとかで、vectorworks使ってる人ほとんどいないと思うので
役に立たないかもしれませんが、まあ自分用なのできにしません( ﾟ∀ﾟ)ｂ
スクリプトはこの記事で最後かもね！専門分野じゃないし(´ρ`)
PROCEDURE Export3Dsizepoint;
VAR
n:LONGINT;
h:HANDLE;
px, py, zValue:REAL;
height,width,depth:REAL;
s1, s2, s3, s4, s5, s6:STRING;
fileName:STRING;
BEGIN
PutFile ( '取り出し:','3D位置サイズデータ.txt',fileName );
IF NOT DidCancel THEN
BEGIN
h:=FSActLayer;
n:=Count((SEL=TRUE));
WHILE h<>NIL DO
BEGIN
DSelectObj(((T<>MXtrd) AND (T<>Xtrd) AND (SEL=TRUE)));
BEGIN
Get3DCntr(h,pX, pY, zValue);
s1 := Num2StrF ( px );
s2 := Num2StrF ( py );
s3 := Num2StrF ( zValue );
Get3DInfo(h,height, width, depth);
s4 := Num2StrF ( width );
s5 := Num2StrF ( height );
s6 := Num2StrF ( depth );
WriteLn ( s1,' ',s2,' ',s3,' ',s4,' ',s5,' ',s6);
END;
h := NextSObj ( h );
END;
END;
END;
RUN ( Export3DsizePoint );
このスクリプトはVectorworks11.5上で動作を確認しております。
他の環境で動く保障は出来ないのでご了承下さい。
セカンドライフで家建てたりとかで、vectorworks使ってる人ほとんどいないと思うので
役に立たないかもしれませんが、まあ自分用なのできにしません( ﾟ∀ﾟ)ｂ
スクリプトはこの記事で最後かもね！専門分野じゃないし(´ρ`)
3D図形の座標位置、サイズをテキストに書き出すへのトラックバックURL
http://undersun.blog48.fc2.com/tb.php/80-1a8859ae
3D図形の座標位置、サイズをテキストに書き出すにトラックバックする(FC2ブログユーザー)
3D図形の座標位置、サイズをテキストに書き出すにトラックバックする(FC2ブログユーザー)
Copyright © finder vision All Rights Reserved.
Copyright(C) 2006 GCREST, Inc. All Rights Reserved. (C)Copyright 2006 NtreevSoft Co., Ltd. All Rights Reserved. Ntreev and Trickster are registered Trademarks.
Produceed by ほったらかしで毎月5万円！アフィリエイトブログの作り方
FC2ブログ カウンター
