<object> タグを使用すると、HTML ファイルに Autodesk Inventor View を埋め込んでパーツを参照することができます。 インターネットまたはイントラネットから、パーツを表示できます。
<object classid="CLSID:A6336AB8-D3E1-489A-8186-EE40F2E027FE" id=ViewerControl1>
HTML ページで高さおよび幅のパラメータを設定する場合は、パーセント値ではなくスタティック値を使用することをお勧めします。パーセント値を使用した場合、ブラウザ ウィンドウのサイズを変更すると、印刷時にファイルでの表示が変形します。
<HTML>
<HEAD><TITLE>ビューア コントロールのテスト</TITLE></HEAD>
<BODY>
<FORM ID="TestForm" LANGUAGE="VBScript">
<table style-class="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 border=1><tr><td>
<blockquote>
<BOLD>ファイル:</BOLD>
<input type="file" size="40" NAME="BrowseFile"></td></tr>
<tr><td align=right><INPUT NAME="OpenButton" TYPE="Button" VALUE="開く"></td></tr>
<tr><td><INPUT NAME="PerspectiveButton" TYPE="Button" Value ="パース ビュー">
<INPUT NAME="LargerButton" TYPE="Button" VALUE="拡大">
<INPUT NAME="SmallerButton" TYPE="Button" VALUE="縮小"> <INPUT name="cbInteractive" value ="Interactive" type="CheckBox">インタラクティブ</td></tr>
<tr><td><INPUT NAME="ShadedButton" TYPE="Radio">陰影付きのビュー
<INPUT NAME="HiddenButton" TYPE="Radio">隠線
<INPUT NAME="WireframeButton" TYPE="Radio">ワイヤフレーム</td></tr></table></blockquote>
</FORM>
<object classid="CLSID:A6336AB8-D3E1-489A-8186-EE40F2E027FE" id=ViewerControl1 width=400 height=300>
<param name="_Version" value=65536> <param name="_ExtentX" value=13229>
<param name="_ExtentY" value=7938> <param name="_StockProps" value=0>
</object>
<SCRIPT LANGUAGE="VBScript">
Sub PerspectiveButton_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm")
If ViewerControl1.Perspective Then
TheForm.PerspectiveButton.Value = "Orthographic"
ViewerControl1.Perspective = False
Else
TheForm.PerspectiveButton.Value = "Perspective"
ViewerControl1.Perspective = True
End If
End Sub
Sub LargerButton_OnClick()
ViewerControl1.Width = ViewerControl1.Width * 1.1
ViewerControl1.Height = ViewerControl1.Height * 1.1
End Sub
Sub SmallerButton_OnClick()
ViewerControl1.Width = ViewerControl1.Width * 0.9
ViewerControl1.Height = ViewerControl1.Height * 0.9
End Sub
Sub OpenButton_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm")
ViewerControl1.Filename = TheForm.BrowseFile.Value
TheForm.ShadedButton.checked = true
TheForm.cbInteractive.checked = true
End Sub
Sub ShadedButton_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm")
TheForm.HiddenButton.checked = False
TheForm.WireframeButton.checked = False
ViewerControl1.DisplayMode = 8708
End Sub
Sub HiddenButton_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm")
TheForm.ShadedButton.checked = False
TheForm.WireframeButton.checked = False
ViewerControl1.DisplayMode = 8707
End Sub
Sub WireframeButton_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm")
TheForm.ShadedButton.checked = False
TheForm.HiddenButton.checked = False
ViewerControl1.DisplayMode = 8706
End Sub
Sub cbInteractive_OnClick()
Dim TheForm
Set TheForm = Document.Forms("TestForm")
if TheForm.cbInteractive.checked = False then
ViewerControl1.Interactive = false
else
ViewerControl1.Interactive = true
end if
End Sub
</SCRIPT>
</BODY></HTML>