AFsoft World

Jw_cad（for Windows/JWW）を起動し、範囲選択→コピーを行った後に本ツールで[取込]を行い、Script!3D用すくりぷとコードに変換する事が出来ます。変換後はコピー＆ペーストで利用して下さい。
※Jw_cadクリップボードデータは図寸となっている為、実寸にするためレイヤグループ[0]の縮尺をかけています。寸法図形要素・寸法属性の要素・文字要素・ブロック図形・画像の変換は行いません。点マーカーは単純な点データとなります。線種は実線のみとなります。色設定値は白背景時のJWW初期値と同じです。SXFユーザー色は全て[7]です。ソリッド任意色は256色範囲に丸められます。データ容量が多くなればなるほど遅くなります。
※Jw_cad Ver.7.00形式クリップボードデータに対応(2010/05/30)

「Script!3D Shareware Edition」にて作成した配布用スクリプトファイル(拡張子が「.S3T」のファイル)を開いて実行し、3D図形を作図・一時的に3D-DXFファイル 又は COLLADA(.dae)ファイルを生成しそれを Google SketchUp 等へ送信する事により比較的容易に3D図形描画を行おうというためのプログラムです。

このソフトウェアは、スクリプトから3次元図形の作成を行い、3D-DXF(3DFACE)、OBJ、STL、VRML(2.0)、X3D、COLLADA(DAE)、BMPファイル出力をするためのプログラムです

・配布用スクリプトファイル(.d3t)の保存を行えるよう追加しました。（レジストしている場合にのみ利用可能）本ソフトでこのファイルを開く事は出来ませんので、通常のスクリプトファイル保存を行うよう御注意下さい。
※この配布用スクリプトファイルは、別ソフトである「Script!3D Runner」にて開き実行する事が出来ます。（この「Script!3D Runner」はフリーウェアです）
・COLLADA(.dae)ファイルで、一部のソフトで、mm単位設定を受け入れてくれないものがあるようですので、標準のｍ単位で保存するよう修正を行いました。そのため、小数点以下7桁で出力していたのを9桁に修正
・DXF/DAE出力時、SketchUpでは小さい面を作図出来ない為、大きめにインポートしてから SketchUpでスケール調整等を行う必要がありますがSketctUpでのDXFオプション指定画面で単位設定を変更する手間を防ぐ為GSU出力設定で出力倍率を指定出来るよう追加しました。

// R_SWEPSテスト2
//
#VAR
　i
　w1
#DRAW
　// パスを作成
　//　　長方形軌道（閉図形）とします
　PEN　2
　BOX2D　i,0,0,100,100
　RLSEL1　i,-1,-1,0, 0,0,0, 0.001, 1,1,999,999　// 連続線検索＆作図＆選択
　RENCLR　　// 連続線データ・クリア
　RENSET　　// 選択図形→連続線セット
　
　// 断面を作成
　// Y-Z面をX-Y面として描くのでY軸回りに-90度回転します
　CAL　w1 = -90/180*PI
　ROYMATR　w1
　PEN　3
　CIRCLE2D　i,SetArcSep, 0,0,20
　RLSEL1　i,-1,-1,0, 0,20,0, 0.001, 1,1,999,3　// 線色3を選択
　　　　　// RLSEL1の検索開始点は絶対座標なので注意して下さい
　　　　　// 方向の指定で面の向きを簡単に変えられますので使用しています
　　　　　// 線を二重描きすることになりますが後で一括して線は消します
　
　// #EXIT
　
　// スイープ開始
　R_SWEPS　0,-1,-1, 1,1
　
　// 線を消します
　ALLSEL　i,1,1,999,999　　// 選択
　S_DELE

// R_SWEPSテスト1
//
#VAR
　i
　w1
#DRAW
　// パスを作成
　//　　直線軌道とします
　PEN　2
　LINE2D　i,0,0,100,0
　LINE2D　i,100,0,100,100
　LINE3D　i,100,100,0, 100,100,100
　ALLSEL　i,1,1,999,999　　// 選択
　RENCLR　　// 連続線データ・クリア
　RENSET　　// 選択図形→連続線セット
　
　// 断面を作成
　// Y-Z面をX-Y面として描くのでY軸回りに-90度回転します
　CAL　w1 = -90/180*PI
　ROYMATR　w1
　PEN　3
　CIRCLE2D　i,SetArcSep, 0,0,20
　RLSEL1　i,-1,-1,0, 0,20,0, 0.001, 1,1,999,3　// 線色3を選択
　　　　　// RLSEL1の検索開始点は絶対座標なので注意して下さい
　　　　　// 方向の指定で面の向きを簡単に変えられますので使用しています
　　　　　// 線を二重描きすることになりますが後で一括して線は消します
　
　// #EXIT
　
　// スイープ開始
　R_SWEPS　0,-1,-1, 0,0
　
　// 線を消します
　ALLSEL　i,1,1,999,999　　// 選択
　S_DELE

このソフトウェアは、スクリプトから3次元図形の作成を行い、3D-DXF(3DFACE)、OBJ、STL、VRML(2.0)、X3D、COLLADA(DAE)、BMPファイル出力をするためのプログラムです。

Ver.1.18　2009/10/11　更新
・以下の命令の修正を行いました
　　R_SWEPS（※仕様変更も行っています）

このソフトウェアは、スクリプトから3次元図形の作成を行い、3D-DXF(3DFACE)、OBJ、STL、VRML(2.0)、X3D、COLLADA(DAE)、BMPファイル出力をするためのプログラムです。

Ver.1.17　2009/09/27　更新
・COLLADA(.dae)ファイル保存を追加しました。
・メニュー「設定」→「SketchUp7出力設定」追加
・ボタン[GSU7出力] 追加

