JWB2000〜2002のシンボルオブジェクトモデルの概要
２００１．０９．０５．現在

・JWB2000〜2002のCAD機能は完全に階層化された柔軟なシンボルオブジェクトを扱う。 ・シンボルオブジェクトとは、１つの部品であり、複数の小さい部品が集まり、大きな部品を形成する事になる。・汎用的な部品（図形）は、いつでも使えるように、シンボルオブジェクト単位で、インポート・エクスポートが可能。 ・シンボルオブジェクトは、COMテクノロジーを使った、オートメーションオブジェクトとして、プロパティ・メソッドを持つ。 ・スクリプトオブジェクトは、VBScript言語を使用し、オートメーションオブジェクトモデルといて動作し、プロパティ・メソッド・イベントを扱う。

  現在 JWB２０００〜２００２は、JWB Fun Club 及び JWBパティオを拠点とし開発を進めているが、JWB2000〜2002のCAD機能で、皆さんは何に興味を示すだろうか？作図メニューとしてのドラッグメニュー（仮）に興味を抱く方もおりましょうが、ここでは、JWB2000〜2002のスクリプト機能について説明する事にいたします。

★★JW_CADの外部変形に＋αを？
　JW_CADをメインに使っている方なら、一度は外部変形を使ったことが有るでしょう。しかし、外部変形に慣れてくると、こう言う作図方法で、一連の作業を自動化したいとか、基本数値を入力するだけで、特定の図形を決まった位置に配置したいとか....色々欲が出てくるものです。しかし、線・円・文字・点など１つ１つの要素を吐き出して外部で処理しようとしても非常に手間だったり、します｡なぜなら、目で見る限りは特定の図形でも、内部では単なる線の集まりに過ぎないからです。

★皆さんは Excel の VBA（Visual Basic for Application）を使ったことがありますか？
　ExcelのVBAは、一度足を踏み込んでしまうと、もう止められませんね！（VBAに付いては関連書籍をご覧ください） JWB2000〜2002のスクリプト機能は、Excel ←→ VBA の関係に非常に似ています。また、COMテクノロジーのオートメーション機能に対応し、プロパティ・メソッド以外に、イベントが扱えると言う点でも似ています。

★JWB2000〜2002で使用する VBScriptエンジンについて...
　JWB2000〜2002は、VBScript言語を内部で使用する都合上、VBScriptエンジンが必要です。VBScriptエンジンはWin98/Me/2000には標準でインストールされています。また、Win95/NT4.0の方は、Microsoft Internet Explorer 4.0以降、または Windows Scripting Host（いずれも無償で、Microsoftサイトからダウンロードできます）をインストールされることにより、VBScriptエンジンがインストールされます。

★シンボルオブジェクト（オートメーションオブジェクト）等のプロパティやメソッドやイベントについて...
　JWB2000〜2002は、まだ開発中であり、プロパティやメソッドなど、まだ完成の域には達していませんが、下表のようなプロパティやメソッドを持っています。

※実際には、上記以外にも多くのプロパティやメソッドや、 線オブジェクト、円オブジェクト、点オブジェクト、文字オブジェクトのプロパティやメソッドも等も扱うが、ここでは参考程度に見て欲しい。

スクリプトサンプル画面	スクリプト　サンプル例・説明。
	JWB2000を利用して 作図するｽﾌﾟﾘｸﾄを 紹介します。 図面中に追加出来る ものは下記の５つです。 �@線 　　AddLine �A点 　　AddPoint �B円 　　AddCircle �C文字 　　AddString �Dﾌｫﾙﾀﾞｰ(部品名)　 　　AddFolder の５つの作成が可能。 と自由にVBSでプログラムする事でデータを追加する事が出来ます。 参考データ(作図.bso) 　　　　　　6Kb
