找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?在线3D打印服务,一键上传,自动报价 
查看: 13358|回复: 13

[讨论] Copy+Paste是将n个SldDrw文件,合并为一个多页的工程图文件的利器?

[复制链接]
发表于 2015-8-2 09:16:02 | 显示全部楼层 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
本帖最后由 ning58 于 2015-8-4 09:35 编辑

A1.sldDrw,有零件1工程图。
A2.sldDrw,有零件2工程图。
A3.sldDrw,有零件3工程图。

如何将三个SldDrw文件,合并到一个SldDrw工程图文件。
在这个工程图文件中,有三页分别是零件1,零件2,零件3个零件的工程图。

'**************************

找到了解决方法,SOLIDWORKS2008版本后,用Copy后,Paste方法实现目标需求。
采用API的解决方法如下。
  1. ''
  2. Private Sub l4()
  3.    Dim SwApp As SldWorks.SldWorks
  4.    Dim SwModel As ModelDoc2, SwModelArr() As ModelDoc2
  5.       Set SwApp = Application.SldWorks
  6.       Set SwModel = SwApp.GetFirstDocument
  7.    Dim Kk As Integer
  8.       Do While Not SwModel Is Nothing
  9.          If SwModel.GetType = 3 Then
  10.             ReDim Preserve SwModelArr(Kk) As ModelDoc2
  11.             Set SwModelArr(Kk) = SwModel
  12.             Kk = Kk + 1
  13.          End If
  14.          Set SwModel = SwModel.GetNext
  15.       Loop
  16.       ''
  17.       Set SwModel = SwModelArr(1)
  18.       Debug.Print SwModel.GetTitle
  19.       ''
  20.       SwModel.ClearSelection2 True
  21.       ''
  22.    Dim SwFeat As Feature
  23.       Set SwFeat = SwModel.FirstFeature
  24.       Do While Not SwFeat Is Nothing
  25.           If SwFeat.GetTypeName = "DrSheet" Then
  26.               Debug.Print SwFeat.Name, SwFeat.GetTypeName
  27.               SwFeat.Select True
  28.           End If
  29.           Set SwFeat = SwFeat.GetNextFeature
  30.       Loop
  31.       Debug.Print SwModel.GetTitle
  32.       SwModel.EditCopy
  33.       Set SwModel = SwModelArr(0)
  34.       Debug.Print SwModel.GetTitle
  35.       SwApp.ActivateDoc (SwModel.GetTitle)
  36.       
  37.       SwModel.Paste
  38. End Sub
复制代码

解决这个问题时,API方法不一定比用Copy+Paste来的简单明了。只会增加麻烦。

API是在Copy+Paste工作量大时,可能会有优势。
发表于 2015-8-2 10:09:34 来自手机 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-8-2 10:09:46 来自手机 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-8-2 10:10:05 来自手机 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-8-2 10:10:15 来自手机 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-8-2 10:10:29 来自手机 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-8-2 10:10:55 来自手机 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-8-2 10:11:05 来自手机 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-8-2 10:11:28 来自手机 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2015-8-2 10:11:41 来自手机 | 显示全部楼层

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-3-29 03:45 , Processed in 0.026855 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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