フリー版ですが　座標値入力でガイドポイントを落とす方法がありますか教えてください

#VAR
　i
#DRAW
　TEN　i, 100,100,100
　TEN　i, 200,100,100
　TEN　i, 100,200,100

#VAR
　X = 0　　　;*X座標
　Y = 0　　　;*Y座標
　Z = 0　　　;*Z座標
　i
#DRAW
　TEN　i, X,Y,Z

// ねじり三角
#VAR
　col = 3　　　;*線色
　r = 100　　　;*半径
　h = 500　　　;*高さ
　sx = 10　　　;*回転図形X
　sy = 10　　　;*回転図形Y
　a = 180　　　;*回転角度[°]
　sp = 12　　　;*分割数
　ba = 1　　　　;*最終倍率X
　bx = 1　　　;*作成後倍率X
　by = 2　　　;*作成後倍率Y
　bz = 1　　　;*作成後倍率Z
　i
　j
　w1
　w2
　w3
　w4
#DRAW
　// 回転図形を作図
　LAYER　1
　PEN　col
　TEN　i,r,0,0

　// 回転体する図形を選択状態にします
　ALLSEL j, 1,999,1,999

　// 回転体します
　CAL　w1 = h
　CAL　w2 = a/180*PI
　S_ROT2 1,-1,-1,sp, 0,0,0, 0,0,0, 0,0,100, ba,1,1, w1, w2,0
　RLSEL1 i,-1,-1,0, r,0,0, 0.001, 1,1,1,999
　RENCLR
　RENSET

　// 回転図形を作図
　LAYER　2
　PEN　col
　TEN　i,r,0,0

　// 回転体する図形を選択状態にします
　ALLSEL j, 1,999,2,999

　// 回転体します
　CAL　w1 = 0
　CAL　w2 = a/180*PI
　S_ROT2 1,-1,-1,sp, 0,0,0, 0,0,0, 0,0,100, ba,1,1, w1, w2,0
　RLSEL1 i,-1,-1,0, r,0,0, 0.001, 1,1,2,999

　R_RULED 1,0,col,1

　// 削除
　ALLSEL j, 1,999,1,999
　S_DELE
　ALLSEL j, 1,999,2,999
　S_DELE

　// 変形
　ALLSEL j, 1,999,999,999
　S_MOVS 0,0,0, 0,0,0, bx,by,bz

// ねじり三角×４
#VAR
　col = 3　　　;*線色
　r = 100　　　;*半径
　h = 500　　　;*高さ
　sx = 10　　　;*回転図形X
　sy = 10　　　;*回転図形Y
　a = 180　　　;*回転角度[°]
　sp = 12　　　;*分割数
　ba = 1　　　　;*最終倍率X
　bx = 1　　　;*作成後倍率X
　by = 2　　　;*作成後倍率Y
　bz = 1　　　;*作成後倍率Z
　i
　j
　w1
　w2
　w3
　w4
#DRAW
　// 回転図形を作図
　LAYER　1
　PEN　col
　TEN　i,r,0,0

　// 回転体する図形を選択状態にします
　ALLSEL j, 1,999,1,999

　// 回転体します
　CAL　w1 = h
　CAL　w2 = a/180*PI
　S_ROT2 1,-1,-1,sp, 0,0,0, 0,0,0, 0,0,100, ba,1,1, w1, w2,0
　RLSEL1 i,-1,-1,0, r,0,0, 0.001, 1,1,1,999
　RENCLR
　RENSET

　// 回転図形を作図
　LAYER　2
　PEN　col
　TEN　i,r,0,0

　// 回転体する図形を選択状態にします
　ALLSEL j, 1,999,2,999

　// 回転体します
　CAL　w1 = 0
　CAL　w2 = a/180*PI
　S_ROT2 1,-1,-1,sp, 0,0,0, 0,0,0, 0,0,100, ba,1,1, w1, w2,0
　RLSEL1 i,-1,-1,0, r,0,0, 0.001, 1,1,2,999

　R_RULED 1,0,col,1

　// 削除
　ALLSEL j, 1,999,1,999
　S_DELE
　ALLSEL j, 1,999,2,999
　S_DELE

　// 変形
　ALLSEL j, 1,999,999,999
　S_MOVS 0,0,0, 0,0,0, bx,by,bz

　// 以下の数値はテキトウなので注意
　CAL　w1 = 0
　CAL　w2 = -30
　CAL　w3 = -12
　S_MOVN w1,w2,w3

　CAL　w4 = 0.5*PI
　S_COPRX 1,-1,-1, 0,0,0, w4
　CAL　w1 = 3
　CAL　w2 = 0
　CAL　w3 = 0
　S_MOVN w1,w2,w3

　S_COPRX 1,-1,-1, 0,0,0, w4
　S_MOVN w1,w2,w3

　S_COPRX 1,-1,-1, 0,0,0, w4
　S_MOVN w1,w2,w3

// 傘
#VAR
　kcol = 1　　;*傘の線色
　scol = 7　　;*支柱の線色
　ecol = 5　　;*柄の線色
　kh = 300　　;*傘高さ
　kr = 500　　;*傘半径
　kn = 8　　　;*角数
　krx = 20　　;*krx
　krz = 30　　;*krz
　ss = 100　　;*先端部長さ
　sl = 800　　;*支柱長さ
　sr = 5　　　;*支柱半径
　el = 100　　;*柄長さ
　er = 10　　;*柄半径
　er2 = 40　　;*柄外半径

　i
　i1
　j
　khx
　khz
　khr
　khsa
　khea
　ka
　krd
　krxx
　krzz
　krr
　kx
　ky
　x1
　y1
　z1
　x2
　y2
　z2
　x3
　y3
　z3
　wx1
　wy1
　wr1
　wsa1
　wea1
　wx2
　wz2
　wr2
　wsa2
　wea2
　a1
　a2
　a3
　a4
　wx3
　wy3
　wz3

