|
高级会员
注册日期: 06-11
帖子: 1527
精华: 15
现金: 6353 标准币
资产: 6353 标准币
|
VB代码:迭代测量命令 via PCDIMS automation
Private Sub Command1_Click()
Dim app As New PCDLRN.Application
Dim partprogram As PCDLRN.partprogram
Dim cmd As Command
Set partprogram = app.ActivePartProgram
For I = 1 To partprogram.Commands.Count
Set cmd = partprogram.Commands.Item(I)
'cmd.Type = MEASURED_PLANE
List1.AddItem "ID=" & cmd.ID & "; type=" & cmd.Type
Next I
End Sub
|