Question

用vb 对proe二次开发的问题，张继春书里的例子，帮我看看那有问题。

代码如下：
Public gateway2 As New GWayAX
Dim featname As String

Private Sub Command2_Click()
Dim rg As Long
Dim itemName As String
Dim itemId As Long

rg = gateway2.SelectItem(SelFeature, itemId, itemName)
featname = gateway2.FeatureGetName(itemId)
End Sub

Private Sub Command3_Click()
Dim dimlist As Variant
Dim numdimensions As Long
Dim rg1 As Long
Dim dimNum As Integer

rg1 = gateway2.FeatureGetDimensionList(dimlist, numdimensions, featname)
For dimNum = 0 To numdimensions - 1
List1.AddItem dimlist(dimNum)
Next dimNum
End Sub

Private Sub Command4_Click()
Dim value As Long
Dim rg2 As Long
msg$ = "请输入新值："
value = Val(InputBox$(msg$, "数值修改"))
rg2 = gateway2.DimensionSetValue(List1.Text, value)
End Sub

Private Sub Command5_Click()
gateway2.ModelRegenerate
gateway2.WindowRepaint
End Sub

Private Sub List1_Click()
gateway2.WindowRepaint
gateway2.DimensionHighlight (List1.Text)
End Sub
谁能告诉我那有问题，我运行到显示尺寸特征那就跑不动了，特征在list1 里显示不了。

Answer 1

我没有用过proe的，你能把代码中GWayAX 类模块也发上来吗？
以便解决问题。
chixun99@163.com