#DRAW
　LAYER　0
　PEN　kcol
　CAL　x1 = kr
　CAL　z1 = 0
　CAL　x2 = 0
　CAL　z2 = kh
　CAL　x3 =-kr
　CAL　z3 = 0
　GET3PA　i,j,khx,khz,khr,khsa,khea, x1,z1,x2,z2,x3,z3
　CAL　khea = khea / 2
　//
　CAL　ka = 2.0*PI / kn
　CAL　krd = kr
　CAL　krxx = krx
　CAL　krzz = krz
　CAL　krr = kr
　CAL　i1 = 0
　#WHILE (i1 < (SetArcSep-1))
　　CAL　kx = krd*Sin(ka/2)
　　CAL　ky = krd*Cos(ka/2)
　　CAL　x1 = kx
　　CAL　y1 =-ky
　　CAL　x2 = 0
　　CAL　y2 =-ky + krxx
　　CAL　x3 =-kx
　　CAL　y3 =-ky
　　GET3PA　i,j,wx1,wy1,wr1,wsa1,wea1, x1,y1,x2,y2,x3,y3
　　// ARC2D　i,SetArcSep, wx1,wy1,wr1,wsa1,wea1
　　//
　　CAL　x1 =-kx
　　CAL　z1 = 0
　　CAL　x2 = 0
　　CAL　z2 =-krzz
　　CAL　x3 = kx
　　CAL　z3 = 0
　　GET3PA　i,j,wx2,wz2,wr2,wsa2,wea2, x1,z1,x2,z2,x3,z3
　　//
　　CAL　z3 = Sqrt(khr*khr - krr*krr) + khz
　　//
　　CAL　a1 = (wea1 - wsa1)/SetArcSep
　　CAL　a2 = wsa1
　　CAL　a3 =-(wea2 - wsa2)/SetArcSep
　　CAL　a4 = wea2
　　CAL　x1 = wx1 + wr1*Cos(a2)
　　CAL　y1 = wy1 + wr1*Sin(a2)
　　CAL　z1 = wz2 + wr2*Sin(a4) + z3
　　CAL　wx3 = x1
　　CAL　wy3 = y1
　　CAL　wz3 = z1
　　CAL　i = 0
　　#WHILE (i < SetArcSep)
　　　CAL　a2 = a2 + a1
　　　CAL　a4 = a4 + a3
　　　CAL　x2 = wx1 + wr1*Cos(a2)
　　　CAL　y2 = wy1 + wr1*Sin(a2)
　　　CAL　z2 = wz2 + wr2*Sin(a4) + z3
　　　LINE3D　j,x1,y1,z1, x2,y2,z2
　　　CAL　x1 = x2
　　　CAL　y1 = y2
　　　CAL　z1 = z2
　　　CAL　i = i + 1
　　#END
　　//
　　RENCLR
　　RENSET
　　RLSEL1　j,-1,-1,0, wx3,wy3,wz3,0.001,1,1,999,999
　　#IF (i1 > 0)
　　　R_RULED　0,-1,-1,1
　　#END
　　//
　　CAL　krd = krd - kr/SetArcSep
　　CAL　krxx = krxx - krx/SetArcSep
　　CAL　krzz = krzz - krz/SetArcSep
　　CAL　krr = krr - kr/SetArcSep
　　CAL　i1 = i1 + 1
　#END
　S_PICK3　0,-1,-1, 0,0,kh

　// 線を消す
　ALLSEL　j, 1,1,999,999
　S_DELE

　// コピー
　ALLSEL　j, 1,6,999,999
　CAL　a1 = 2.0*PI *(kn-1)/kn
　CAL　i = kn-1
　S_COPRS　0,-1,-1,i, 0,0,0, 0,0,0, 0,0,kh, 1,1,1, 0,a1,0

// ----- 支柱〜 -----
　PEN　scol
　// 先端部
　CAL　x1 = 0
　CAL　y1 = 0
　CAL　z1 = kh
　MATRIXO　x1,y1,z1
　CAL　z2 = sr/2
　CTUBE　i,SetArcSep,sr,ss,z2,0,0,0,1,0
　// 支柱
　CAL　z1 = kh - sl
　MATRIXO　x1,y1,z1
　CYLIND　i,SetArcSep,sr,sl,0,0,0
　// --- 柄 ---
　PEN　ecol
　#IF (er > sr)
　　DSLD2D　i,SetArcSep,0,0,er,er,0,sr,0
　#ELSE
　　#IF (er < sr)
　　　DSLD2D　i,SetArcSep,0,0,sr,sr,0,er,0
　　#END
　#END
　#IF (el > er2)
　　CAL　z1 = -(el - er2)
　　MATRIXL　x1,y1,z1
　　CAL　z1 = el - er2
　　CYLIND　i,SetArcSep,er,z1,0,0,0
　#END
　LAYER　1
　CSLD2D　i,SetArcSep,0,0,er,er,0,1
　ALLSEL　j, 1,999,1,999
　CAL　x1 = er2 - er
　CAL　y1 = 0
　CAL　z1 = kh - sl - el + er2
　CAL　x2 = x1
　CAL　y2 = 10
　CAL　z2 = z1
　CAL　a1 =-PI
　S_ROT1　2,0,-1,SetArcSep, x1,y1,z1,x2,y2,z2,a1
　S_DELE
　LAYER　0
　CAL　x1 = er2*2 - er*2
　CAL　y1 = 0
　CAL　z1 = 0
　MATRIXL　x1,y1,z1
　CAL　j = Int(SetArcSep/2)
　DOME　i,j,er,0,0

// スパイラル　テスト7c
//
#VAR
　t_Min =-10　　;*t最小値
　t_Max = 10　　;*t最大値
　dt = 0.01　　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = 200*exp(-((0.2 * t)^2)) * sin(t*PI)
　CAL　y1 = 200*exp(-((0.2 * t)^2)) * cos(t*PI)
　CAL　z1 = 201.0 * tanh(0.3 * t)
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = 200*exp(-((0.2 * t)^2)) * sin(t*PI)
　　CAL　y2 = 200*exp(-((0.2 * t)^2)) * cos(t*PI)
　　CAL　z2 = 201.0 * tanh(0.3 * t)
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト7d
//
#VAR
　t_Min =-10　　;*t最小値
　t_Max = 10　　;*t最大値
　dt = 0.01　　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = (200 - 140 * exp(-((0.2 * t)^2))) * sin(t*PI)
　CAL　y1 = (200 - 140 * exp(-((0.2 * t)^2))) * cos(t*PI)
　CAL　z1 = 207.46 * tanh(0.2 * t)
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = (200 - 140 * exp(-((0.2 * t)^2))) * sin(t*PI)
　　CAL　y2 = (200 - 140 * exp(-((0.2 * t)^2))) * cos(t*PI)
　　CAL　z2 = 207.46 * tanh(0.2 * t)
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト8
//
#VAR
　t_Min =-35　　;*t最小値
　t_Max = 35　　;*t最大値
　dt = 0.1　　　;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = 200 * cos(t) * cos(atan(0.15 * t))
　CAL　y1 = 200 * sin(t) * cos(atan(0.15 * t))
　CAL　z1 = - 200 * sin(atan(0.15 * t))
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = 200 * cos(t) * cos(atan(0.15 * t))
　　CAL　y2 = 200 * sin(t) * cos(atan(0.15 * t))
　　CAL　z2 = - 200 * sin(atan(0.15 * t))
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト9
//
#VAR
　t_Min = 0　　;*t最小値
　t_Max = 2　　;*t最大値
　dt = 0.001　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = cos(1*t*PI) * 200 + cos(t*PI) * 50 * cos(100*t*PI)
　CAL　y1 = sin(1*t*PI) * 200 + sin(t*PI) * 50 * cos(100*t*PI)
　CAL　z1 = 50 * sin(100*t*PI)
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = cos(1*t*PI) * 200 + cos(t*PI) * 50 * cos(100*t*PI)
　　CAL　y2 = sin(1*t*PI) * 200 + sin(t*PI) * 50 * cos(100*t*PI)
　　CAL　z2 = 50 * sin(100*t*PI)
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト10a
//
#VAR
　t_Min = 0　　;*t最小値
　t_Max = 4　　;*t最大値
　dt = 0.001　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = cos(1*t*PI) * 200 + cos(t*PI) * 80 * cos(25*t*PI)
　CAL　y1 = sin(1*t*PI) * 200 + sin(t*PI) * 80 * cos(25*t*PI)
　CAL　z1 = 80 * sin(25*t*PI) + 120 *t
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = cos(1*t*PI) * 200 + cos(t*PI) * 80 * cos(25*t*PI)
　　CAL　y2 = sin(1*t*PI) * 200 + sin(t*PI) * 80 * cos(25*t*PI)
　　CAL　z2 = 80 * sin(25*t*PI) + 120 *t
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト10b
//
#VAR
　t_Min = 0　　;*t最小値
　t_Max = 6　　;*t最大値
　dt = 0.001　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = cos(1*t*PI) * 100 + cos(t*PI) * 5 * cos(10*t*PI)
　CAL　y1 = sin(1*t*PI) * 100 + sin(t*PI) * 5 * cos(10*t*PI)
　CAL　z1 = 5 * sin(10*t*PI) + 80*t
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = cos(1*t*PI) * 100 + cos(t*PI) * 5 * cos(10*t*PI)
　　CAL　y2 = sin(1*t*PI) * 100 + sin(t*PI) * 5 * cos(10*t*PI)
　　CAL　z2 = 5 * sin(10*t*PI) + 80*t
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト10c
//
#VAR
　t_Min = 0　　;*t最小値
　t_Max = 4　　;*t最大値
　dt = 0.001　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = cos(t*PI) * 120 + cos(t*PI) * 10 * cos(18*t*PI)
　CAL　y1 = sin(t*PI) * 120 + sin(t*PI) * 10 * cos(18*t*PI)
　CAL　z1 = 10 * sin(18*t*PI) + 0.5 * 200 *t
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = cos(t*PI) * 120 + cos(t*PI) * 10 * cos(18*t*PI)
　　CAL　y2 = sin(t*PI) * 120 + sin(t*PI) * 10 * cos(18*t*PI)
　　CAL　z2 = 10 * sin(18*t*PI) + 0.5 * 200 *t
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト1
//
#VAR
　t_Min =　0　　;*t最小値
　t_Max = 20　　;*t最大値
　dt = 0.05　　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = 100*Sin(t*PI)
　CAL　y1 = 100*Cos(t*PI)
　CAL　z1 = 20*t
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = 100*Sin(t*PI)
　　CAL　y2 = 100*Cos(t*PI)
　　CAL　z2 = 20*t
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト2
//
#VAR
　t_Min =　0　　;*t最小値
　t_Max = 20　　;*t最大値
　dt = 0.05　　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = (-3.75*t+100)*Sin(t*PI)
　CAL　y1 = (-3.75*t+100)*Cos(t*PI)
　CAL　z1 = 20*t
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = (-3.75*t+100)*Sin(t*PI)
　　CAL　y2 = (-3.75*t+100)*Cos(t*PI)
　　CAL　z2 = 20*t
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト3
//
#VAR
　t_Min =　0　　;*t最小値
　t_Max = 20　　;*t最大値
　dt = 0.01　　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = 100*Sin(t*PI)
　CAL　y1 = 100*Cos(t*PI)
　CAL　z1 = 140.2*t^0.35
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = 100*Sin(t*PI)
　　CAL　y2 = 100*Cos(t*PI)
　　CAL　z2 = 140.2*t^0.35
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト4
//
#VAR
　t_Min =　1　　;*t最小値
　t_Max = 21　　;*t最大値
　dt = 0.01　　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = 100*Sin(t*PI)
　CAL　y1 = 100*Cos(t*PI)
　CAL　z1 = 210.25*(t^0.35-1)
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = 100*Sin(t*PI)
　　CAL　y2 = 100*Cos(t*PI)
　　CAL　z2 = 210.25*(t^0.35-1)
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト5
//
#VAR
　t_Min =　0　　;*t最小値
　t_Max = 20　　;*t最大値
　dt = 0.01　　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = 100*Sin(t*PI)
　CAL　y1 = 100*Cos(t*PI)
　CAL　z1 = 424.91*tanh(0.0875*t)
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = 100*Sin(t*PI)
　　CAL　y2 = 100*Cos(t*PI)
　　CAL　z2 = 424.91*tanh(0.0875*t)
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト6
//
#VAR
　t_Min =-10　　;*t最小値
　t_Max = 10　　;*t最大値
　dt = 0.01　　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = sqrt(10000 - 100*t*t) * sin(t*PI)
　CAL　y1 = sqrt(10000 - 100*t*t) * cos(t*PI)
　CAL　z1 = 20*t
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = sqrt(10000 - 100*t*t) * sin(t*PI)
　　CAL　y2 = sqrt(10000 - 100*t*t) * cos(t*PI)
　　CAL　z2 = 20*t
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト7a
//
#VAR
　t_Min =-10　　;*t最小値
　t_Max = 10　　;*t最大値
　dt = 0.01　　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = sqrt(10000 - 100*t*t) * sin(t*PI)
　CAL　y1 = sqrt(10000 - 100*t*t) * cos(t*PI)
　CAL　z1 = 209.22 * tanh(0.1896 * t)
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = sqrt(10000 - 100*t*t) * sin(t*PI)
　　CAL　y2 = sqrt(10000 - 100*t*t) * cos(t*PI)
　　CAL　z2 = 209.22 * tanh(0.1896 * t)
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// スパイラル　テスト7b
//
#VAR
　t_Min =-10　　;*t最小値
　t_Max = 10　　;*t最大値
　dt = 0.01　　 ;*t差分

