Vložení aplikace Autodesk Inventor View do webové stránky

Rozhraní API (Application Programming Interface) obsahuje několik vlastností a metod, které lze použít na webové stránce.

Vlastnosti je možné nastavit pomocí značky <param> nebo lze použít vlastnosti a metody rozhraní API ve skriptovacím jazyce, například Visual Basic Script. Pomocí rozhraní API je také možné vytvářet aplikace v dalších programovacích jazycích, například C++ nebo Visual Basic.

K vložení aplikace Inventor View a odkazu na součást do souboru HTML lze použít štítek <object>. Součást můžete zobrazit na Internetu nebo intranetu.

Poznámka: Je vyžadován prohlížeč Microsoft Internet Explorer verze 5.01 nebo novější.
  1. Vytvořte soubor HTML běžným způsobem.
  2. Nastavte ovládací prvky pomocí značky <param>. Tím nastavíte vlastnosti, které přizpůsobují tlačítka pro změnu velikosti ovládacího okna, tlačítka pro změnu režimu zobrazení a tlačítka pro otevření souboru.
    Poznámka: K nastavení vlastností doporučujeme použít značku <param> namísto jejich připojení k adrese URL nebo cestě. Existují situace, kdy může prohlížeč připojené parametry odstranit.
  3. Chcete-li vložit aplikaci Inventor View do souboru, použijte parametr "classid" ze štítku <object>. V souboru HTML je nutné použít následující řetězec:

    <object classid="CLSID:A6336AB8-D3E1-489A-8186-EE40F2E027FE" id=ViewerControl1>

  4. Nastavte vlastnosti rozhraní API pro ovládání souboru na webové stránce.

    5. Chcte-li nastavit parametry výšky a šířky na stránce HTML, doporučuje se místo pro cent použít konstantní hodnoty. Pokud použijete pro centa a potom změníte velikost okna prohlížeče, soubor bude při tisku deformován.

Příklad souboru HTML

<HTML>

<HEAD><TITLE>Zkušební ovládací prvek prohlížeče</TITLE></HEAD>

<BODY>

<FORM ID="TestForm" LANGUAGE="VBScript">

<table style-class="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 border=1><tr><td>

<blockquote>

<BOLD>Soubor:</BOLD>

<input type="file" size="40" NAME="BrowseFile"></td></tr>

<tr><td align=right><INPUT NAME="OpenButton" TYPE="Button" VALUE="Otevřít"></td></tr>

<tr><td><INPUT NAME="PerspectiveButton" TYPE="Button" Value ="Perspektiva">

<INPUT NAME="LargerButton" TYPE="Button" VALUE="Větší">

<INPUT NAME="SmallerButton" TYPE="Button" VALUE="Menší"> <INPUT name="cbInteractive" value ="Interactive" type="CheckBox">Interaktivní</td></tr>

<tr><td><INPUT NAME="ShadedButton" TYPE="Radio"> Stínované zobrazení

<INPUT NAME="HiddenButton" TYPE="Radio"> Skrytá čára

<INPUT NAME="WireframeButton" TYPE="Radio"> Drátový model</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 = "Pravoúhlé promítání"

    ViewerControl1.Perspective = False

  Else

    TheForm.PerspectiveButton.Value = "Perspektiva"

    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>

Nadřazené téma: Autodesk Inventor View