设为首页收藏本站
开启辅助访问 切换到宽版

SolidWorks机械工程师网——最大的SolidWorks学习平台

 找回密码
 立即注册

QQ登录

只需一步，快速开始

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 为什么我这部分总是出现错误代码91？
返回列表 发新帖
查看: 1154|回复: 4
打印 上一主题 下一主题

为什么我这部分总是出现错误代码91？

  [复制链接]
方枪枪的小红花

6

主题

20

帖子

90

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
298

最佳新人宣传达人
跳转到指定楼层
楼主
 楼主| 发表于 2019-12-10 11:47:17 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

   经典图书
左行星架模块里的代码可以实现零件重建，而针齿壳模块却不行，两个表格里代码格式是一样，为什么只有后者会出现错误代码“91”？

1

1
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享教程|习题|模型|技巧 点赞点赞 拍砖拍砖
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复

使用道具 举报

方枪枪的小红花

6

主题

20

帖子

90

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
298

最佳新人宣传达人
沙发
 楼主| 发表于 2019-12-10 12:33:39 | 只看该作者
  1. Private Sub CommandButton1_Click()
  2. Dim swApp As Object

  4. Dim Part As Object
  5. Dim boolstatus As Boolean
  6. Dim longstatus As Long, longwarnings As Long
  7. Set swApp = CreateObject("SldWorks.Application")
  8. Set Part = swApp.ActiveDoc

  10. Set Part = swApp.OpenDoc6("E:\行星减速器RV-40E\行星减速器RV40E--三维图\4 针齿壳模块\RV40E-06针齿壳.SLDPRT", 1, 0, "", longstatus, longwarnings)
  11. Part.Parameter("针齿定位直径@草图27").SystemValue = Range("B3").Value / 1000
  12. Part.Parameter("圆槽直径@草图27").SystemValue = Range("C3").Value / 1000
  13. Part.Parameter("针齿壳内径D2@草图5").SystemValue = Range("D3").Value / 1000
  14. Part.Parameter("针齿壳内径D1@草图7").SystemValue = Range("E3").Value / 1000
  15. Part.Parameter("针齿壳内径厚度L1@切除-拉伸4").SystemValue = Range("F3").Value / 1000
  16. Part.Parameter("通孔直径@草图8").SystemValue = Range("G3").Value / 1000
  17. Part.Parameter("通孔定位直径@草图8").SystemValue = Range("H3").Value / 1000
  18. Part.Parameter("针齿壳内径厚度L2@切除-拉伸3").SystemValue = Range("I3").Value / 1000
  19. Part.Parameter("外径D1段宽度@凸台-拉伸3").SystemValue = Range("J3").Value / 1000
  20. Part.Parameter("外径D2段宽度@凸台-拉伸2").SystemValue = Range("K3").Value / 1000
  21. Part.Parameter("外径D3段宽度@凸台-拉伸1").SystemValue = Range("L3").Value / 1000
  22. Part.Parameter("凹槽位置@3D草图10").SystemValue = Range("M3").Value / 1000
  23. Part.Parameter("凹槽宽度@切除-拉伸7").SystemValue = Range("N3").Value / 1000
  24. Part.Parameter("凹槽内径D1@草图11").SystemValue = Range("O3").Value / 1000
  25. Part.Parameter("凹槽外径D2@草图11").SystemValue = Range("P3").Value / 1000
  26. Part.Parameter("针齿壳外径D1@草图3").SystemValue = Range("Q3").Value / 1000
  27. Part.Parameter("针齿壳外径D2@草图2").SystemValue = Range("R3").Value / 1000
  28. Part.Parameter("针齿壳外径D3@草图1").SystemValue = Range("S3").Value / 1000
  29. Part.Parameter("沉孔夹角@草图8").SystemValue = Range("T3").Value * 3.1415926 / 180
  30. Part.EditRebuild

  32. Set Part = swApp.OpenDoc6("E:\行星减速器RV-40E\行星减速器RV40E--工程图\4 针齿壳模块工程图\RV40E-06针齿壳.SLDDRW", 3, 0, "", longstatus, longwarnings)
  33. Part.EditRebuild

  35. Part.Save '保存重建模型
  36. 'Set Part = Nothing
  37. 'swApp.CloseDoc "E:\行星减速器RV-40E\行星减速器RV40E--三维图\1 左行星架模块\RV40E-07调整垫片.SLDPRT"
  38. 'swApp.CloseDoc "E:\行星减速器RV-40E\行星减速器RV40E--三维图\1 左行星架模块\左行星架模块.SLDASM"
  39. 'swApp.CloseDoc "E:\行星减速器RV-40E\行星减速器RV40E--工程图\1 左行星架模块工程图\RV40E-07调整垫片.SLDDRW"
  40. Workbooks.Open ("E:\行星减速器RV-40E\行星减速器RV40E--零件Excel表\4 针齿壳模块设计表\工作表 在 RV40E-06针齿壳.xls")

  42. End Sub
复制代码
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复 支持 反对

使用道具 举报

zctylj

0

主题

39

帖子

31

金币

天使

Rank: 2Rank: 2

积分
154

最佳新人活跃会员宣传达人
板凳
发表于 2019-12-26 22:33:56 | 只看该作者

   经典图书
具体那一句呀
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

方枪枪的小红花

6

主题

20

帖子

90

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
298

最佳新人宣传达人
地板
 楼主| 发表于 2019-12-27 11:23:01 | 只看该作者
zctylj 发表于 2019-12-26 22:33
具体那一句呀

每次运行到第11句：Part.Parameter("针齿定位直径@草图27").SystemValue = Range("B3").Value / 1000
就会出现报错；
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

方枪枪的小红花

6

主题

20

帖子

90

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
298

最佳新人宣传达人
5#
 楼主| 发表于 2019-12-27 11:37:16 | 只看该作者

   经典案例图书
zctylj 发表于 2019-12-26 22:33
具体那一句呀

点调试就调到这一句

1.png
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

SOLIDWORKS 2023 机械设计从入门到精通

手机版|小黑屋| GMT+8, 2025-5-23 22:28 , Processed in 0.229130 second(s), 27 queries , Memcache On.

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明：本网言论纯属发表者个人意见，与本网立场无关。
如涉版权，可发邮件： admin@swbbsc.com

快速回复 返回顶部 返回列表