　t
　n
　x1
　y1
　z1
　x2
　y2
　z2

#DRAW
　CAL　t = t_Min
　CAL　x1 = 200*cos(0.05*t*PI) * sin(t*PI)
　CAL　y1 = 200*cos(0.05*t*PI) * cos(t*PI)
　CAL　z1 = 209.22 * tanh(0.1896 * t)
　#WHILE (t <= t_Max)
　　CAL　t = t + dt
　　CAL　x2 = 200*cos(0.05*t*PI) * sin(t*PI)
　　CAL　y2 = 200*cos(0.05*t*PI) * cos(t*PI)
　　CAL　z2 = 209.22 * tanh(0.1896 * t)
　　LINE3D　n,x1,y1,z1, x2,y2,z2
　　CAL　x1 = x2
　　CAL　y1 = y2
　　CAL　z1 = z2
　#END

// 楕円を描かせてつなげて立体化２
//　　中間指定は中止
//
#VAR
　col = 1　　　　;*線色
　ex1 = 100　　　;*楕円開始Ｘ半径
　ey1 = 100　　　;*楕円開始Ｙ半径
　ex2 = 100　　　;*楕円終了Ｘ半径
　ey2 = 100　　　;*楕円終了Ｙ半径
　ex = 0　　　　;*最終中心Ｘ
　ey = 0　　　　;*最終中心Ｙ
　ez = 200　　　;*最終高さ
　ka1 = 0　　　　;*開始傾き角度[°]
　ka2 = 0　　　　;*終了傾き角度[°]
　es = 32　　　　;*楕円分割数
　sp = 10　　　　;*分割数
　i
　n
　x
　y
　z
　rx
　ry
　kan1
　kan2
　ka
　j
　at1
　at2
　at3
　p1x
　p1y
　p1z
　p2x
　p2y
　p2z
　p3x
　p3y
　p3z
　p4x
　p4y
　p4z
#DRAW
　// --- 楕円を描く ---
　CAL　i = 0
　CAL　x = 0
　CAL　y = 0
　CAL　z = 0
　CAL　rx = ex1
　CAL　ry = ey1
　CAL　kan1 = ka1/180*PI
　CAL　kan2 = ka2/180*PI
　CAL　ka = kan1
　PEN　col
　#WHILE (i <= sp)
　　ELLI3D　n,es,x,y,z,rx,ry,ka
　　CAL　i = i + 1
　　CAL　x = i*i*ex / sp/sp
　　CAL　y = i*i*ey / sp/sp
　　CAL　z = z + ez/sp
　　CAL　rx = ex1 + i*i*(ex2-ex1)/sp/sp
　　CAL　ry = ey1 + i*i*(ey2-ey1)/sp/sp
　　CAL　ka = ka + (kan2-kan1)/sp
　#END
　// --- 楕円同士を接続 ---
　CAL　i = 1
　CAL　j = i
　GETFIGD　j,at1,at2,at3,p1x,p1y,p1z, p2x,p2y,p2z, p3x,p3y,p3z, p4x,p4y,p4z
　RLSEL1　n,-1,-1,0, p1x,p1y,p1z,0.001,1,1,999,999
　#WHILE (i <= sp)
　　RENCLR
　　RENSET
　　CAL　j = j + es
　　GETFIGD　j,at1,at2,at3,p1x,p1y,p1z, p2x,p2y,p2z, p3x,p3y,p3z, p4x,p4y,p4z
　　RLSEL1　n,-1,-1,0, p1x,p1y,p1z,0.001,1,1,999,999
　　R_RULED　0,-1,-1,0
　　CAL　i = i + 1
　#END
　// --- 線を消す ---
　ALLSEL　n,1,1,999,999
　S_DELE

