solidworks二次开发学习（3）move all of the bodies in a part document。

最新推荐文章于 2025-01-14 15:23:09 发布

weixin_30284355

最新推荐文章于 2025-01-14 15:23:09 发布

阅读量391

点赞数

CC 4.0 BY-SA版权

文章标签： runtime

原文链接：http://www.cnblogs.com/frankwu2014/p/4345215.html

本文介绍如何使用SolidWorks API 进行VB.NET编程，具体演示了如何打开指定零件文档并移动所有体至指定位置。操作完成后确保不保存任何更改，避免影响零件在其他地方的使用。

 


1 'SolidWorks API Help
 2 'Move Bodies Example (VB.NET)
 3 'This example shows how to move all of the bodies in a part document.
 4 
 5 '-------------------------------------------------------------
 6 ' Preconditions:
 7 ' 1. Specified part document to open exists.
 8 ' 2. Run the macro.
 9 '
10 ' Postconditions: All of the bodies in the part document
11 ' are moved to the specified location.
12 '
13 ' NOTE: Because this part is used elsewhere, do not save
14 ' any changes when closing it.
15 '--------------------------------------------------------------
16 Imports SolidWorks.Interop.sldworks
17 Imports SolidWorks.Interop.swconst
18 Imports System.Runtime.InteropServices
19 Imports System
20 
21 Partial Class SolidWorksMacro
22 
23     Sub SelectBodies(ByVal swApp As SldWorks, ByVal swModel As ModelDoc2, ByVal bodyArr As Object)
24         ' Select and mark the bodies to move
25         Dim swSelMgr As SelectionMgr
26         Dim swSelData As SelectData
27         Dim body As Object
28         Dim swBody As Body2
29         Dim status As Boolean
30 
31         swSelMgr = swModel.SelectionManager
32         swSelData = swSelMgr.CreateSelectData
33 
34         If (bodyArr Is Nothing) Then Exit Sub
35         For Each body In bodyArr
36             swBody = body
37             swSelData.Mark = 1
38             status = swBody.Select2(True, swSelData)
39         Next body
40 
41     End Sub
42 
43     Sub Main()
44 
45         Dim swModel As ModelDoc2
46         Dim swPart As PartDoc
47         Dim bodyArr As Object
48         Dim swFeatMgr As FeatureManager
49         Dim swFeat As Feature
50         Dim fileName As String
51         Dim errors As Integer
52         Dim warnings As Integer
53         swModel = CType(swApp.ActiveDoc, ModelDoc2)
54         fileName = "D:\test.SLDPRT"
55         swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
56         swPart = swModel
57         swFeatMgr = swModel.FeatureManager
58 
59         swModel.ClearSelection2(True)
60 
61         ' Get the bodies to move
62         bodyArr = swPart.GetBodies2(swBodyType_e.swAllBodies, False)
63         SelectBodies(swApp, swModel, bodyArr)
64         ' Move the bodies
65         swFeat = swFeatMgr.InsertMoveCopyBody2(0, 0, -0.0255, 0, 0, 0, 0, 0, 0, 0, True, 1)
66     End Sub
67 
68     ''' <summary>
69     ''' The SldWorks swApp variable is pre-assigned for you.
70     ''' </summary>
71     Public swApp As SldWorks
72 
73 End Class