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