// 楕円を描かせてつなげて立体化
//
#VAR
　col = 1　　　　;*線色
　ex1 = 100　　　;*楕円開始Ｘ半径
　ey1 = 100　　　;*楕円開始Ｙ半径
　ex2 = 100　　　;*楕円中間Ｘ半径
　ey2 = 100　　　;*楕円中間Ｙ半径
　ex3 = 100　　　;*楕円終了Ｘ半径
　ey3 = 100　　　;*楕円終了Ｙ半径
　ex = 0　　　　;*最終中心Ｘ
　ey = 0　　　　;*最終中心Ｙ
　ez = 200　　　;*最終高さ
　ka1 = 0　　　　;*開始傾き角度[°]
　ka2 = 0　　　　;*終了傾き角度[°]
　es = 32　　　　;*楕円分割数
　sp = 10　　　　;*分割数
　i
　n
　x
　y
　z
　rx
　ry
　kan1
　kan2
　ka
　j
　at1
　at2
　at3
　p1x
　p1y
　p1z
　p2x
　p2y
　p2z
　p3x
　p3y
　p3z
　p4x
　p4y
　p4z
#DRAW
　// --- 楕円を描く ---
　CAL　i = 0
　CAL　x = 0
　CAL　y = 0
　CAL　z = 0
　CAL　rx = ex1
　CAL　ry = ey1
　CAL　kan1 = ka1/180*PI
　CAL　kan2 = ka2/180*PI
　CAL　ka = kan1
　PEN　col
　#WHILE (i <= sp)
　　ELLI3D　n,es,x,y,z,rx,ry,ka
　　CAL　i = i + 1
　　CAL　x = i*i*ex / sp/sp
　　CAL　y = i*i*ey / sp/sp
　　CAL　z = z + ez/sp
　　#IF (i <= (sp/2))
　　　CAL　rx = rx + (ex2-ex1)/(sp/2)
　　　CAL　ry = ry + (ey2-ey1)/(sp/2)
　　#ELSE
　　　CAL　rx = rx + (ex3-ex2)/(sp/2)
　　　CAL　ry = ry + (ey3-ey2)/(sp/2)
　　#END
　　CAL　ka = ka + (kan2-kan1)/sp
　#END
　// --- 楕円同士を接続 ---
　CAL　i = 1
　CAL　j = i
　GETFIGD　j,at1,at2,at3,p1x,p1y,p1z, p2x,p2y,p2z, p3x,p3y,p3z, p4x,p4y,p4z
　RLSEL1　n,-1,-1,0, p1x,p1y,p1z,0.001,1,1,999,999
　#WHILE (i <= sp)
　　RENCLR
　　RENSET
　　CAL　j = j + es
　　GETFIGD　j,at1,at2,at3,p1x,p1y,p1z, p2x,p2y,p2z, p3x,p3y,p3z, p4x,p4y,p4z
　　RLSEL1　n,-1,-1,0, p1x,p1y,p1z,0.001,1,1,999,999
　　R_RULED　0,-1,-1,0
　　CAL　i = i + 1
　#END
　// --- 線を消す ---
　ALLSEL　n,1,1,999,999
　S_DELE

// 噴水？
#VAR
　h = 2000　　;*高さ
　r = 2000　　;*半径
　sn = 1000　　;*水滴の数
　sr = 10　　　;*水滴の半径
　i
　n
　w1
　w2
　w3
　wx
　wy
　wz
#DRAW
　RANDOMIZE
　PEN　4
　CAL　i = 0
　#WHILE (i < sn)
　　CAL　w1 = RAND(r)
　　CAL　w2 = -4*h/r/r*(w1-r/2)*(w1-r/2)+h
　　CAL　w3 = RAND(360)/180*PI
　　CAL　wx = w1*Cos(w3)
　　CAL　wy = w1*Sin(w3)
　　CAL　wz = w2
　　MATRIXO　wx,wy,wz
　　SPHERE n,SetArcSep,sr,0
　　CAL　i = i + 1
　#END

// 円グラフ
#VAR
　sr = 100　　　;*円サイズ半径[mm]
　sz =　50　　　;*円柱高さ[mm]
　sp = 5　　　　;*分割数
　dmy　　　　　;*----------
　v01 = 10　　;*値01
　v02 = 20　　;*値02
　v03 = 30　　;*値03
　v04 = 40　　;*値04
　v05 = 50　　;*値05
　v06 = 60　　;*値06
　v07 = 70　　;*値07
　v08 = 80　　;*値08
　v09 = 90　　;*値09
　v10 =100　　;*値10
　vt
　vm = 0
　n
　w1
　w2
　w3
#DRAW
　CAL　vt =　　　v01 + v02 + v03 + v04 + v05
　CAL　vt = vt + v06 + v07 + v08 + v09 + v10
　CAL　vm = vt/(2.0*PI)
　#IF (vm == 0)
　　CAL　vm = 1/(2.0*PI)
　#END
　CAL　w2 = 0.5*PI　　// 開始角度・時計回り

　// 値01
　PEN　1　　// 色
　CAL　w1 = w2 - v01 /vm
　PCYLIND　n,sp,sr,sr,0,sz, w1,w2,1,1,0
　CAL　w2 = w1

