| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 361 人关注过本帖
标题:大神们,讲解一下这个代码为什么不执行!
只看楼主 收藏
suzhanpeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:45
专家分:168
注 册:2016-9-28
结帖率:66.67%
  已结贴   问题点数: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
2017-11-30 15:56
xyxcc177
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:141
专家分:910
注 册:2017-7-8
  得分:10 
程序代码都没有问题,文件名中间的空格会有影响吗?
加一句:swApp.Visible=True

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

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







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

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