'基準用紙範囲を取得する Dim Pleft, Pright, Ptop, Pbottom Pleft = doc.PaperRect.Left Pright = doc.PaperRect.Right Pbottom = doc.PaperRect.Bottom Ptop = doc.PaperRect.Top 'ランダムで書込範囲内の X座標値を返す Function rnx rnx = (Rnd(1) - 0.5) * Pright End Function 'ランダムで書込範囲内の Y座標値を返す Function rny rny = (Rnd(1) - 0.5) * Ptop End Function 'ランダムで色値を返す Function rnc rnc = RGB(Rnd(1)*255, Rnd(1)*255, Rnd(1)*255) End Function 'ランダムで線種を返す Function rns rns = Int(Rnd(1) * 17) End Function 'ランダムで角度を返す Function rna rna = (Rnd(1) - 0.5) * 3.1415927 End Function '指定のオブジェクト(RollObj)を指定の座標(xe,ye)まで、 指定回数(count)に分割し、 'また、指定のスケール(scale)に拡大/縮小し、回転・移動させる Function RollObject (RollObj, xe, ye,scale, count) Dim xm, ym, am, SrcAngle, sm xm = (xe - RollObj.x) / count ym = (ye - RollObj.y) / count am = 2 * 3.1415926536 / count SrcAngle = RollObj.Angle sm = (scale - RollObj.Scale) / count Dim i For i = 1 to count RollObj.x = RollObj.x + xm RollObj.y = RollObj.y + ym RollObj.Angle = RollObj.Angle + am RollObj.Scale = RollObj.Scale + sm doc.ReDraw Next '最後に誤差を修正 RollObj.x = xe RollObj.y = ye RollObj.Angle = SrcAngle RollObj.Scale = scale doc.ReDraw End Function 'ランダムで線を書込 'WriteSym は、書込するオブジェクト 'count は、ランダム線を書込む本数 Sub Random_AddLine (WriteSym, count) Dim i For i = 1 to count WriteSym.AddLine rnx(), rny(), rnx(), rny() ,rnc(), rns() If (i mod 100) = 0 Then doc.ReDraw End If Next End Sub 'ランダムで円を書き込む 'WriteSym は、書込するオブジェクト 'count は、ランダム円を書込む本数 Sub Random_AddCircle (WriteSym, count) Dim i For i = 1 to count WriteSym.AddCircle rnx(), rny(), rnx() * 0.1, rny() * 0.1, rnc(), rns(), rna(), rna(), rna() If (i mod 10) = 0 Then doc.ReDraw End If Next End Sub 'ランダムで点を書き込む 'WriteSym は、書込するオブジェクト 'count は、ランダム円を書込む本数 Sub Random_AddPoint (WriteSym, count) Dim i For i = 1 to count WriteSym.AddPoint rnx(), rny(), rnc(), Int(Rnd(1)*3) If (i mod 100) = 0 Then doc.ReDraw End If Next End Sub 'ランダムで文字を書込 'WriteSym は、書込するオブジェクト 'count は、ランダム文字を書込む本数 Sub Random_AddString (WriteSym, count) Dim i Dim str str = "DEMO" For i = 1 to count If i = count Then str = "デモ" End if 'WriteSym.AddString rnx(), rny(), 0, 0, str , "MS 明朝", 　rnc(), 10 + Rnd(1) * 10, 10 + Rnd(1) * 10, Rnd(1) * 10 WriteSym.AddString rnx(), rny(), 0, 0 If (i mod 10) = 0 Then doc.ReDraw End If Next End Sub Sub Main '背景色を白にする doc.BackGroundColor = RGB (255, 255, 255) doc.ReDraw '全ての子オブジェクトを削除する Dim item For Each item in sym item.Delete Next '背景色を段々暗くする Dim c For c = 254 to 0 Step -1 doc.BackGroundColor = RGB (c, c, c) doc.ReDraw Next '線書込み 500本 Dim Obj Set Obj = sym.AddFolder ("Line") Obj.x = Pright * (2 / 3) Obj.y = Ptop * (2 / 3) Obj.Scale = (2 / 3) Random_AddLine Obj, 500 '例の如く回転...(^_^; RollObject Obj, Pright * (1 / 6), Ptop * (5 / 6), (1 / 3), 20 '円書込み 300本 Set Obj = sym.AddFolder ("Circle") Obj.x = Pright * (2 / 3) Obj.y = Ptop * (2 / 3) Obj.Scale = (2 / 3) Random_AddCircle Obj, 300 '例の如く回転...(^_^; RollObject Obj, Pright * (1 / 6), Ptop * (3 / 6), (1 / 3), 20 '点書込み 500本 Set Obj = sym.AddFolder ("Point") Obj.x = Pright * (2 / 3) Obj.y = Ptop * (2 / 3) Obj.Scale = (2 / 3) Random_AddPoint Obj, 500 '例の如く回転...(^_^; RollObject Obj, Pright * (1 / 6), Ptop * (1 / 6), (1 / 3), 20 '文字書込み 100本 Set Obj = sym.AddFolder ("String") Obj.x = Pright * (2 / 3) Obj.y = Ptop * (2 / 3) Obj.Scale = (2 / 3) Random_AddString Obj, 100 '例の如く回転...(^_^; RollObject Obj, Pright * (3 / 6), Ptop * (1 / 6), (1 / 3), 20 '線・円・点・文字、書込み Set Obj = sym.AddFolder ("---") Obj.x = Pright * (2 / 3) Obj.y = Ptop * (2 / 3) Obj.Scale = (2 / 3) Random_AddLine Obj, 300 Random_AddCircle Obj, 100 Random_AddPoint Obj, 300 Random_AddString Obj, 100 '例の如く回転...(^_^; RollObject Obj, Pright * (5 / 6), Ptop * (1 / 6), (1 / 3), 20 End Sub 'マクロ登録 '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ ■■■■■■■■■■■■■ sym.Macro "Main" , "要素書込DEMO" ' ↑プロシージャ名 ↑マクロ名 'このように、symオブジェクトの Macro メソッドを使うことで、 マクロとして登録することができる。 'プロジェクトツリーからこのオブジェクト（回転）を右クリックすると、 登録されたマクロがリスト 'され、設定しているプロシージャ等を呼び出すことができる。 '※但し、スクリプト実行中の場合のみ、マクロがリストされる。 ' スクリプトが停止している場合は、リストされない。 ' '　また、マクロ名を '\' で区切ることで、マクロリストを階層化できるので、 ' たくさんのマクロを操作する場合は大変有効である。 ' ※１つのクラスモジュールで一度に登録できるマクロ数は20個である。
●下記の様にエクセルが自動的に起動しセルの中に座標値データと線種・線色が 順次書き込まれていきます。 ■■■サンプルデータのダウンロード(線出力1.bso　1KB)■■■	●例●　 Excelに全階層の線情報の出力するスクリプト例。 ・スクリプトを書き込んである部品以外の部品の 線情報を出力する場合は、下記のようなサンプル になります。 大きな違いは、下記では全階層を検索する様に するため、doc.RootObject から繰り返しています。 　また、子オブジェクトがある場合は、その子もナメル様に、 　ExcelOut() を再帰呼出しています。 再帰呼出については、VBScriptに限った事ではなくて、プログラム上の基本テクニックとして、昔からある方法です。 　アルゴリズムの解説書やプログラムテクニックなど、多数の　関連書籍で紹介されていると思います。再帰呼出を使うことで、 　階層化構造を簡単に順次サーチできます。 Dim xl Dim row Sub Out Set xl = CreateObject ("Excel.Application") xl.Visible = True xl.WorkBooks.Add xl.Cells (1, 1).Value = "x1" xl.Cells (1, 2).Value = "y1" xl.Cells (1, 3).Value = "x2" xl.Cells (1, 4).Value = "y2" xl.Cells (1, 5).Value = "線種No" xl.Cells (1, 6).Value = "線色" row = 2 ExcelOut (doc.RootObject) 　　　　　　　'^^^^^^^^^^^^^^ 'これを sym に置き換えると、自分を含め、全ての子部品 ' （子・孫等も含む）のみをナメル様にできます。 End Sub Sub ExcelOut(obj) Dim item For Each item In obj If item.ID = otSymbol Then ExcelOut (item) '←子部品が見つかったので再帰呼出で、 ' 処理させる。 ElseIf item.ID = otLine Then xl.Cells (row, 1).Value = item.x1 xl.Cells (row, 2).Value = item.y1 xl.Cells (row, 3).Value = item.x2 xl.Cells (row, 4).Value = item.y2 xl.Cells (row, 5).Value = item.Style xl.Cells (row, 6).Interior.Color = item.Color row = row + 1 End If Next End Sub sym.Macro "Out", "Excelに全階層の線情報の出力"
■■■サンプルデータのダウンロード(座標表示1.bso　1KB)■■■	●例２●　 各点の座標値のデータ画面表示サンプル例。 ※閉塞された線データを100点まで０点から座標値を順次表示し　そのあと順番に各線データを緑色に表示する。 Sub SearchRange2 Dim item , range, i, count, x(100), y(100) Set range = sym.Range ("First") 'sym.Range ("First"）で、▲▲▲名前に"First"が付く線が、 '１本目の線として扱われます。 '※線・円・文字・点の各々オブジェクトに名前を付けられます。要素の上で左ボタン・下ドラッグ・他方クリックで、プロパティメニューで　名前を作成できます。 count = range.Count For i = 0 To count range.SetReadPoint (i) x(i) = range.x y(i) = range.y MsgBox "点No i =(" & i & ") x座標値=(" & x(i) & ") y座標値=(" & y(i) & ")" Next For Each item In range If item.ID = otLine Then item.Color = vbGreen '←緑色 End If doc.ReDraw MsgBox " next " Next End Sub sym.Macro "SearchRange2", "各点座標値表示＆連続化線確認"