求助！！！工程图宏的问题

yanwei1945 · 发表于 2021-3-14 19:43:18

求助哪位大神帮小弟写个将工程图的明细表自动另存为excel的宏（最好另存为桌面）！谢谢

Allate · 发表于 2021-5-4 09:39:34

yanwei1945 发表于 2021-4-28 21:11
我给这两个宏进行了结合，没调出了有空帮我分析下（另外那个帖子也帮分析下没学到位:

' ******************************************************************************
' 工程图的明细表自动另存为Excel.swp - By Allate, 2021-05-04
' ******************************************************************************
'说明：
'1. 使用此宏时，请先打开对应的零件/装配体，并保证其对应的工程图关闭。
'2. 此宏最后部分，有两个API可供选择，SaveAsExcel可稳定运行于SW2019但在SW2017中导致崩溃，SaveAsText则比较通用但转出来的不是常规Excel表格，请自行选用

明细表Excel（打开模型使用）.zip (9.96 KB, 下载次数: 210, 售价: 20 金币)
2021-05-10更新，修正BUG

Allate · 发表于 2021-3-22 16:39:29

yanwei1945 发表于 2021-3-21 19:28
太感谢了是否可以做个遍历浏览当前装配体的所有工程图只要有明细表就另存

有兴趣的话，你可以自己试着弄一下。

yhjmario · 发表于 2021-3-15 14:07:27

楼主具体要求是咋样啊

Allate · 发表于 2021-3-15 14:14:00

经典案例图书

好像是没有这个API的，感觉要用笨办法来弄。

david82 · 发表于 2021-3-15 14:59:45

SW的明细表不是可以另存为excel吗

Allate · 发表于 2021-3-15 15:27:19

经典案例图书

借用一下SaveAsText这个API，强制更改后缀名，得到一个带警告的表格，算是达到目标了吧。

工程图的明细表自动另存为Excel.zip (8.13 KB, 下载次数: 205, 售价: 10 金币)

wangwang189 · 发表于 2021-3-18 22:45:26

活到老学到老！

yanwei1945 · 发表于 2021-3-21 19:28:56

Allate 发表于 2021-3-15 15:27
借用一下SaveAsText这个API，强制更改后缀名，得到一个带警告的表格，算是达到目标了吧。

太感谢了是否可以做个遍历浏览当前装配体的所有工程图只要有明细表就另存

yanwei1945 · 发表于 2021-3-23 21:04:26

Allate 发表于 2021-3-22 16:39
有兴趣的话，你可以自己试着弄一下。

我买了本二次开发的书还是没入门，

。不行就挨个点吧!反正就是太感谢你了。

yanwei1945 · 发表于 2021-3-23 21:18:44

Allate 发表于 2021-3-22 16:39
有兴趣的话，你可以自己试着弄一下。

还有个事情和您探讨下：
比如有个组焊件（由若干板材型材组成）的文件名为：“50112.01.10.00-支架” 在生成切割清单之后代号属性需要填图号图号规则是 50112.01.10.01、50112.01.10.02、......依次类推这个过程可以用宏来实现吗？（切割清单属性里面的那个代号前期已添加）

Allate · 发表于 2021-3-24 08:15:20

yanwei1945 发表于 2021-3-23 21:04
我买了本二次开发的书还是没入门，。不行就挨个点吧!反正就是太感谢你了。

学习是件好事呢，加油！或者你可以参考下面这个帖子的第三个宏，那里就有一个工程图的遍历。

【杂件】发几个与多配置零部件相关的宏
https://www.swbbsc.com/thread-310327-1-1.html
(出处: SolidWorks机械工程师网——最大的SolidWorks学习平台)

yanwei1945 · 发表于 2021-3-25 22:35:12

Allate 发表于 2021-3-24 08:15
学习是件好事呢，加油！或者你可以参考下面这个帖子的第三个宏，那里就有一个工程图的遍历。

【杂件】 ...

大神，我看了你第三个的那个宏，没有遍历的功能哈！

关于soildworks的API接口代码有什么教程推荐？

Allate · 发表于 2021-3-26 08:05:24

yanwei1945 发表于 2021-3-23 21:18
还有个事情和您探讨下：
比如有个组焊件（由若干板材型材组成）的文件名为：“50112.01.10.00-支架” ...

你截图说明一下，再加个附件上来就更好了。

Allate · 发表于 2021-3-26 08:23:14

加入QQ群
参与讨论和学习

或扫描二维码加入

yanwei1945 发表于 2021-3-25 22:35
大神，我看了你第三个的那个宏，没有遍历的功能哈！
关于soildworks的API接口代码有什么教程推荐？
...

你再仔细观察一下，那两个循环就是了。关于API，我另外发了一个新贴，可惜在审核，请耐心等待。

yanwei1945 · 发表于 2021-3-26 17:05:36

经典案例图书

Allate 发表于 2021-3-26 08:05
你截图说明一下，再加个附件上来就更好了。

我发了个新帖：https://www.swbbsc.com/forum.php?mod=viewthread&tid=310498

yanwei1945 · 发表于 2021-4-27 20:33:49

加入QQ群
参与讨论和学习

或扫描二维码加入

Allate 发表于 2021-3-24 08:15
学习是件好事呢，加油！或者你可以参考下面这个帖子的第三个宏，那里就有一个工程图的遍历。

【杂件】 ...

我研究了你说的那个宏，没有遍历装配体宏的功能吧！

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swExport As Variant
Dim swPath As String
Dim swName As String
Dim swSheetName As String
Dim dirName As String
Dim i As Integer
Dim numshts As Long
Dim lErrors As Long
Dim lWarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
On Error Resume Next
If swModel.GetType = 3 Then
Set swDraw = swModel
swPath = swDraw.GetPathName
swName = Mid(swPath, InStrRev(swPath, "\") + 1, Len(swPath) - InStrRev(swPath, "\") - 7)
swPath = Mid(swPath, 1, InStrRev(swPath, "\") - 1)
ChDrive Left(swPath, 3)
ChDir (swPath)
dirName = "PDF"
If Dir(dirName, vbDirectory) = "" Then MkDir (dirName)
ChDir (dirName)
numshts = swDraw.GetSheetCount
For i = 1 To numshts
swDraw.SheetPrevious
Next i
For i = 1 To numshts
swSheetName = swDraw.GetCurrentSheet.GetName
Set swExport = swApp.GetExportFileData(1)
swExport.SetSheets (2)
swDraw.Extension.SaveAs swName & "-" & swSheetName & ".pdf", 0, 0, swExport, lErrors, lWarnings
swDraw.SheetNext
Next i
Else
MsgBox "当前文档不是工程图，无法进行操作！"
End If
End Sub

复制代码

Allate · 发表于 2021-4-28 08:14:44

经典案例图书

yanwei1945 发表于 2021-4-27 20:33
我研究了你说的那个宏，没有遍历装配体宏的功能吧！

老尴尬了，发错帖子…你不会打我吧…

Allate · 发表于 2021-4-28 08:18:13

yanwei1945 发表于 2021-4-27 20:33
我研究了你说的那个宏，没有遍历装配体宏的功能吧！

应该是这个才对↓↓↓

【改良】随意改变零件/装配体的颜色
https://www.swbbsc.com/thread-307748-1-1.html
(出处: SolidWorks机械工程师网——最大的SolidWorks学习平台)

yanwei1945 · 发表于 2021-4-28 19:35:40

Allate 发表于 2021-4-28 08:14
老尴尬了，发错帖子…你不会打我吧…

哈哈

yanwei1945 · 发表于 2021-4-28 21:11:10

Allate 发表于 2021-4-28 08:18
应该是这个才对↓↓↓

【改良】随意改变零件/装配体的颜色

我给这两个宏进行了结合，没调出了有空帮我分析下（另外那个帖子也帮分析下没学到位

:

明细表Excel.zip (10.4 KB, 下载次数: 131)

		自动登录	找回密码
密码			立即注册

求助！！！工程图宏的问题

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献