求梁大帮助指点

老转哥们 · 发表于 2015-12-1 11:42:00

梁大，我现在研究SW批处理宏，想让运行宏时自动批量打开某一个文件夹下的零件和装配体文件，门外汉不知道完成这个功能的这句语句的代码应该怎么写？请求梁大指点下。谢谢。

当幸福来临 · 发表于 2015-12-1 11:42:08

指點不敢,相互研習就是
如下試試, inputbox 之對話表輸入文件路徑如 C:TEST 注意兩個 " " 符號

OpenFile part_asm.rar (10.23 KB, 下载次数: 113) swp檔

zhpjwxv · 发表于 2015-12-1 11:42:58

@ryouss 梁大，求指点

loselsj · 发表于 2015-12-1 11:43:06

谢谢梁大。
我原来这样做的。我以为有可以在同一个语句里同时设定打开零件和装配体的办法，看来还是只能用这种先处理零件然后再处理组件的方式了。
谢谢梁大指点。

仗义吗够意思吗 · 发表于 2015-12-1 11:43:48

经典案例图书

输入的路径后面必须带上那个斜杠，比如梁大例子里的“C:test“，test单启后面的那个斜杠必须带上。

beckham118 · 发表于 2015-12-1 11:45:00

应该不会。12版的库就是12版的库，16版我没装过，应该也有16版自己的库的。反正我在12版和14版上的库是不一样的，都是和各自的SW版本对应的。

vebhj · 发表于 2015-12-1 11:45:49

经典案例图书

指令是死的,編程是活的,
所以編程的寫法林林總總形形色色,
若是小編程尚不需計較寫法,能達結果就好,
大編程就要考慮許多如執行效率日後維修及易用性擴展性...
如下是另個寫法做參考,邏輯來說應該是會比2#效率好(若是開檔不多也是看不出),
因只是在開檔文件路徑搜找一遍即可,2#是要搜找兩遍.

OpenFile Part_Aam_1.rar (9.2 KB, 下载次数: 204) swp

abc2015 · 发表于 2015-12-1 11:47:00

是的，我原来想的就是这样，在路径下找一遍，碰到装配体时就打开装配体，碰到零件文件就打开零件文件，整个目录下只搜寻一遍。
谢谢梁大指点，下载研究了。

CMZ · 发表于 2015-12-1 11:48:21

如下是SW API 有關開檔的原文資料作參考
Select All in Part, Assembly, or Drawing (VBA)
This example shows how to select everything in the graphics area of a part or assembly document or in the sheet of a drawing document, as if you box-selected everything in the graphics area or the sheet.
' ******************************************************************************
' Preconditions:
' 1. Part, assembly, and drawing documents opened by the macro
' exist.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Examine:
' * Sheet to verify that all of the entities in the drawing
'    are selected.
' * Immediate window to see how many entities are selected.
' 2. Click Window > bolt-assembly.sldasm to switch to the assembly
' document.
' 3. Examine:
' * Graphics area to verify that the all of the components
'    in the assembly are selected.
' * Immediate window to see how many components are selected.
' 4. Click Window > bolt.sldprt to switch to the part document.
' 5. Examine:
' * Graphics area to verify that the all of the edges
'    in the part are selected.
' * Immediate window to see how many edges are selected.
'
' NOTE: Because these documents are used elsewhere, do not save any
' changes when closing them.
' ******************************************************************************
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim partFile As String
Dim assemblyFile As String
Dim drawingFile As String
Dim errors As Long
Dim warnings As Long
Dim selCount As Integer
Sub main()
Set swApp = Application.SldWorks

' Open a part document and select all edges in the part
partFile = "C:Program FilesSolidWorks CorpSolidWorkssamplesintroswbolt.sldprt"
Set swModel = swApp.OpenDoc6(partFile, swDocPART, swOpenDocOptions_Silent, "", errors, warnings)
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
'Select all edges in part
SelectAllinDocument

' Open an assembly document and select all components in the assembly
assemblyFile = "C:Program FilesSolidWorks CorpSolidWorkssamplesintroswbolt-assembly.sldasm"
Set swModel = swApp.OpenDoc6(assemblyFile, swDocASSEMBLY, swOpenDocOptions_Silent, "", errors, warnings)
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
'Select all components in assembly
SelectAllinDocument

' Open a drawing document and select all entities in the drawing
drawingFile = "C:Program FilesSolidWorks CorpSolidWorkssamplesintroswbolt-assembly.slddrw"
Set swModel = swApp.OpenDoc6(drawingFile, swDocDRAWING, swOpenDocOptions_Silent, "", errors, warnings)
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
'Select all entities in drawing
SelectAllinDocument

End Sub
Sub SelectAllinDocument()
' Select all edges in a part, all components in an assembly,
' or all entities in a drawing
   swModelDocExt.SelectAll
' Get and print the number of selections
selCount = 0
selCount = swSelMgr.GetSelectedObjectCount2(-1)
Select Case swModel.GetType
Case swDocPART
      Debug.Print "Number of edges selected in part       = " & selCount
