Incorporation d'Autodesk Inventor View dans un fichier HTML

Utilisez le libellé <object> pour incorporer Autodesk Inventor View et référencer une pièce dans un fichier HTML. Vous pouvez ensuite la visualiser à partir d'Internet ou d'un intranet.

Remarque : Microsoft Internet Explorer 5.01 ou ultérieur est requis.
  1. Créez un fichier HTML comme à votre habitude.
  2. Définissez les commandes à l'aide du libellé <param> HTML. Cela permet de définir les propriétés de personnalisation des boutons destinés au redimensionnement de la fenêtre de contrôle, au changement du mode d'affichage et à l'ouverture des fichiers.
    Remarque : Il est recommandé d'utiliser le libellé <param> pour définir les propriétés au lieu des les ajouter à l'URL ou au chemin. Parfois, il est possible en effet que votre navigateur supprime les paramètres ajoutés.
  3. Utilisez le paramètre classid du libellé <object> pour incorporer Autodesk Inventor View dans le fichier. Votre fichier HTML doit être défini comme suit :

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

  4. Configurez les propriétés API pour contrôler le fichier dans la page Web.

Lors de la définition des paramètres de hauteur et largeur dans une page HTML, il est recommandé d'utiliser des valeurs statiques plutôt que des pourcentages. Si vous utilisez des pourcentages et que vous redimensionnez la fenêtre du navigateur, le fichier sera déformé à l'impression.

Exemple HTML

<HTML>

<HEAD><TITLE>Essai du contrôle de visualiseur</TITLE></HEAD>

<BODY>

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

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

<blockquote>

<BOLD>Fichier :</BOLD>

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

<tr><td align=right><INPUT NAME="OpenButton" TYPE="Button" VALUE="Ouvrir"></td></tr>

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

<INPUT NAME="LargerButton" TYPE="Button" VALUE="Plus grand">

<INPUT NAME="SmallerButton" TYPE="Button" VALUE="Plus petit"> <INPUT name="cbInteractive" value ="Interactif" type="CheckBox">Interactif</td></tr>

<tr><td><INPUT NAME="ShadedButton" TYPE="Radio"> Vue ombrée

<INPUT NAME="HiddenButton" TYPE="Radio"> Ligne masquée

<INPUT NAME="WireframeButton" TYPE="Radio"> Filaire</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>

Sujet parent : Incorporation d'Autodesk Inventor View