je m'essaie a la programmation et je bute sur une ligne prise dans le dictatiel api
Code : Tout sélectionner
Set doc = TopApp.Documents.Open("C:\Projects\cadre.top")
est ce que quelqu'un as une idee
merci
Modérateurs : remi77, D@vid, Alexis GERARD
Code : Tout sélectionner
Set doc = TopApp.Documents.Open("C:\Projects\cadre.top")
Code : Tout sélectionner
Dim TopApp As TopSolid.Application
Dim TopDoc As TopSolid.DocumentDesign
Private Sub Command1_Click()
Dim a As TopSolid.Parameter
Dim b As TopSolid.Parameter
Dim c As TopSolid.Parameter
Dim e As TopSolid.Parameter
Set a = TopDoc.Parameters.AddBasic = Val(textbox1.Text, "mm")
Set b = TopDoc.Parameters.AddBasic = Val(textbox1.Text, "mm")
Set c = TopDoc.Parameters.AddBasic = Val(textbox1.Text, "mm")
Set e = TopDoc.Parameters.AddBasic = Val(textbox1.Text, "mm")
End Sub
Private Sub Form_Load()
' open document
Set doc = TopApp.Documents.Open("C:\Projets\cadre.top")
End Sub
Code : Tout sélectionner
Private Sub SendTopsolid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendTopsolid.Click
Dim doc As TopSolid.Document
Dim value As Double
TopApp = New TopSolid.Application
doc = TopApp.Documents.Open("caisson.top")
value = CInt(txtLargeur.Text)
doc.Parameters("L_c").SetConvertedValue(value, "mm")
value = CInt(txtHauteur.Text)
doc.Parameters("H_c").SetConvertedValue(value, "mm")
value = CInt(txtProfondeur.Text)
doc.Parameters("P_c").SetConvertedValue(value, "mm")
'sauvegardes des documents
doc.Regenerate()
doc.SaveAs("chemin du fichier à sauvegarder", False)
End Sub