Case swDocASSEMBLY
      Debug.Print "Number of components selected in assembly = " & selCount
Case swDocDRAWING
      Debug.Print "Number of entities selected in drawing = " & selCount
Case Else
      Debug.Print "Unknown type of document."
End Select

End Sub

golden_silence · 发表于 2015-12-1 11:48:22

API帮助是英文版的，想搜索都不知道用什么关键词，梁大见笑啦。
另，您昨天发的那个宏文件，因为我水平太差昨天晚上看了想了很久，应用应该还是能够瞎应用上了，但是还是没理解透彻，第一点就是不知道这宏（或者是所有的打开SW文档的宏）的原理是不是先把某个目录下的文件调入内存，然后去分析它的后缀名，后缀名最后三位符合您这宏文件里设定的"prt"或者"asm"时才正式在SW软件里打开文件？第二点就是，您的这个宏代码并没有指定当后缀名后三位是DRW时怎么处理，是不是后缀名后三位是DRW时SW默认不会打开这个文件而是只有在后三位符号宏文件里设定的“prt"或者"asm"时才会打开文件进行处理？
因为家里的电脑配置真的有点烂了，09年时买的电脑，平时用得很少，一直没升级，跑现在的版本的SW太卡，有的内容试过了，有的还没尝试试验，有啥常识性的错误请梁大谅解。明天把您这宏文件拷到公司去试验研究一天，谢谢梁大了。

zjyang1981 · 发表于 2015-12-1 11:48:44

怎麼發在這裡呢!<font color="Red">太不尊重樓主了[/color]

126818qq · 发表于 2015-12-1 11:49:22

Select Case Type_
'開零件檔
         Case "PRT"
            Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '開零件檔
'開組件檔
         Case "ASM"
            Set swModel = swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent, "", nErrors, nWarnings) '開組件檔
      End Select
是如上語句把工程圖篩選掉

nxwli · 发表于 2015-12-1 11:50:08

复制代码
1. 是如上語句把工程圖篩選掉當第1項的  Type_ 取得是工程圖  DRW  就跳出第8項.
若是 Type_ 取得是零件  PRT  就跳到第4項,執行  Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '開零件檔
再跳到第8項,結束選擇循環.
Select Case Type_
         .
      執行內容
         .
End Select
如上是個選擇循環
2. 查有關開檔的關鍵語是 OpenDoc6

wxsute2 · 发表于 2015-12-1 11:50:28

梁大，从回您上个帖后，一直在研究学习您的这个宏文件，到现在终于理解一二了。把提取文件的代号和名称写入配置特定属性栏的宏集成进去了。谢谢梁大指点了。
附上集成批量提取文件名中的代号和名称的宏文件，一方面请梁大有空时看看再指点指点哪里可以进一步改进，另一方面给有可能需要的朋友下载研究改进与使用。

批量提取代号名称写入配置特定属性.rar (17.07 KB, 下载次数: 11)

vejyj · 发表于 2015-12-1 11:50:46

加入QQ群
参与讨论和学习

或扫描二维码加入

不好意思，打扰了

xgy1991 · 发表于 2015-12-1 11:51:02

经典案例图书

N大真用心呀,謝謝分享!
看了,有空時可以再幫做簡化.

liucan · 发表于 2015-12-1 11:51:58

加入QQ群
参与讨论和学习

或扫描二维码加入

12#的簡化參考

OpenFile_Configuration.rar (11.62 KB, 下载次数: 136) SWP 2015/12/4 14:00 更新

配置

复制代码

fenghu2015 · 发表于 2015-12-1 11:52:19

经典案例图书

谢谢梁大，
这才完全是我想要的宏文件了。因为我觉得开启零件和开启装配体后，要在两段打开文件代码后分别执行一段完全一模一样的宏代码，这就不是那么合理的了，不仅是调试时比较烦琐，而且在下次万一有需要更改时，也容易漏改掉两段相同代码中的某一处。
没系统的学过VB VC这些东西，脑子里有构想但不知道怎么用代码编出这个宏来，梁大是彻底的帮我解惑了，谢谢梁大。

硕尔五金 · 发表于 2015-12-1 11:53:00

15#編程如下補加紅色兩句,找到  "工程圖"  不做存檔關檔之處理.
         Case "ASM"
            Set swModel =swApp.OpenDoc6(path + sFileName, swDocASSEMBLY, swOpenDocOptions_Silent,"", nErrors, nWarnings)
            Call Configuration_ '呼叫副程式
   End Select
   If Type_ <> "DRW" Then
   swModel.Save '存檔
   swApp.CloseDoc swModel.GetTitle '關檔
    End If
   Set swModel = Nothing
   sFileName = Dir '同路徑取出下個SW文件檔名
Loop
End Sub

香远益清 · 发表于 2015-12-1 11:53:24

梁大，可是原来的宏代码应该本身就没有开启工程图文档呀，为什么后面要再加上这一句辨别是非工程图时存档减档的代码呢？

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