Vba W Catia

[HeatheN]

Witam ma problem z VBA w catii !!

 

chce wprowadzic okienko do zmiany parametrow w Part Designe !

 

napisalem programik i wyskakuje error i nie wiem w czym jest problem :/

 

blad brzmi tak : Object dosen't support this property or method

 

 

 

Private Sub CommandButton1_Click()

 

Dim partDocument1 As PartDocument

Set partDocument1 = CATIA.ActiveDocument

 

Dim part1 As Part

Set part1 = partDocument1.Part

 

Dim constraints1 As constraints

Set constraints1 = part1.Connections("CATIAConstraints") <----- w tel linijce jest blad i nie wiem w czym jest prblem :mur:

 

Dim constraints3 As Constraint

Set constraints3 = constraints3.Item("liczba zębów")

Dim realParam1 As RealParam

 

Set realParam1 = constraint3.Dimension

realParam1 = TextBox1.Value

 

Dim constraints2 As Constraint

Set constraints2 = constraints2.Item("moduł")

Dim realParam2 As RealParam

 

Set realParam2 = constraint2.Dimension

realParam2 = TextBox2.Value

 

Dim constraints4 As Constraint

Set constraints4 = constraints4.Item("kąt przyporu")

Dim angle1 As Angle

 

Set angle1 = constraint3.Dimension

angle1.Value = TextBox3.Value

 

part1.Update

End Sub

 

 

z gory dzieki kazda pomoc sie przyda !