请教VB编程 [复制链接]

发表新帖，提示出现错误。于是我一而在再而三的发，结果发了3个一样的贴！为了环保，我一而再的删。。。！  不转移话题了！还请高手指点一二！

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pcapp As PCDLRN.Application
        Dim pcpart As PCDLRN.PartProgram
        Dim pccmds As PCDLRN.Commands
        Dim pccmd As PCDLRN.Command
        pcapp = CreateObject("pcdlrn.application")
        pcpart = pcapp.ActivePartProgram
        pccmds = pcpart.Commands
        For ii = 1 To pccmds.Count
            pccmd = pccmds.Item(ii)
            If pccmd.IsDimension Then
                If pccmd.Type = PCDLRN.OBTYPE.DIMENSION_START_LOCATION Then
                    你的代码...
                End If
            End If
        Next
    End Sub

顶一下。。。。

回复 3楼arttk的帖子

  在此特别感谢版主 arttk 长期以来对我的帮助！

“表达的类型为PCDLRN.Commands，该类型不是集合类型。”
先声明:
Dim cmds As Object
....
cmds = part.Commands
....

楼上果然是高手，用object确实可行。但cmds的方法和属性的联想不太好使，要对语言相当熟才可，呵呵，感谢分享！

顶一下。。。。

回复 6楼liq的帖子

感谢！马上去试下！

好东西，好好学习才是