标题:大神们,讲解一下这个代码为什么不执行!
只看楼主
suzhanpeng
Rank: 4
等 级:业余侠客
威 望:7
帖 子:72
专家分:248
注 册:2016-9-28
结帖率:75%
已结贴  问题点数:20 回复次数:2 
大神们,讲解一下这个代码为什么不执行!
可以执行的代码
Private Sub MSHFlexGrid1_DblClick()
ipath = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.MouseRow, 8)
Set swApp = CreateObject("SldWorks.Application")
Set swModelDoc = swApp.ActiveDoc
Set Part = swApp.OpenDoc6("C:\Users\Administrator\Desktop\DB123.001 圆盘111.SLDPRT", 1, 0, "", longstatus, longwarnings)
End Sub


不执行的代码,用msgbox 显示 ipath=C:\Users\Administrator\Desktop\DB123.001 圆盘111.SLDPRT
Private Sub MSHFlexGrid1_DblClick()
ipath = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.MouseRow, 8)
Set swApp = CreateObject("SldWorks.Application")
Set swModelDoc = swApp.ActiveDoc
Set Part = swApp.OpenDoc6(ipath, 1, 0, "", longstatus, longwarnings)
End Sub
搜索更多相关主题的帖子: 讲解 代码 执行 Sub Set 
2017-11-30 15:56
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:197
专家分:1249
注 册:2017-7-8
得分:10 
程序代码都没有问题,文件名中间的空格会有影响吗?
加一句:swApp.Visible=True

[此贴子已经被作者于2017-11-30 19:54编辑过]

2017-11-30 19:51
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:934
专家分:5244
注 册:2015-8-10
得分:10 
这个情况比较特别。有可能是solidworks兼容性问题。
现在前后加中断,看看ipath是否正确,还有Part返回值是否正常。还可以试试第二段代码ipath不从msflexgrid提取数据,而是直接赋值是不是正常。
还不行的话,这段代码在SW的VBA中试试
2017-12-01 10:18



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-482960-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.106464 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved