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

iCAx开思网

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

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

[复制链接]
跳转到指定楼层
1
发表于 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工作量大时,可能会有优势。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享淘帖 赞一下!赞一下!
2
发表于 2015-8-2 10:09:34 来自手机 | 只看该作者
学习了
3
发表于 2015-8-2 10:09:46 来自手机 | 只看该作者
学习了
4
发表于 2015-8-2 10:10:05 来自手机 | 只看该作者
学习了
5
发表于 2015-8-2 10:10:15 来自手机 | 只看该作者
学习了
6
发表于 2015-8-2 10:10:29 来自手机 | 只看该作者
学习了
7
发表于 2015-8-2 10:10:55 来自手机 | 只看该作者
学习了
8
发表于 2015-8-2 10:11:05 来自手机 | 只看该作者
学习了
9
发表于 2015-8-2 10:11:28 来自手机 | 只看该作者
学习了
10
发表于 2015-8-2 10:11:41 来自手机 | 只看该作者
学习了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

GMT+8, 2024-12-23 18:52 , Processed in 0.024629 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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