　// 値02
　PEN　2　　// 色
　CAL　w1 = w2 - v02 /vm
　PCYLIND　n,sp,sr,sr,0,sz, w1,w2,1,1,0
　CAL　w2 = w1

　// 値03
　PEN　3　　// 色
　CAL　w1 = w2 - v03 /vm
　PCYLIND　n,sp,sr,sr,0,sz, w1,w2,1,1,0
　CAL　w2 = w1

　// 値04
　PEN　4　　// 色
　CAL　w1 = w2 - v04 /vm
　PCYLIND　n,sp,sr,sr,0,sz, w1,w2,1,1,0
　CAL　w2 = w1

　// 値05
　PEN　5　　// 色
　CAL　w1 = w2 - v05 /vm
　PCYLIND　n,sp,sr,sr,0,sz, w1,w2,1,1,0
　CAL　w2 = w1

　// 値06
　PEN　6　　// 色
　CAL　w1 = w2 - v06 /vm
　PCYLIND　n,sp,sr,sr,0,sz, w1,w2,1,1,0
　CAL　w2 = w1

　// 値07
　PEN　7　　// 色
　CAL　w1 = w2 - v07 /vm
　PCYLIND　n,sp,sr,sr,0,sz, w1,w2,1,1,0
　CAL　w2 = w1

　// 値08
　PEN　8　　// 色
　CAL　w1 = w2 - v08 /vm
　PCYLIND　n,sp,sr,sr,0,sz, w1,w2,1,1,0
　CAL　w2 = w1

　// 値09
　PEN　9　　// 色
　CAL　w1 = w2 - v09 /vm
　PCYLIND　n,sp,sr,sr,0,sz, w1,w2,1,1,0
　CAL　w2 = w1

　// 値10
　PEN　11　　// 色
　CAL　w1 = w2 - v10 /vm
　PCYLIND　n,sp,sr,sr,0,sz, w1,w2,1,1,0
　CAL　w2 = w1

// 棒グラフ２
//　　棒を円柱で表現する
//　　Ｘ軸上に並べていきます
#VAR
　sx = 5　　　;*棒サイズX半径[mm]
　sy = 5　　　;*棒サイズY半径[mm]
　ss = 4　　　;*棒間隔[mm]
　dmy　　　　　;*----------
　v01 = 10　　;*値01
　v02 = 20　　;*値02
　v03 = 30　　;*値03
　v04 = 40　　;*値04
　v05 = 50　　;*値05
　v06 = 60　　;*値06
　v07 = 70　　;*値07
　v08 = 80　　;*値08
　v09 = 90　　;*値09
　v10 =100　　;*値10
　vmax
　ptc
　n
　w1
　w2
　w3
#DRAW
　CAL　vmax = 0
　CAL　ptc = sx*2 + ss
　MATRIXL　ptc,0,0

　// 値01
　PEN　1　　// 色
　CAL　w1 = v01
　ECYLIND　n,SetArcSep,sx,sy,0,w1,1,1,0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値02
　PEN　2　　// 色
　CAL　w1 = v02
　ECYLIND　n,SetArcSep,sx,sy,0,w1,1,1,0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値03
　PEN　3　　// 色
　CAL　w1 = v03
　ECYLIND　n,SetArcSep,sx,sy,0,w1,1,1,0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値04
　PEN　4　　// 色
　CAL　w1 = v04
　ECYLIND　n,SetArcSep,sx,sy,0,w1,1,1,0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値05
　PEN　5　　// 色
　CAL　w1 = v05
　ECYLIND　n,SetArcSep,sx,sy,0,w1,1,1,0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値06
　PEN　6　　// 色
　CAL　w1 = v06
　ECYLIND　n,SetArcSep,sx,sy,0,w1,1,1,0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値07
　PEN　7　　// 色
　CAL　w1 = v07
　ECYLIND　n,SetArcSep,sx,sy,0,w1,1,1,0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値08
　PEN　8　　// 色
　CAL　w1 = v08
　ECYLIND　n,SetArcSep,sx,sy,0,w1,1,1,0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値09
　PEN　9　　// 色
　CAL　w1 = v09
　ECYLIND　n,SetArcSep,sx,sy,0,w1,1,1,0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値10
　PEN　10　　// 色
　CAL　w1 = v10
　ECYLIND　n,SetArcSep,sx,sy,0,w1,1,1,0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 最終処理（線を描く）
　GETL2W　w1,w2,w3, 0,0,0
　CAL　vmax = vmax + ss　　// 上に隙間を追加
　INIMATR　　// 変換マトリックス初期化
　PEN　7
　LINE3D　n, 0,0,0, 0,0,vmax
　LINE3D　n, 0,0,vmax, w1,0,vmax
　LINE3D　n, w1,0,vmax, w1,0,0

// 棒グラフ１
//　　棒を直方体で表現する
//　　Ｘ軸上に並べていきます
#VAR
　sx = 10　　　;*棒サイズX[mm]
　sy = 10　　　;*棒サイズY[mm]
　ss =　4　　　;*棒間隔[mm]
　dmy　　　　　;*----------
　v01 = 10　　;*値01
　v02 = 20　　;*値02
　v03 = 30　　;*値03
　v04 = 40　　;*値04
　v05 = 50　　;*値05
　v06 = 60　　;*値06
　v07 = 70　　;*値07
　v08 = 80　　;*値08
　v09 = 90　　;*値09
　v10 =100　　;*値10
　vmax
　ptc
　n
　w1
　w2
　w3
#DRAW
　CAL　vmax = 0
　CAL　ptc = sx + ss
　MATRIXL　ptc,0,0

