Fichier IDW sur un site intranet

JFabrice51 · le 25 septembre 2008

Bonjour,

Je recherche comment afficher les plans issus d'inventor sur le site intranet de 'entreprise.

il faudrait que lorsque l'on a trouvé le plan voulu, on clique sur le lien et le plan s'affiche dans l'explorateur internet de la meme façon qu'un fichier PDF ou Word par exemple.

Je ne veux pas transformer tout les fichiers en PDF pous cause de maintenance.

Merci pour les réponses que vous pourez m'apporter.

GögøT · le 25 septembre 2008

Bonjour,

Avec Inventor il existe un petit viewer (pas le DWF review) qui se nomme "Inventor View 1.0"

Il te permet de visualiser les plans *.idw, ensembe *.iam et pièces *.ipt.

Il se peut que ça puisse être utile dans le cas présent.

JFabrice51 · le 26 septembre 2008

Merci pour la réponse, mais c'est un executable et a ma connaissace, il ne s'intègre pas au navigateur internet.

- Existe t-il un module qui s'intègre dans des pages internet?

merci pour vos réponses

[Edité le 2/10/2008 par JFabrice51]

JFabrice51 · le 2 octobre 2008

- Existe t-il un module qui s'intègre dans des pages internet?

merci pour vos réponses

GögøT · le 2 octobre 2008

Bonjour,

Tu peux intégrer du DWF dans une page web, aussi bien un ensemble ou une pièce 3D qu'une mise en plan ou une présentation.

Après ça dépend de ce que tu utilise pour faire ta page web...

malbrix · le 2 octobre 2008

Salut,

Copie ce code dans un fichier texte (bloc note) et enregistre ce fichier avec l'extension .html

Quand tu ouvres ton nouveau fichier html, il faut autoriser les contrôles ActiveX.

Regarde si ça te convient, l'inconvénient c'est qu'on ne peut pas imprimer.

A+

<HTML> 

<HEAD><TITLE>Test Viewer Control</TITLE></HEAD> 

<BODY> 

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

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

<blockquote> 

<BOLD>File:</BOLD> 

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

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

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

<INPUT NAME="LargerButton" TYPE="Button" VALUE="Larger"> 

<INPUT NAME="SmallerButton" TYPE="Button" VALUE="Smaller"> <INPUT name="cbInteractive" value ="Interactive" type="CheckBox">Interactive</td></tr> 

<tr><td><INPUT NAME="ShadedButton" TYPE="Radio"> Shaded View  

<INPUT NAME="HiddenButton" TYPE="Radio"> Hidden Line  

<INPUT NAME="WireframeButton" TYPE="Radio"> Wireframe</td></tr></table></blockquote> 

</FORM> 


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

<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>

[Edité le 2/10/2008 par malbrix]

Connexion

Fichier IDW sur un site intranet

Messages recommandés

JFabrice51

GögøT

JFabrice51

JFabrice51

GögøT

malbrix

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante