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

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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 根据工程图保存3种格式
返回列表 发新帖
查看: 5493|回复: 18
打印 上一主题 下一主题

根据工程图保存3种格式

  [复制链接]
xieguiming1982

12

主题

85

帖子

257

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1612

最佳新人活跃会员热心会员宣传达人
跳转到指定楼层
楼主
 楼主| 发表于 2024-2-21 09:21:00 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

   经典图书
  1. Dim swApp As Object
  2. Dim PART As Object
  3. Dim PART3D As Object
  4. Dim boolstatus As Boolean
  5. Dim longstatus As Long, longwarnings As Long
  6. Dim PathStr As String
  7. Dim i As Long
  8. Dim dir As String
  9. Dim PathStr0 As String, PathStr1 As String
  10. Dim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
  11. Dim PahtStr6 As String, PahtStr7 As String, PahtStr8 As String
  12. Dim swModel As SldWorks.ModelDoc2
  13. Dim swdraw As SldWorks.DrawingDoc
  14. Dim swView As SldWorks.view
  15. Dim ModelName As String
  16. Dim ModelType As String
  17. Dim L As Long, L1 As Long

  19. Sub main基于工程图保存三种格式()
  20. On Error Resume Next
  21. Set swApp = Application.SldWorks
  22. dir = swApp.GetCurrentWorkingDirectory
  23. Set PART = swApp.ActiveDoc
  24. PathStr0 = PART.GetPathName
  25. dir = PART.GetCurrentWorkingDirectory

  27. MkDir (dir & "\" & "DWG")
  28. MkDir (dir & "\" & "PDF")
  29. MkDir (dir & "\" & "X_T")

  31. i = InStrRev(PathStr0, "\")
  32. L = Len(PathStr0)
  33. fileName = Mid(PathStr0, i + 1, L - i)
  34. fileName = Left(fileName, Len(fileName) - 7)

  36. PathStr1 = dir & "\" & "DWG" & "\" & fileName & ".DWG"
  37. PathStr2 = dir & "\" & "PDF" & "\" & fileName & ".PDF"
  38. PathStr6 = dir & "\" & "X_T" & "\" & fileName & ".X_T"

  40. pathstr7 = Left(PathStr0, L - 7) & ".sldprt"
  41. pathstr8 = Left(PathStr0, L - 7) & ".sldasm"

  43. longstatus = PART.SaveAs3(PathStr1, 0, 0) ' Save as DWG
  44. longstatus = PART.SaveAs3(PathStr2, 0, 0) ' Save as PDF

  46. Set PART = Nothing
  47. L1 = Len(fileName)

  49. Set swModel = swApp.ActiveDoc
  50. Set swdraw = swModel
  51. Set swView = swdraw.GetFirstView
  52. Set swView = swView.GetNextView

  54. ModelName = swView.GetReferencedModelName()
  55. ModelType = Right(ModelName, 6)

  57. If ModelType = "SLDPRT" Or ModelType = "sldprt" Then
  58. Set PART3D = swApp.OpenDoc6(pathstr7, 1, 0, "", longstatus, longwarnings)
  59. ElseIf ModelType = "SLDASM" Or ModelType = "sldasm" Then
  60. Set PART3D = swApp.OpenDoc6(pathstr8, 2, 0, "", longstatus, longwarnings)
  61. End If

  63. longstatus = PART3D.SaveAs3(PathStr6, 0, 0)
  64. Set PART3D = Nothing
  65. End Sub
复制代码
说明以上代码可用，但是有点小bug，需要大师们修复一下，
就是打开了2个不同目录的工程图，使用宏后，他都保存到了第一个源目录文件夹下，应该是2个目录下的，各自源目录下，都有3个文件夹，并保存进去了3个格式的文件。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 转播转播 分享教程|习题|模型|技巧 点赞点赞 拍砖拍砖
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复

使用道具 举报

yinfox

0

主题

13

帖子

23

金币

天使

Rank: 2Rank: 2

积分
56
QQ
沙发
发表于 2024-2-21 09:37:58 | 只看该作者
好东西，努力学习学习！
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复 支持 反对

使用道具 举报

沉默的人

3

主题

1403

帖子

493

金币

传奇

Rank: 8Rank: 8

积分
5387

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
板凳
发表于 2024-2-21 09:44:16 | 只看该作者

   经典图书
顶一下，坐等高手！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

沉默的人

3

主题

1403

帖子

493

金币

传奇

Rank: 8Rank: 8

积分
5387

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
地板
发表于 2024-2-21 09:44:21 | 只看该作者
顶一下，坐等高手！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

氕氘氚

9

主题

351

帖子

551

金币

传奇

Rank: 8Rank: 8

积分
3179

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
5#
发表于 2024-2-21 09:44:35 | 只看该作者

   经典案例图书
顶一下谢老哥
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

852746249

24

主题

250

帖子

589

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2179

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
6#
发表于 2024-2-21 11:49:19 | 只看该作者
谢老哥的要顶顶顶起来
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

xieguiming1982

12

主题

85

帖子

257

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1612

最佳新人活跃会员热心会员宣传达人
7#
 楼主| 发表于 2024-2-21 12:45:00 | 只看该作者

   经典案例图书
  1. Dim swApp As Object
  2. Dim PART As Object
  3. Dim PART3D As Object
  4. Dim boolstatus As Boolean
  5. Dim longstatus As Long, longwarnings As Long
  6. Dim PathStr As String
  7. Dim i As Long
  8. Dim dir As String
  9. Dim PathStr0 As String, PathStr1 As String, PathStr2 As String, PathStr6 As String
  10. Dim pathstr7 As String, pathstr8 As String
  11. Dim swModel As SldWorks.ModelDoc2
  12. Dim swdraw As SldWorks.DrawingDoc
  13. Dim swView As SldWorks.View
  14. Dim ModelName As String
  15. Dim ModelType As String
  16. Dim L As Long, L1 As Long

  18. Sub main基于工程图保存三种格式()
  19.     On Error Resume Next
  20.     Set swApp = Application.SldWorks
  21.     Set PART = swApp.ActiveDoc
  22.     PathStr0 = PART.GetPathName
  23.    
  24.     ' 从文件路径中提取文件所在目录
  25.     dir = Left(PathStr0, InStrRev(PathStr0, "\"))
  26.    
  27.     ' 创建新的文件夹（DWG、PDF、X_T）
  28.     MkDir (dir & "DWG")
  29.     MkDir (dir & "PDF")
  30.     MkDir (dir & "X_T")

  32.     i = InStrRev(PathStr0, "\")
  33.     L = Len(PathStr0)
  34.     FileName = Mid(PathStr0, i + 1, L - i)
  35.     FileName = Left(FileName, Len(FileName) - 7)

  37.     PathStr1 = dir & "\" & "DWG" & "\" & FileName & ".DWG"
  38.     PathStr2 = dir & "\" & "PDF" & "\" & FileName & ".PDF"
  39.     PathStr6 = dir & "\" & "X_T" & "\" & FileName & ".X_T"

  41.     pathstr7 = Left(PathStr0, L - 7) & ".sldprt"
  42.     pathstr8 = Left(PathStr0, L - 7) & ".sldasm"

  44.     longstatus = PART.SaveAs3(PathStr1, 0, 0) ' Save as DWG
  45.     longstatus = PART.SaveAs3(PathStr2, 0, 0) ' Save as PDF

  47.     Set PART = Nothing
  48.     L1 = Len(FileName)

  50.     Set swModel = swApp.ActiveDoc
  51.     Set swdraw = swModel
  52.     Set swView = swdraw.GetFirstView
  53.     Set swView = swView.GetNextView

  55.     ModelName = swView.GetReferencedModelName()
  56.     ModelType = Right(ModelName, 6)

  58.     If ModelType = "SLDPRT" Or ModelType = "sldprt" Then
  59.         Set PART3D = swApp.OpenDoc6(pathstr7, 1, 0, "", longstatus, longwarnings)
  60.     ElseIf ModelType = "SLDASM" Or ModelType = "sldasm" Then
  61.         Set PART3D = swApp.OpenDoc6(pathstr8, 2, 0, "", longstatus, longwarnings)
  62.     End If

  64.     longstatus = PART3D.SaveAs3(PathStr6, 0, 0)
  65.     Set PART3D = Nothing
  66. End Sub
复制代码


不断自我升级 搞定了

评分

参与人数 1威望 +5 金币 +64 贡献 +5 收起 理由
专门设计 + 5 + 64 + 5 楼主厚道！

查看全部评分

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

使用道具 举报

xieguiming1982

12

主题

85

帖子

257

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1612

最佳新人活跃会员热心会员宣传达人
8#
 楼主| 发表于 2024-2-21 12:45:56 | 只看该作者
Dim swApp As Object
Dim PART As Object
Dim PART3D As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim i As Long
Dim dir As String
Dim PathStr0 As String, PathStr1 As String, PathStr2 As String, PathStr6 As String
Dim pathstr7 As String, pathstr8 As String
Dim swModel As SldWorks.ModelDoc2
Dim swdraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim ModelName As String
Dim ModelType As String
Dim L As Long, L1 As Long

Sub main基于工程图保存三种格式()
    On Error Resume Next
    Set swApp = Application.SldWorks
    Set PART = swApp.ActiveDoc
    PathStr0 = PART.GetPathName
   
    ' 从文件路径中提取文件所在目录
    dir = Left(PathStr0, InStrRev(PathStr0, "\"))
   
    ' 创建新的文件夹（DWG、PDF、X_T）
    MkDir (dir & "DWG")
    MkDir (dir & "PDF")
    MkDir (dir & "X_T")

    i = InStrRev(PathStr0, "\")
    L = Len(PathStr0)
    FileName = Mid(PathStr0, i + 1, L - i)
    FileName = Left(FileName, Len(FileName) - 7)

    PathStr1 = dir & "\" & "DWG" & "\" & FileName & ".DWG"
    PathStr2 = dir & "\" & "PDF" & "\" & FileName & ".PDF"
    PathStr6 = dir & "\" & "X_T" & "\" & FileName & ".X_T"

    pathstr7 = Left(PathStr0, L - 7) & ".sldprt"
    pathstr8 = Left(PathStr0, L - 7) & ".sldasm"

    longstatus = PART.SaveAs3(PathStr1, 0, 0) ' Save as DWG
    longstatus = PART.SaveAs3(PathStr2, 0, 0) ' Save as PDF

    Set PART = Nothing
    L1 = Len(FileName)

    Set swModel = swApp.ActiveDoc
    Set swdraw = swModel
    Set swView = swdraw.GetFirstView
    Set swView = swView.GetNextView

    ModelName = swView.GetReferencedModelName()
    ModelType = Right(ModelName, 6)

    If ModelType = "SLDPRT" Or ModelType = "sldprt" Then
        Set PART3D = swApp.OpenDoc6(pathstr7, 1, 0, "", longstatus, longwarnings)
    ElseIf ModelType = "SLDASM" Or ModelType = "sldasm" Then
        Set PART3D = swApp.OpenDoc6(pathstr8, 2, 0, "", longstatus, longwarnings)
    End If

    longstatus = PART3D.SaveAs3(PathStr6, 0, 0)
    Set PART3D = Nothing
End Sub
自我升级 搞定
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

xieguiming1982

12

主题

85

帖子

257

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1612

最佳新人活跃会员热心会员宣传达人
9#
 楼主| 发表于 2024-2-21 12:46:39 | 只看该作者
  1. Dim swApp As Object
  2. Dim PART As Object
  3. Dim PART3D As Object
  4. Dim boolstatus As Boolean
  5. Dim longstatus As Long, longwarnings As Long
  6. Dim PathStr As String
  7. Dim i As Long
  8. Dim dir As String
  9. Dim PathStr0 As String, PathStr1 As String, PathStr2 As String, PathStr6 As String
  10. Dim pathstr7 As String, pathstr8 As String
  11. Dim swModel As SldWorks.ModelDoc2
  12. Dim swdraw As SldWorks.DrawingDoc
  13. Dim swView As SldWorks.View
  14. Dim ModelName As String
  15. Dim ModelType As String
  16. Dim L As Long, L1 As Long

  18. Sub main基于工程图保存三种格式()
  19.     On Error Resume Next
  20.     Set swApp = Application.SldWorks
  21.     Set PART = swApp.ActiveDoc
  22.     PathStr0 = PART.GetPathName
  23.    
  24.     ' 从文件路径中提取文件所在目录
  25.     dir = Left(PathStr0, InStrRev(PathStr0, "\"))
  26.    
  27.     ' 创建新的文件夹（DWG、PDF、X_T）
  28.     MkDir (dir & "DWG")
  29.     MkDir (dir & "PDF")
  30.     MkDir (dir & "X_T")

  32.     i = InStrRev(PathStr0, "\")
  33.     L = Len(PathStr0)
  34.     FileName = Mid(PathStr0, i + 1, L - i)
  35.     FileName = Left(FileName, Len(FileName) - 7)

  37.     PathStr1 = dir & "\" & "DWG" & "\" & FileName & ".DWG"
  38.     PathStr2 = dir & "\" & "PDF" & "\" & FileName & ".PDF"
  39.     PathStr6 = dir & "\" & "X_T" & "\" & FileName & ".X_T"

  41.     pathstr7 = Left(PathStr0, L - 7) & ".sldprt"
  42.     pathstr8 = Left(PathStr0, L - 7) & ".sldasm"

  44.     longstatus = PART.SaveAs3(PathStr1, 0, 0) ' Save as DWG
  45.     longstatus = PART.SaveAs3(PathStr2, 0, 0) ' Save as PDF

  47.     Set PART = Nothing
  48.     L1 = Len(FileName)

  50.     Set swModel = swApp.ActiveDoc
  51.     Set swdraw = swModel
  52.     Set swView = swdraw.GetFirstView
  53.     Set swView = swView.GetNextView

  55.     ModelName = swView.GetReferencedModelName()
  56.     ModelType = Right(ModelName, 6)

  58.     If ModelType = "SLDPRT" Or ModelType = "sldprt" Then
  59.         Set PART3D = swApp.OpenDoc6(pathstr7, 1, 0, "", longstatus, longwarnings)
  60.     ElseIf ModelType = "SLDASM" Or ModelType = "sldasm" Then
  61.         Set PART3D = swApp.OpenDoc6(pathstr8, 2, 0, "", longstatus, longwarnings)
  62.     End If

  64.     longstatus = PART3D.SaveAs3(PathStr6, 0, 0)
  65.     Set PART3D = Nothing
  66. End Sub
复制代码
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

xieguiming1982

12

主题

85

帖子

257

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1612

最佳新人活跃会员热心会员宣传达人
10#
 楼主| 发表于 2024-2-21 12:47:37 | 只看该作者

   经典图书
  1. Dim swApp As Object
  2. Dim PART As Object
  3. Dim PART3D As Object
  4. Dim boolstatus As Boolean
  5. Dim longstatus As Long, longwarnings As Long
  6. Dim PathStr As String
  7. Dim i As Long
  8. Dim dir As String
  9. Dim PathStr0 As String, PathStr1 As String, PathStr2 As String, PathStr6 As String
  10. Dim pathstr7 As String, pathstr8 As String
  11. Dim swModel As SldWorks.ModelDoc2
  12. Dim swdraw As SldWorks.DrawingDoc
  13. Dim swView As SldWorks.View
  14. Dim ModelName As String
  15. Dim ModelType As String
  16. Dim L As Long, L1 As Long

  18. Sub main基于工程图保存三种格式()
  19.     On Error Resume Next
  20.     Set swApp = Application.SldWorks
  21.     Set PART = swApp.ActiveDoc
  22.     PathStr0 = PART.GetPathName
  23.    
  24.     ' 从文件路径中提取文件所在目录
  25.     dir = Left(PathStr0, InStrRev(PathStr0, "\"))
  26.    
  27.     ' 创建新的文件夹（DWG、PDF、X_T）
  28.     MkDir (dir & "DWG")
  29.     MkDir (dir & "PDF")
  30.     MkDir (dir & "X_T")

  32.     i = InStrRev(PathStr0, "\")
  33.     L = Len(PathStr0)
  34.     FileName = Mid(PathStr0, i + 1, L - i)
  35.     FileName = Left(FileName, Len(FileName) - 7)

  37.     PathStr1 = dir & "\" & "DWG" & "\" & FileName & ".DWG"
  38.     PathStr2 = dir & "\" & "PDF" & "\" & FileName & ".PDF"
  39.     PathStr6 = dir & "\" & "X_T" & "\" & FileName & ".X_T"

  41.     pathstr7 = Left(PathStr0, L - 7) & ".sldprt"
  42.     pathstr8 = Left(PathStr0, L - 7) & ".sldasm"

  44.     longstatus = PART.SaveAs3(PathStr1, 0, 0) ' Save as DWG
  45.     longstatus = PART.SaveAs3(PathStr2, 0, 0) ' Save as PDF

  47.     Set PART = Nothing
  48.     L1 = Len(FileName)

  50.     Set swModel = swApp.ActiveDoc
  51.     Set swdraw = swModel
  52.     Set swView = swdraw.GetFirstView
  53.     Set swView = swView.GetNextView

  55.     ModelName = swView.GetReferencedModelName()
  56.     ModelType = Right(ModelName, 6)

  58.     If ModelType = "SLDPRT" Or ModelType = "sldprt" Then
  59.         Set PART3D = swApp.OpenDoc6(pathstr7, 1, 0, "", longstatus, longwarnings)
  60.     ElseIf ModelType = "SLDASM" Or ModelType = "sldasm" Then
  61.         Set PART3D = swApp.OpenDoc6(pathstr8, 2, 0, "", longstatus, longwarnings)
  62.     End If

  64.     longstatus = PART3D.SaveAs3(PathStr6, 0, 0)
  65.     Set PART3D = Nothing
  66. End Sub
复制代码
自我升级 自我搞定
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

xieguiming1982

12

主题

85

帖子

257

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1612

最佳新人活跃会员热心会员宣传达人
11#
 楼主| 发表于 2024-2-21 12:48:04 | 只看该作者
Dim swApp As Object
Dim PART As Object
Dim PART3D As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim i As Long
Dim dir As String
Dim PathStr0 As String, PathStr1 As String, PathStr2 As String, PathStr6 As String
Dim pathstr7 As String, pathstr8 As String
Dim swModel As SldWorks.ModelDoc2
Dim swdraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim ModelName As String
Dim ModelType As String
Dim L As Long, L1 As Long

Sub main基于工程图保存三种格式()
    On Error Resume Next
    Set swApp = Application.SldWorks
    Set PART = swApp.ActiveDoc
    PathStr0 = PART.GetPathName
   
    ' 从文件路径中提取文件所在目录
    dir = Left(PathStr0, InStrRev(PathStr0, "\"))
   
    ' 创建新的文件夹（DWG、PDF、X_T）
    MkDir (dir & "DWG")
    MkDir (dir & "PDF")
    MkDir (dir & "X_T")

    i = InStrRev(PathStr0, "\")
    L = Len(PathStr0)
    FileName = Mid(PathStr0, i + 1, L - i)
    FileName = Left(FileName, Len(FileName) - 7)

    PathStr1 = dir & "\" & "DWG" & "\" & FileName & ".DWG"
    PathStr2 = dir & "\" & "PDF" & "\" & FileName & ".PDF"
    PathStr6 = dir & "\" & "X_T" & "\" & FileName & ".X_T"

    pathstr7 = Left(PathStr0, L - 7) & ".sldprt"
    pathstr8 = Left(PathStr0, L - 7) & ".sldasm"

    longstatus = PART.SaveAs3(PathStr1, 0, 0) ' Save as DWG
    longstatus = PART.SaveAs3(PathStr2, 0, 0) ' Save as PDF

    Set PART = Nothing
    L1 = Len(FileName)

    Set swModel = swApp.ActiveDoc
    Set swdraw = swModel
    Set swView = swdraw.GetFirstView
    Set swView = swView.GetNextView

    ModelName = swView.GetReferencedModelName()
    ModelType = Right(ModelName, 6)

    If ModelType = "SLDPRT" Or ModelType = "sldprt" Then
        Set PART3D = swApp.OpenDoc6(pathstr7, 1, 0, "", longstatus, longwarnings)
    ElseIf ModelType = "SLDASM" Or ModelType = "sldasm" Then
        Set PART3D = swApp.OpenDoc6(pathstr8, 2, 0, "", longstatus, longwarnings)
    End If

    longstatus = PART3D.SaveAs3(PathStr6, 0, 0)
    Set PART3D = Nothing
End Sub
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

xieguiming1982

12

主题

85

帖子

257

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1612

最佳新人活跃会员热心会员宣传达人
12#
 楼主| 发表于 2024-2-21 13:03:43 | 只看该作者
自我升级 自我搞定了
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

xieguiming1982

12

主题

85

帖子

257

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1612

最佳新人活跃会员热心会员宣传达人
13#
 楼主| 发表于 2024-2-21 19:21:03 | 只看该作者
我晕 这是卡了么  发这样多次？
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

hhh001

1

主题

2011

帖子

1995

金币

传奇

Rank: 8Rank: 8

积分
9293

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
14#
发表于 2024-2-21 19:31:47 | 只看该作者
转换完后关闭当前工程图页面就完美了
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

40559721

0

主题

10

帖子

163

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
498

最佳新人宣传达人
15#
发表于 2024-2-21 19:55:23 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

顶起来顶起来
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

changfeng1229

0

主题

27

帖子

1037

金币

VIP用户组

Rank: 100Rank: 100Rank: 100Rank: 100

积分
2845

最佳新人活跃会员宣传达人
16#
发表于 2024-2-21 21:12:07 | 只看该作者

   经典案例图书
hhh001 发表于 2024-2-21 19:31
转换完后关闭当前工程图页面就完美了

可以增加代码，swApp.Close  文件名称.slddrw
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

sunsu168

8

主题

343

帖子

1621

金币

传奇

Rank: 8Rank: 8

积分
5262

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
17#
发表于 2024-2-24 16:43:26 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

顶，  老谢
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

海上的兵

0

主题

234

帖子

1664

金币

传奇

Rank: 8Rank: 8

积分
7773

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
18#
发表于 2024-2-27 08:56:52 | 只看该作者

   经典案例图书
楼主很专业，写得很好！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

wangyapeng

0

主题

124

帖子

24

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1145

最佳新人活跃会员热心会员宣传达人灌水之王
19#
发表于 2024-10-16 21:28:02 来自手机 | 只看该作者
能否再这个基础上转214STEP，判断是装配体弹窗提醒

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

使用道具 举报

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

本版积分规则

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

手机版|小黑屋| GMT+8, 2025-6-2 20:43 , Processed in 0.410541 second(s), 27 queries , Memcache On.

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

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

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