　// 値01
　PEN　1　　// 色
　CAL　w1 = v01
　CBOX1　n,sx,sy,w1, 0,0,0, 1,1,2,2,2,2, 0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値02
　PEN　2　　// 色
　CAL　w1 = v02
　CBOX1　n,sx,sy,w1, 0,0,0, 1,1,2,2,2,2, 0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値03
　PEN　3　　// 色
　CAL　w1 = v03
　CBOX1　n,sx,sy,w1, 0,0,0, 1,1,2,2,2,2, 0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値04
　PEN　4　　// 色
　CAL　w1 = v04
　CBOX1　n,sx,sy,w1, 0,0,0, 1,1,2,2,2,2, 0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値05
　PEN　5　　// 色
　CAL　w1 = v05
　CBOX1　n,sx,sy,w1, 0,0,0, 1,1,2,2,2,2, 0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値06
　PEN　6　　// 色
　CAL　w1 = v06
　CBOX1　n,sx,sy,w1, 0,0,0, 1,1,2,2,2,2, 0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値07
　PEN　7　　// 色
　CAL　w1 = v07
　CBOX1　n,sx,sy,w1, 0,0,0, 1,1,2,2,2,2, 0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値08
　PEN　8　　// 色
　CAL　w1 = v08
　CBOX1　n,sx,sy,w1, 0,0,0, 1,1,2,2,2,2, 0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値09
　PEN　9　　// 色
　CAL　w1 = v09
　CBOX1　n,sx,sy,w1, 0,0,0, 1,1,2,2,2,2, 0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 値10
　PEN　10　　// 色
　CAL　w1 = v10
　CBOX1　n,sx,sy,w1, 0,0,0, 1,1,2,2,2,2, 0
　#IF ( vmax < w1 )
　　CAL　vmax = w1
　#END
　MATRIXL　ptc,0,0

　// 最終処理（線を描く）
　GETL2W　w1,w2,w3, 0,0,0
　CAL　vmax = vmax + ss　　// 上に隙間を追加
　INIMATR　　// 変換マトリックス初期化
　PEN　7
　LINE3D　n, 0,0,0, 0,0,vmax
　LINE3D　n, 0,0,vmax, w1,0,vmax
　LINE3D　n, w1,0,vmax, w1,0,0

// 面取直方体作図テスト03
#VAR
　sx = 500　　　;*Ｘ軸方向長さ[mm]
　sy = 500　　　;*Ｙ軸方向長さ[mm]
　sz = 250　　　;*高さ[mm]
　cx =　50　　　;*Ｘ軸方向面取量[mm]
　cy =　50　　　;*Ｙ軸方向面取量[mm]
　cz =　50　　　;*Ｚ軸方向面取量[mm]
　n
#DRAW
　PEN　8
　CBOX2　n,sx,sy,sz, cx,cy,cz, 1,1,2,2,2,2, 0

初心者です　直線を使ってなら多少操作もできるようになりなしたが　蛍光灯のドーナツのような形状はどうやって操作するのでしょうか　よろしくお願いします

#VAR
　r1 = 50　　;*小円半径
　r2 = 200　　;*大円半径
　n
#DRAW
　TORUS　n,12,24,r1,r2,0

#VAR
　n
#DRAW
　LINE2D　n, 0,2.5, 7.5,2.5
　LINE2D　n, 7.5,2.5, 7.5,0
　LINE2D　n, 7.5,0, 10,0
　LINE2D　n, 10,0, 10,2.5
　LINE2D　n, 20,25, 17.5,25
　LINE2D　n, 10,5, 0,5
　ARC2D　n,SetArcSep, -0.039872836,20.4343879271, 20.5533772623, -1.06045167528744,0.22400301612898
　ARC2D　n,SetArcSep, 0.1900604437,20.0849773336, 17.9942061579, -0.99420190889849,0.27666056835734

#VAR
　n
　i
　w1
　w2
　w3
#DRAW
　// X-Z平面を X-Y平面とする＝X軸回りに90度回転
　CAL　w1 = 0.5*PI
　ROXMATR　w1
　// 断面を描く
　LINE2D　n, 0,2.5, 7.5,2.5
　LINE2D　n, 7.5,2.5, 7.5,0
　LINE2D　n, 7.5,0, 10,0
　LINE2D　n, 10,0, 10,2.5
　LINE2D　n, 20,25, 17.5,25
　LINE2D　n, 10,5, 0,5
　ARC2D　n,SetArcSep, -0.039872836,20.4343879271, 20.5533772623, -1.06045167528744,0.22400301612898
　ARC2D　n,SetArcSep, 0.1900604437,20.0849773336, 17.9942061579, -0.99420190889849,0.27666056835734
　// 回転体
　CAL　w1 = 0
　CAL　w2 = 0
　CAL　w3 = 2.5
　RLSEL1　i,-1,-1,1, w1,w2,w3,0.000001, 1,1,999,999
　CAL　w1 = 2.0*PI
　S_ROT1　0,-1,-1,SetArcSep, 0,0,0, 0,0,100, w1
　// 線を消します
　ALLSEL　i,1,1,999,999
　S_DELE

Script!3D支援用ツール
Jw_cad（for Windows/JWW）を起動し、範囲選択→コピーを行った後に本ツールで[取込]を行い、Script!3D用すくりぷとコードに変換する事が出来ます。変換後はコピー＆ペーストで利用して下さい。
※Jw_cadクリップボードデータは図寸となっている為、実寸にするためレイヤグループ[0]の縮尺をかけています。寸法図形要素・寸法属性の要素・文字要素・ブロック図形・画像の変換は行いません。点マーカーは単純な点データとなります。線種は実線のみとなります。色設定値は白背景時のJWW初期値と同じです。SXFユーザー色は全て[7]です。ソリッド任意色は256色範囲に丸められます。データ容量が多くなればなるほど遅くなります。