初学VB2008，是测量数据导入EXCEL，借用了论坛上发的代码，还请见谅！ Dim app As PCDLRN.Application Dim cmds As PCDLRN.Commands Dim cmd As PCDLRN.Command Dim part As PCDLRN.PartProgram app = CreateObject("PCDLRN.Application") part = app.ActivePartProgram cmds = part.Commands For Each cmd In [color=Blue]cmds[/color] If cmd.Type = [color=Blue]DIMENSION_TRUE_START_POSITION[/color] cmds 和 DIMENSION_TRUE_START_POSITION为什么上面的语句在 VB6.0上能通过，在VB2008上确出现错误？ cmds错误为“表达的类型为PCDLRN.Commands，该类型不是集合类型。” DIMENSION_TRUE_START_POSITION提示为未声明 , 然我用CONST声明,也声明不了！请高手帮忙解决！万分感谢！ 工具弄出来后，会分享给大家！

发表新帖，提示出现错误。于是我一而在再而三的发，结果发了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

:Z顶一下。。。。

[b]回复 [url=http://bbs.hexagonmetrology.com.cn:6080/showtopic.aspx?topicid=10663&postid=81277#81277]3楼[color=Olive]arttk[/color]的帖子[/url][/b] :strong: 在此特别感谢版主 arttk 长期以来对我的帮助！:strong:

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

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

顶一下。。。。:Z

[b]回复 [url=http://bbs.hexagonmetrology.com.cn:6080/showtopic.aspx?topicid=10663&postid=81430#81430]6楼[color=Olive]liq[/color]的帖子[/url][/b] 感谢！马上去试下！

好东西，好好学习才是