自動建模與裝配程式碼分享(VB.NET)

jbkndron

以機械加工乙級作為主題的自動建模與裝配程式碼分享

1. Imports SolidWorks.Interop.sldworks
   
2. Imports SolidWorks.Interop.swconst
   
3. 
   
4. Public Class Form1
   
5.     'SolidWorks物件
   
6.     Dim SwApp As SldWorks
   
7.     '尺寸
   
8.     Dim myDimension As Object
   
9.     '資料夾名稱
   
10.     Dim PartFolder As String = "\18500-1060201"
    
11.     '桌面路徑
    
12.     Dim DesktopPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop)
    
13.     '警告訊息列舉
    
14.     Dim Warnings As Integer
    
15.     '零件檔路徑
    
16.     Dim PartPath() As String = {DesktopPath & PartFolder & "\支柱.SLDPRT",
    
17.     DesktopPath & PartFolder & "\立柱.SLDPRT", DesktopPath & PartFolder & "\底座.SLDPRT",
    
18.     DesktopPath & PartFolder & "\搖臂.SLDPRT", DesktopPath & PartFolder & "\偏心轉軸.SLDPRT"}
    
19. 
    
20.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
21.         Try
    
22.             If System.IO.Directory.Exists(DesktopPath & PartFolder) Then
    
23.                 System.IO.Directory.Delete(DesktopPath & PartFolder, True)
    
24.             End If
    
25.         Catch ex As Exception
    
26.             MsgBox("無法建立" & PartFolder & "資料夾")
    
27.             Exit Sub
    
28.         End Try
    
29. 
    
30.         '建立資料夾
    
31.         System.IO.Directory.CreateDirectory(DesktopPath & PartFolder)
    
32. 
    
33.         SwApp = New SldWorks
    
34. 
    
35.         '顯示應用程式
    
36.         SwApp.Visible = True
    
37. 
    
38.         '抑制尺寸修改對話框
    
39.         SwApp.SetUserPreferenceToggle(10, False)
    
40. 
    
41.         '建立零件
    
42.         CreatePart1()
    
43.         CreatePart2()
    
44.         CreatePart3()
    
45.         CreatePart4()
    
46.         CreatePart5()
    
47. 
    
48.         '組裝零件
    
49.         Assembly()
    
50. 
    
51.         '開啟尺寸修改對話框
    
52.         SwApp.SetUserPreferenceToggle(10, True)
    
53.     End Sub
    
54. 
    
55.     Sub CreatePart1()
    
56.         Dim Part As ModelDoc2 = SwApp.NewPart
    
57.         Part = SwApp.ActiveDoc
    
58. 
    
59.         '填料-伸長1
    
60.         Part.Extension.SelectByID2("上基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    
61.         Part.SketchManager.InsertSketch(True)
    
62.         Part.ClearSelection2(True)
    
63.         Part.SketchManager.CreateCenterRectangle(0, 0, 0, 0.014, 0.014, 0)
    
64.         Part.ClearSelection2(True)
    
65.         Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
    
66.         Part.AddDimension2(0, 0, -0.03)
    
67.         Part.ClearSelection2(True)
    
68.         Part.SketchManager.InsertSketch(True)
    
69.         Part.ShowNamedView2("*等角視", 7)
    
70.         Part.ClearSelection2(True)
    
71.         Part.Extension.SelectByID2("草圖1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
    
72.         Part.FeatureManager.FeatureExtrusion2(True, False, False, 6, 0, 0.07, 0.01, False,
    
73.                                               False, False, False, 0, 0, False, False,
    
74.                                               False, False, True, True, True, 0, 0, False)
    
75.         Part.ClearSelection2(True)
    
76. 
    
77.         'Ø16.0mm定位孔1
    
78.         Part.Extension.SelectByID2("", "FACE", 0, 0.015, 0.011, False, 0, Nothing, 0)
    
79.         Part.FeatureManager.HoleWizard5(swWzdGeneralHoleTypes_e.swWzdHole, swWzdHoleStandards_e.swStandardISO,
    
80.                                        swWzdHoleStandardFastenerTypes_e.swStandardISODowelHole, "Ø16.0",
    
81.                                        swEndConditions_e.swEndCondThroughAll, 0.016, 0, 1,
    
82.                                        0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1, -1, "", False,
    
83.                                        True, True, True, True, False)
    
84.         Part.Extension.SelectByID2("草圖3", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
    
85.         Part.EditSketch()
    
86.         Part.ClearSelection2(True)
    
87.         Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
    
88.         Part.Extension.SelectByID2("", "EDGE", 0, -0.035, 0.014, True, 0, Nothing, 0)
    
89.         Part.AddDimension2(0.03, 0, 0.011)
    
90.         Part.ClearSelection2(True)
    
91.         myDimension = Part.Parameter("D1@草圖3")
    
92.         myDimension.SystemValue = 0.052
    
93.         Part.ClearSelection2(True)
    
94.         Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
    
95.         Part.Extension.SelectByID2("Point1@原點", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
    
96.         Part.SketchAddConstraints("sgVERTICALPOINTS2D")
    
97.         Part.ClearSelection2(True)
    
98.         Part.SketchManager.InsertSketch(True)
    
99. 
    
100.         'M6螺紋孔1
     
101.         Part.Extension.SelectByID2("", "FACE", 0, -0.025, 0, False, 0, Nothing, 0)
     
102.         Part.FeatureManager.HoleWizard5(swWzdGeneralHoleTypes_e.swWzdTap, swWzdHoleStandards_e.swStandardISO,
     
103.                                     swWzdHoleStandardFastenerTypes_e.swStandardISOTappedHoleBottoming,
     
104.                                     "M6", swEndConditions_e.swEndCondBlind, 0.005, 0.012,
     
105.                                         0, 0.01, 0, 0, 0, 0, 118 * Math.PI / 180, 1, 0, 0,
     
106.                                         -1, -1, -1, "", False, True, True, True, True, False)
     
107.         Part.Extension.SelectByID2("草圖5", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
108.         Part.EditSketch()
     
109.         Part.ClearSelection2(True)
     
110.         Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
111.         Part.Extension.SelectByID2("Point1@原點", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
112.         Part.SketchAddConstraints("sgCOINCIDENT")
     
113.         Part.SketchManager.InsertSketch(True)
     
114. 
     
115.         'Ø6.0mm定位孔1
     
116.         Part.Extension.SelectByID2("", "FACE", -0.006, -0.025, -0.006, False, 0, Nothing, 0)
     
117.         Part.FeatureManager.HoleWizard5(swWzdGeneralHoleTypes_e.swWzdHole, swWzdHoleStandards_e.swStandardISO,
     
118.                                        swWzdHoleStandardFastenerTypes_e.swStandardISODowelHole, "Ø6.0",
     
119.                                        swEndConditions_e.swEndCondBlind, 0.006, 0.012, 0, 0,
     
120.                                        118 * Math.PI / 180, 0, 0, 0, 0, -1, -1, -1, -1, -1, -1,
     
121.                                        "", False, True, True, True, True, False)
     
122.         Part.Extension.SelectByID2("草圖7", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
123.         Part.EditSketch()
     
124.         Part.ClearSelection2(True)
     
125.         Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
126.         Part.EditDelete()
     
127.         Part.SketchManager.CreateCornerRectangle(0.009, -0.009, 0, -0.009, 0.009, 0)
     
128.         Part.SketchManager.CreatePoint(0.009, 0.009, 0)
     
129.         Part.SketchManager.CreatePoint(-0.009, -0.009, 0)
     
130.         Part.ClearSelection2(True)
     
131.         Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
132.         Part.SelectMidpoint()
     
133.         Part.Extension.SelectByID2("Point1@原點", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
134.         Part.SketchAddConstraints("sgVERTICALPOINTS2D")
     
135.         Part.ClearSelection2(True)
     
136.         Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
137.         Part.SelectMidpoint()
     
138.         Part.Extension.SelectByID2("Point1@原點", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
139.         Part.SketchAddConstraints("sgHORIZONTALPOINTS2D")
     
140.         Part.ClearSelection2(True)
     
141.         Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
142.         Part.AddDimension2(0.02, -0.035, 0)
     
143.         Part.ClearSelection2(True)
     
144.         Part.SketchManager.InsertSketch(True)
     
145. 
     
146.         Part.SaveAs3(PartPath(0), 0, 2)
     
147.         SwApp.CloseDoc(Part.GetTitle)
     
148.         Part = Nothing
     
149.     End Sub
     
150. 
     
151.     Sub CreatePart2()
     
152.         Dim Part As ModelDoc2 = SwApp.NewPart
     
153.         Part = SwApp.ActiveDoc
     
154. 
     
155.         '填料-伸長1
     
156.         Part.Extension.SelectByID2("上基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
     
157.         Part.SketchManager.InsertSketch(True)
     
158.         Part.ClearSelection2(True)
     
159.         Part.SketchManager.CreateCenterRectangle(0, 0, 0, 0.014, 0.014, 0)
     
160.         Part.ClearSelection2(True)
     
161.         Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
162.         Part.AddDimension2(0, 0, -0.03)
     
163.         Part.ClearSelection2(True)
     
164.         Part.SketchManager.InsertSketch(True)
     
165.         Part.ShowNamedView2("*等角視", 7)
     
166.         Part.ClearSelection2(True)
     
167.         Part.Extension.SelectByID2("草圖1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
168.         Part.FeatureManager.FeatureExtrusion2(True, False, False, 6, 0, 0.032, 0.01,
     
169.                                               False, False, False, False, 0, 0, False,
     
170.                                               False, False, False, True, True, True, 0, 0, False)
     
171.         Part.ClearSelection2(True)
     
172. 
     
173.         '除料-伸長1
     
174.         Part.Extension.SelectByID2("", "FACE", 0.014, 0, 0, False, 0, Nothing, 0)
     
175.         Part.SketchManager.InsertSketch(True)
     
176.         Part.ClearSelection2(True)
     
177.         Part.SketchManager.CreateCornerRectangle(0.007, -0.001, 0, -0.007, 0.016, 0)
     
178.         Part.ClearSelection2(True)
     
179.         Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
180.         Part.Extension.SelectByID2("", "EDGE", 0.014, 0, 0.014, True, 0, Nothing, 0)
     
181.         Part.AddDimension2(0.014, 0.02, 0.01)
     
182.         Part.ClearSelection2(True)
     
183.         Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
184.         Part.AddDimension2(0.014, 0.02, 0)
     
185.         Part.ClearSelection2(True)
     
186.         Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
187.         Part.Extension.SelectByID2("", "EDGE", 0.014, -0.016, 0, True, 0, Nothing, 0)
     
188.         Part.AddDimension2(0.014, -0.008, -0.02)
     
189.         Part.ClearSelection2(True)
     
190.         myDimension = Part.Parameter("D3@草圖2")
     
191.         myDimension.SystemValue = 0.015
     
192.         Part.SketchManager.InsertSketch(True)
     
193.         Part.Extension.SelectByID2("草圖2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
194.         Part.FeatureManager.FeatureCut3(True, False, False, swEndConditions_e.swEndCondThroughAll,
     
195.                                         swEndConditions_e.swEndCondThroughAll, 0.01, 0.01, False,
     
196.                                         False, False, False, 0, 0, False, False, False, False,
     
197.                                         False, True, True, True, True, False, 0, 0, False)
     
198.         Part.ClearSelection2(True)
     
199. 
     
200.         'Ø6.0mm定位孔1
     
201.         Part.Extension.SelectByID2("", "FACE", 0, 0.008, 0.016, False, 0, Nothing, 0)
     
202.         Part.FeatureManager.HoleWizard5(swWzdGeneralHoleTypes_e.swWzdHole, swWzdHoleStandards_e.swStandardISO,
     
203.                                        swWzdHoleStandardFastenerTypes_e.swStandardISODowelHole, "Ø6.0",
     
204.                                        swEndConditions_e.swEndCondThroughAll, 0.006, 0, 1, 0,
     
205.                                        0, 0, 0, 0, 0, -1, -1, -1, -1, -1, -1, "", False, True,
     
206.                                        True, True, True, False)
     
207.         Part.Extension.SelectByID2("草圖4", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
208.         Part.EditSketch()
     
209.         Part.ClearSelection2(True)
     
210.         Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
211.         Part.EditDelete()
     
212.         Part.SketchManager.CreatePoint(0, 0.008, 0)
     
213.         Part.ClearSelection2(True)
     
214.         Part.Extension.SelectByID2("Point1@原點", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
215.         Part.Extension.SelectByID2("Point2", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
216.         Part.SketchAddConstraints("sgVERTICALPOINTS2D")
     
217.         Part.ClearSelection2(True)
     
218.         Part.Extension.SelectByID2("Point2", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
219.         Part.Extension.SelectByID2("", "EDGE", 0, -0.016, 0.014, True, 0, Nothing, 0)
     
220.         Part.AddDimension2(0.02, -0.004, 0.014)
     
221.         Part.ClearSelection2(True)
     
222.         Part.SketchManager.InsertSketch(True)
     
223. 
     
224.         'M6螺紋孔1
     
225.         Part.Extension.SelectByID2("", "FACE", 0, -0.016, 0, False, 0, Nothing, 0)
     
226.         Part.FeatureManager.HoleWizard5(swWzdGeneralHoleTypes_e.swWzdTap, swWzdHoleStandards_e.swStandardISO,
     
227.                                     swWzdHoleStandardFastenerTypes_e.swStandardISOTappedHoleBottoming,
     
228.                                     "M6", swEndConditions_e.swEndCondBlind, 0.005, 0.012,
     
229.                                         0, 0.01, 0, 0, 0, 0, 118 * Math.PI / 180, 1, 0, 0, -1,
     
230.                                         -1, -1, "", False, True, True, True, True, False)
     
231.         Part.Extension.SelectByID2("草圖6", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
232.         Part.EditSketch()
     
233.         Part.ClearSelection2(True)
     
234.         Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
235.         Part.Extension.SelectByID2("Point1@原點", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
236.         Part.SketchAddConstraints("sgCOINCIDENT")
     
237.         Part.SketchManager.InsertSketch(True)
     
238. 
     
239.         'Ø6.0mm定位孔1
     
240.         Part.Extension.SelectByID2("", "FACE", -0.006, -0.016, -0.006, False, 0, Nothing, 0)
     
241.         Part.FeatureManager.HoleWizard5(swWzdGeneralHoleTypes_e.swWzdHole, swWzdHoleStandards_e.swStandardISO,
     
242.                                        swWzdHoleStandardFastenerTypes_e.swStandardISODowelHole, "Ø6.0",
     
243.                                        swEndConditions_e.swEndCondBlind, 0.006, 0.012, 0, 0,
     
244.                                        118 * Math.PI / 180, 0, 0, 0, 0, -1, -1, -1, -1, -1, -1, "",
     
245.                                        False, True, True, True, True, False)
     
246.         Part.Extension.SelectByID2("草圖8", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
247.         Part.EditSketch()
     
248.         Part.ClearSelection2(True)
     
249.         Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
250.         Part.EditDelete()
     
251.         Part.SketchManager.CreateCornerRectangle(0.009, -0.009, 0, -0.009, 0.009, 0)
     
252.         Part.SketchManager.CreatePoint(0.009, 0.009, 0)
     
253.         Part.SketchManager.CreatePoint(-0.009, -0.009, 0)
     
254.         Part.ClearSelection2(True)
     
255.         Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
256.         Part.SelectMidpoint()
     
257.         Part.Extension.SelectByID2("Point1@原點", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
258.         Part.SketchAddConstraints("sgVERTICALPOINTS2D")
     
259.         Part.ClearSelection2(True)
     
260.         Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
261.         Part.SelectMidpoint()
     
262.         Part.Extension.SelectByID2("Point1@原點", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
263.         Part.SketchAddConstraints("sgHORIZONTALPOINTS2D")
     
264.         Part.ClearSelection2(True)
     
265.         Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
266.         Part.AddDimension2(0.02, -0.035, 0)
     
267.         Part.ClearSelection2(True)
     
268.         Part.SketchManager.InsertSketch(True)
     
269. 
     
270.         Part.SaveAs3(PartPath(1), 0, 2)
     
271.         SwApp.CloseDoc(Part.GetTitle)
     
272.         Part = Nothing
     
273.     End Sub
     
274. 
     
275.     Sub CreatePart3()
     
276.         Dim Part As ModelDoc2 = SwApp.NewPart
     
277.         Part = SwApp.ActiveDoc
     
278. 
     
279.         '填料-伸長1
     
280.         Part.Extension.SelectByID2("上基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
     
281.         Part.SketchManager.InsertSketch(True)
     
282.         Part.ClearSelection2(True)
     
283.         Part.SketchManager.CreateCenterRectangle(0, 0, 0, 0.036, 0.036, 0)
     
284.         Part.ClearSelection2(True)
     
285.         Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
286.         Part.AddDimension2(0, 0, -0.03)
     
287.         Part.ClearSelection2(True)
     
288.         Part.SketchManager.InsertSketch(True)
     
289.         Part.ShowNamedView2("*等角視", 7)
     
290.         Part.ClearSelection2(True)
     
291.         Part.Extension.SelectByID2("草圖1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
292.         Part.FeatureManager.FeatureExtrusion2(True, False, False, 6, 0, 0.014, 0.01, False,
     
293.                                               False, False, False, 0, 0, False, False, False,
     
294.                                               False, True, True, True, 0, 0, False)
     
295.         Part.ClearSelection2(True)
     
296. 
     
297.         '除料-伸長1
     
298.         Part.Extension.SelectByID2("", "FACE", 0, 0, 0.036, False, 0, Nothing, 0)
     
299.         Part.SketchManager.InsertSketch(True)
     
300.         Part.ClearSelection2(True)
     
301.         Part.SketchManager.CreateCornerRectangle(-0.014, -0.007, 0, 0.014, -0.005, 0)
     
302.         Part.Extension.SelectByID2("", "EDGE", -0.036, 0, 0.036, False, 0, Nothing, 0)
     
303.         Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
304.         Part.AddDimension2(-0.025, -0.012, 0.036)
     
305.         Part.ClearSelection2(True)
     
306.         Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
307.         Part.AddDimension2(0, -0.012, 0.036)
     
308.         Part.ClearSelection2(True)
     
309.         Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
310.         Part.AddDimension2(-0.04, -0.005, 0.036)
     
311.         Part.ClearSelection2(True)
     
312.         Part.SketchManager.InsertSketch(True)
     
313.         Part.Extension.SelectByID2("草圖2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
314.         Part.FeatureManager.FeatureCut3(True, False, False, swEndConditions_e.swEndCondThroughAll,
     
315.                                         swEndConditions_e.swEndCondThroughAll, 0.01, 0.01, False, False,
     
316.                                         False, False, 0, 0, False, False, False, False, False,
     
317.                                         True, True, True, True, False, 0, 0, False)
     
318.         Part.ClearSelection2(True)
     
319. 
     
320.         'M6六角承窩頭蓋螺釘的柱孔1
     
321.         Part.Extension.SelectByID2("", "FACE", 0, -0.005, 0, False, 0, Nothing, 0)
     
322.         Part.FeatureManager.HoleWizard5(swWzdGeneralHoleTypes_e.swWzdCounterBore, swWzdHoleStandards_e.swStandardISO,
     
323.                                   swWzdHoleStandardFastenerTypes_e.swStandardISOSocketHeadCap, "M6",
     
324.                                   swEndConditions_e.swEndCondThroughAll, 0.0065, -1, -1, 0.011, 0.0065,
     
325.                                   -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "", False, False, False, False, False, False)
     
326.         Part.Extension.SelectByID2("草圖4", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
327.         Part.EditSketch()
     
328.         Part.ClearSelection2(True)
     
329.         Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
330.         Part.EditDelete()
     
331.         Part.SketchManager.CreatePoint(0, -0.014, 0)
     
332.         Part.SketchManager.CreatePoint(0, 0.014, 0)
     
333.         Part.Extension.SelectByID2("Point2", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
334.         Part.Extension.SelectByID2("Point1@原點", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
335.         Part.Extension.SelectByID2("Point3", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
336.         Part.SketchAddConstraints("sgVERTICALPOINTS2D")
     
337.         Part.ClearSelection2(True)
     
338.         Part.Extension.SelectByID2("", "EDGE", 0, 0.007, 0.036, False, 0, Nothing, 0)
     
339.         Part.Extension.SelectByID2("Point2", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
340.         Part.AddDimension2(0.045, 0.007, 0.025)
     
341.         Part.ClearSelection2(True)
     
342.         Part.Extension.SelectByID2("Point2", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
343.         Part.Extension.SelectByID2("Point3", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
     
344.         Part.AddDimension2(0.045, 0.007, 0)
     
345.         Part.SketchManager.InsertSketch(True)
     
346. 
     
347.         'Ø6.0mm定位孔1
     
348.         Part.Extension.SelectByID2("", "FACE", 0, 0.007, 0, False, 0, Nothing, 0)
     
349.         Part.FeatureManager.HoleWizard5(swWzdGeneralHoleTypes_e.swWzdHole, swWzdHoleStandards_e.swStandardISO,
     
350.                                        swWzdHoleStandardFastenerTypes_e.swStandardISODowelHole, "Ø6.0",
     
351.                                        swEndConditions_e.swEndCondBlind, 0.006, 0.012, 0, 0,
     
352.                                        118 * Math.PI / 180, 0, 0, 0, 0, -1, -1, -1, -1, -1, -1,
     
353.                                        "", False, True, True, True, True, False)
     
354.         Part.Extension.SelectByID2("草圖6", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
355.         Part.EditSketch()
     
356.         Part.ClearSelection2(True)
     
357.         Part.Extension.SelectByID2("Point1", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
     
358.         Part.EditDelete()
     
359.         Part.SketchManager.CreateCornerRectangle(-0.009, -0.023, 0, 0.009, -0.005, 0)
     
360.         Part.SketchManager.CreateCornerRectangle(-0.009, 0.005, 0, 0.009, 0.023, 0)
     
361.         Part.SketchManager.CreatePoint(-0.009, 0.023, 0)
     
362.         Part.SketchManager.CreatePoint(0.009, 0.005, 0)
     
363.         Part.SketchManager.CreatePoint(-0.009, -0.005, 0)
     
364.         Part.SketchManager.CreatePoint(0.009, -0.023, 0)
     
365.         Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
366.         Part.Extension.SelectByID2("Line6", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
367.         Part.SketchAddConstraints("sgCOLINEAR")
     
368.         Part.ClearSelection2(True)
     
369.         Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
370.         Part.Extension.SelectByID2("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
371.         Part.SketchAddConstraints("sgSAMELENGTH")
     
372.         Part.ClearSelection2(True)
     
373.         Part.Extension.SelectByID2("", "EDGE", 0, 0.007, 0.036, False, 0, Nothing, 0)
     
374.         Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
375.         Part.AddDimension2(-0.045, 0.007, 0.03)
     
376.         Part.ClearSelection2(True)
     
377.         Part.Extension.SelectByID2("", "EDGE", 0, 0.007, 0.036, False, 0, Nothing, 0)
     
378.         Part.Extension.SelectByID2("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
379.         Part.AddDimension2(-0.05, 0.007, 0.015)
     
380.         Part.ClearSelection2(True)
     
381.         Part.Extension.SelectByID2("", "EDGE", -0.036, 0.007, 0, False, 0, Nothing, 0)
     
382.         Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
383.         Part.AddDimension2(-0.022, 0.007, 0.05)
     
384.         Part.ClearSelection2(True)
     
385.         Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
386.         Part.AddDimension2(0, 0.007, 0.05)
     
387.         Part.ClearSelection2(True)
     
388.         Part.SketchManager.InsertSketch(True)
     
389. 
     
390.         '導角1
     
391.         Part.Extension.SelectByID2("", "EDGE", -0.036, 0.007, 0, False, 0, Nothing, 0)
     
392.         Part.Extension.SelectByID2("", "EDGE", 0.036, 0.007, 0, True, 0, Nothing, 0)
     
393.         Part.FeatureManager.InsertFeatureChamfer(4, 1, 0.002, 45 * Math.PI / 180, 0, 0, 0, 0)
     
394.         Part.ClearSelection2(True)
     
395. 
     
396.         Part.SaveAs3(PartPath(2), 0, 2)
     
397.         SwApp.CloseDoc(Part.GetTitle)
     
398.         Part = Nothing
     
399.     End Sub
     
400. 
     
401.     Sub CreatePart4()
     
402.         Dim Part As ModelDoc2 = SwApp.NewPart
     
403.         Part = SwApp.ActiveDoc
     
404. 
     
405.         '填料-伸長1
     
406.         Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
     
407.         Part.SketchManager.InsertSketch(True)
     
408.         Part.ClearSelection2(True)
     
409. 
     
410.         Part.SketchManager.CreateSketchSlot(swSketchSlotCreationType_e.swSketchSlotCreationType_center_line,
     
411.                                             swSketchSlotLengthType_e.swSketchSlotLengthType_CenterCenter,
     
412.                                             0.016, 0, 0, 0, 0.028, 0, 0, 0, 0, 0, 1, False)
     
413.         Part.SketchManager.CreateSketchSlot(swSketchSlotCreationType_e.swSketchSlotCreationType_center_line,
     
414.                                             swSketchSlotLengthType_e.swSketchSlotLengthType_CenterCenter,
     
415.                                             0.01, 0, 0, 0, 0.005, 0, 0, 0, 0, 0, 1, False)
     
416.         Part.SketchManager.CreateCircle(-0.028, 0, 0, -0.028, 0.003, 0)
     
417.         Part.SketchManager.CreateCircle(0.028, 0, 0, 0.028, 0.003, 0)
     
418.         Part.Extension.SelectByID2("Arc3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
419.         Part.Extension.SelectByID2("Arc4", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
420.         Part.AddDimension2(0, -0.02, 0)
     
421.         Part.ClearSelection2(True)
     
422.         Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
423.         Part.Extension.SelectByID2("Arc2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
424.         Part.AddDimension2(0, -0.025, 0)
     
425.         Part.ClearSelection2(True)
     
426.         Part.Extension.SelectByID2("Line5", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
427.         Part.Extension.SelectByID2("Line6", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
428.         Part.AddDimension2(0.02, 0.015, 0)
     
429.         Part.ClearSelection2(True)
     
430.         Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
431.         Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
432.         Part.AddDimension2(0.045, 0, 0)
     
433.         Part.ClearSelection2(True)
     
434.         Part.Extension.SelectByID2("Arc5", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
435.         Part.AddDimension2(-0.048, 0, 0)
     
436.         Part.ClearSelection2(True)
     
437.         Part.Extension.SelectByID2("Arc5", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
438.         Part.Extension.SelectByID2("Arc6", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
439.         Part.SketchAddConstraints("sgSAMELENGTH")
     
440.         Part.SketchManager.InsertSketch(True)
     
441.         Part.ShowNamedView2("*等角視", 7)
     
442.         Part.ClearSelection2(True)
     
443.         Part.Extension.SelectByID2("草圖1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
444.         Part.FeatureManager.FeatureExtrusion2(True, False, False, 6, 0, 0.014, 0.01, False,
     
445.                                               False, False, False, 0, 0, False, False, False,
     
446.                                               False, True, True, True, 0, 0, False)
     
447.         Part.ClearSelection2(True)
     
448. 
     
449.         Part.SaveAs3(PartPath(3), 0, 2)
     
450.         SwApp.CloseDoc(Part.GetTitle)
     
451.         Part = Nothing
     
452.     End Sub
     
453. 
     
454.     Sub CreatePart5()
     
455.         Dim Part As ModelDoc2 = SwApp.NewPart
     
456.         Part = SwApp.ActiveDoc
     
457. 
     
458.         '旋轉1
     
459.         Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
     
460.         Part.SketchManager.InsertSketch(True)
     
461.         Part.ClearSelection2(True)
     
462.         Part.SketchManager.CreateLine(0, 0, 0, 0, 0.018, 0)
     
463.         Part.SketchManager.CreateLine(0, 0.018, 0, 0.015, 0.018, 0)
     
464.         Part.SketchManager.CreateLine(0.015, 0.018, 0, 0.015, 0.014, 0)
     
465.         Part.SketchManager.CreateLine(0.015, 0.014, 0, 0.027, 0.014, 0)
     
466.         Part.SketchManager.CreateLine(0.027, 0.014, 0, 0.027, 0.008, 0)
     
467.         Part.SketchManager.CreateLine(0.027, 0.008, 0, 0.061, 0.008, 0)
     
468.         Part.SketchManager.CreateLine(0.061, 0.008, 0, 0.061, 0, 0)
     
469.         Part.SketchManager.CreateLine(0.061, 0, 0, 0, 0, 0)
     
470.         Part.SketchManager.CreateCenterLine(0, 0, 0, 0.1, 0, 0)
     
471.         Part.Extension.SelectByID2("Line6", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
472.         Part.AddDimension2(0.045, -0.01, 0)
     
473.         Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
474.         Part.AddDimension2(0.02, -0.01, 0)
     
475.         Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
476.         Part.AddDimension2(0.007, -0.01, 0)
     
477.         Part.Extension.SelectByID2("Line6", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
478.         Part.Extension.SelectByID2("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
479.         Part.AddDimension2(0.11, 0, 0)
     
480.         Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
481.         Part.Extension.SelectByID2("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
482.         Part.AddDimension2(0.12, 0, 0)
     
483.         Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
484.         Part.Extension.SelectByID2("Line9", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
485.         Part.AddDimension2(0.13, 0, 0)
     
486.         Part.SketchManager.InsertSketch(True)
     
487.         Part.ShowNamedView2("*等角視", 7)
     
488.         Part.Extension.SelectByID2("草圖1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
489.         Part.Extension.SelectByID2("Line9@草圖1", "EXTSKETCHSEGMENT", 0, 0, 0, True, 16, Nothing, 0)
     
490.         Part.FeatureManager.FeatureRevolve2(True, True, False, False, False, False, 0, 0, 2 * Math.PI, 0, False, False, 0.01, 0.01, 0, 0, 0, True, True, True)
     
491.         Part.ClearSelection2(True)
     
492. 
     
493.         '旋轉2
     
494.         Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
     
495.         Part.SketchManager.InsertSketch(True)
     
496.         Part.ClearSelection2(True)
     
497.         Part.SketchManager.CreateCornerRectangle(0.061, 0.008, 0, 0.076, 0.003, 0)
     
498.         Part.ClearSelection2(True)
     
499.         Part.SketchManager.CreateCenterLine(0.061, 0.003, 0, 0.081, 0.003, 0)
     
500.         Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
501.         Part.AddDimension2(0.68, 0.15, 0)
     
502.         Part.ClearSelection2(True)
     
503.         Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
     
504.         Part.Extension.SelectByID2("Line5", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing, 0)
     
505.         Part.AddDimension2(0.85, 0.003, 0)
     
506.         Part.SketchManager.InsertSketch(True)
     
507.         Part.Extension.SelectByID2("草圖2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
     
508.         Part.Extension.SelectByID2("Line5@草圖2", "EXTSKETCHSEGMENT", 0, 0, 0, True, 16, Nothing, 0)
     
509.         Part.FeatureManager.FeatureRevolve2(True, True, False, False, False, False, 0, 0, 2 * Math.PI, 0, False, False, 0.01, 0.01, 0, 0, 0, True, True, True)
     
510.         Part.ViewZoomtofit2()
     
511. 
     
512.         '倒角1
     
513.         Part.Extension.SelectByID2("", "EDGE", 0.076, 0.008, 0, False, 0, Nothing, 0)
     
514.         Part.Extension.SelectByID2("", "EDGE", 0.015, 0.018, 0, True, 0, Nothing, 0)
     
515.         Part.Extension.SelectByID2("", "EDGE", 0, 0.018, 0, True, 0, Nothing, 0)
     
516.         Part.FeatureManager.InsertFeatureChamfer(4, 1, 0.001, 45 * Math.PI / 180, 0, 0, 0, 0)
     
517. 
     
518.         Part.SaveAs3(PartPath(4), 0, 2)
     
519.         SwApp.CloseDoc(Part.GetTitle)
     
520.         Part = Nothing
     
521.     End Sub
     
522. 
     
523.     Sub Assembly()
     
524.         '建立組合件環境(文檔屬性)
     
525.         Dim swModel As ModelDoc2 = SwApp.NewAssembly()
     
526.         '建立組合件環境
     
527.         Dim SwAssy As AssemblyDoc = swModel
     
528. 
     
529.         swModel.ShowNamedView2("*等角視", 7)
     
530.         'swModel.ViewZoomtofit2()
     
531. 
     
532.         '取得文件焦點
     
533.         swModel = SwApp.ActiveDoc
     
534. 
     
535.         '取得組件檔Title
     
536.         Dim AssemblyName As String = swModel.GetTitle
     
537.         Dim TitleString() As String = Split(AssemblyName, ".")
     
538.         Dim AssemblyTitle = TitleString(0)
     
539. 
     
540.         '加入零件
     
541.         For Each Index As String In PartPath
     
542.             Dim Part As ModelDoc2 = SwApp.OpenDoc6(Index, swDocumentTypes_e.swDocPART, 0, "", 0, Warnings)
     
543.             Dim GetPartTitle As String = Part.GetTitle
     
544.             Dim GetTitleString = Split(GetPartTitle, ".")
     
545.             Dim PartTitle As String = GetTitleString(0)
     
546. 
     
547.             '將焦點放置於組合件環境
     
548.             swModel = SwApp.ActivateDoc2(AssemblyTitle, False, 0)
     
549.             swModel.ClearSelection2(True)
     
550. 
     
551.             '將零件插入至組合件
     
552.             SwAssy.AddComponent4(Index, "", 0, 0, 0)
     
553. 
     
554.             '焦點放至於被插入的零組件
     
555.             Part = SwApp.ActivateDoc2(Index, False, 0)
     
556.             '釋放零件參考
     
557.             Part = Nothing
     
558.             '關閉零件
     
559.             SwApp.CloseDoc(PartTitle)
     
560.         Next
     
561. 
     
562.         '遍歷零件名稱
     
563.         Dim SwConf As Configuration = swModel.GetActiveConfiguration
     
564.         Dim SwRootComp As Component2 = SwConf.GetRootComponent
     
565.         Dim SwComp As Component2 = SwRootComp
     
566.         Dim vChlidComp = SwComp.GetChildren
     
567.         Dim SwChildComp As Component2
     
568.         Dim SwCompConfig As Configuration = SwConf
     
569.         Dim ComponentNaem(UBound(vChlidComp)) As String
     
570.         'Dim Crefer  As string(零組件模型組態)
     
571.         For i = 0 To UBound(vChlidComp)
     
572.             SwChildComp = vChlidComp(i)
     
573.             ComponentNaem(i) = SwChildComp.Name2
     
574.             'Crefer = SwChildComp.ReferencedConfiguration
     
575.         Next
     
576. 
     
577.         '移動零件位置
     
578.         For Each Index As String In ComponentNaem
     
579.             Select Case Index
     
580.                 Case "支柱-1"
     
581.                     '零件浮動
     
582.                     swModel.Extension.SelectByID2(Index & "@" & AssemblyTitle, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
     
583.                     SwAssy.UnfixComponent()
     
584.                     '移動零件位置
     
585.                     DragDropComponent(swModel, Index & "@" & AssemblyTitle, {1, 0, 0}, {0, 1, 0}, {0, 0, 1}, 0, 0.1, 0)
     
586.                 Case "立柱-1"
     
587.                     '移動零件位置
     
588.                     DragDropComponent(swModel, Index & "@" & AssemblyTitle, {1, 0, 0}, {0, 1, 0}, {0, 0, 1}, 0, 0.2, 0)
     
589.                 Case "底座-1"
     
590.                     '移動零件位置
     
591.                     DragDropComponent(swModel, Index & "@" & AssemblyTitle, {1, 0, 0}, {0, 1, 0}, {0, 0, 1}, 0, 0, 0)
     
592. 
     
593.                     '零件固定
     
594.                     swModel.Extension.SelectByID2(Index & "@" & AssemblyTitle, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
     
595.                     SwAssy.FixComponent()
     
596.                 Case "搖臂-1"
     
597.                     '移動零件位置
     
598.                     DragDropComponent(swModel, Index & "@" & AssemblyTitle, {0, -1, 0}, {1, 0, 0}, {0, 0, 1}, 0, 0.3, 0)
     
599.                 Case "偏心轉軸-1"
     
600.                     '移動零件位置
     
601.                     DragDropComponent(swModel, Index & "@" & AssemblyTitle, {0, 0, 1}, {0, 1, 0}, {-1, 0, 0}, 0, 0.4, 0)
     
602.             End Select
     
603.         Next
     
604. 
     
605.         '調整可視範圍
     
606.         swModel.ViewZoomtofit2()
     
607. 
     
608.         '定義結合條件
     
609.         Dim longstatus As Integer
     
610. 
     
611.         '_______________________________________支柱__________________________________________
     
612.         '同心
     
613.         swModel.Extension.SelectByID2("", "FACE", -0.009, 0, -0.0217, False, 0, Nothing, 0)
     
614.         swModel.Extension.SelectByID2("", "FACE", -0.009, 0.07, -0.006, True, 0, Nothing, 0)
     
615.         SwAssy.AddMate4(swMateType_e.swMateCONCENTRIC, swMateAlign_e.swAlignSAME,
     
616.                                     False, 0, 0, 0, 0, 0, 0, 0,
     
617.                                     0, False, False, longstatus)
     
618.         '同心
     
619.         swModel.Extension.SelectByID2("", "FACE", 0, 0.002, -0.01075, False, 0, Nothing, 0)
     
620.         swModel.Extension.SelectByID2("", "FACE", 0, 0.07, -0.01175, True, 0, Nothing, 0)
     
621.         SwAssy.AddMate4(swMateType_e.swMateCONCENTRIC, swMateAlign_e.swMateAlignALIGNED,
     
622.                                     False, 0, 0, 0, 0, 0, 0, 0,
     
623.                                     0, False, False, longstatus)
     
624.         '重合
     
625.         swModel.Extension.SelectByID2("", "FACE", 0.01, 0.065, -0.01, False, 0, Nothing, 0)
     
626.         swModel.Extension.SelectByID2("", "FACE", 0, 0.007, 0, True, 0, Nothing, 0)
     
627.         SwAssy.AddMate4(swMateType_e.swMateCOINCIDENT, swMateAlign_e.swAlignSAME,
     
628.                                     False, 0, 0, 0, 0, 0, 0, 0,
     
629.                                     0, False, False, longstatus)
     
630.         '___________________________________  偏心轉軸________________________________________
     
631.         '重合
     
632.         swModel.Extension.SelectByID2("", "FACE", 0, 0.042, -0.028, False, 0, Nothing, 0)
     
633.         swModel.Extension.SelectByID2("", "FACE", 0, 0.39, 0.027, True, 0, Nothing, 0)
     
634.         SwAssy.AddMate4(swMateType_e.swMateCOINCIDENT, swMateAlign_e.swAlignSAME,
     
635.                                    False, 0, 0, 0, 0, 0, 0, 0,
     
636.                                    0, False, False, longstatus)
     
637.         '同心
     
638.         swModel.Extension.SelectByID2("", "FACE", 0, 0.051, -0.014, False, 0, Nothing, 0)
     
639.         swModel.Extension.SelectByID2("", "FACE", 0, 0.4, -0.014, True, 0, Nothing, 0)
     
640.         SwAssy.AddMate4(swMateType_e.swMateCONCENTRIC, swMateAlign_e.swAlignSAME,
     
641.                                    False, 0, 0, 0, 0, 0, 0, 0,
     
642.                                    0, False, False, longstatus)
     
643.         '_______________________________________立柱__________________________________________
     
644.         '同心
     
645.         swModel.Extension.SelectByID2("", "FACE", 0, 0, 0.01075, False, 0, Nothing, 0)
     
646.         swModel.Extension.SelectByID2("", "FACE", 0, 0.185, 0.0025, True, 0, Nothing, 0)
     
647.         SwAssy.AddMate4(swMateType_e.swMateCONCENTRIC, swMateAlign_e.swMateAlignALIGNED,
     
648.                                    False, 0, 0, 0, 0, 0, 0, 0,
     
649.                                    0, False, False, longstatus)
     
650.         '同心
     
651.         swModel.Extension.SelectByID2("", "FACE", -0.009, 0, 0.002, False, 0, Nothing, 0)
     
652.         swModel.Extension.SelectByID2("", "FACE", -0.009, 0.185, 0.002, True, 0, Nothing, 0)
     
653.         SwAssy.AddMate4(swMateType_e.swMateCONCENTRIC, swMateAlign_e.swMateAlignANTI_ALIGNED,
     
654.                                     False, 0, 0, 0, 0, 0, 0, 0,
     
655.                                     0, False, False, longstatus)
     
656.         '重合
     
657.         swModel.Extension.SelectByID2("", "FACE", 0, 0.184, 0.002, False, 0, Nothing, 0)
     
658.         swModel.Extension.SelectByID2("", "FACE", 0, 0.007, 0.002, True, 0, Nothing, 0)
     
659.         SwAssy.AddMate4(swMateType_e.swMateCOINCIDENT, swMateAlign_e.swAlignSAME,
     
660.                                     False, 0, 0, 0, 0, 0, 0, 0,
     
661.                                     0, False, False, longstatus)
     
662.         '_______________________________________搖臂__________________________________________
     
663.         '同心
     
664.         swModel.Extension.SelectByID2("", "FACE", 0, 0.272, 0, False, 0, Nothing, 0)
     
665.         swModel.Extension.SelectByID2("", "FACE", 0, 0.028, 0.025, True, 0, Nothing, 0)
     
666.         SwAssy.AddMate4(swMateType_e.swMateCONCENTRIC, swMateAlign_e.swMateAlignANTI_ALIGNED,
     
667.                                     False, 0, 0, 0, 0, 0, 0, 0,
     
668.                                     0, False, False, longstatus)
     
669. 
     
670.         '重合
     
671.         swModel.Extension.SelectByID2("", "FACE", 0, 0.045, 0.007, False, 0, Nothing, 0)
     
672.         swModel.Extension.SelectByID2("", "FACE", 0, 0.025, 0.021, True, 0, Nothing, 0)
     
673.         SwAssy.AddMate4(swMateType_e.swMateCOINCIDENT, swMateAlign_e.swAlignSAME,
     
674.                                     False, 0, 0, 0, 0, 0, 0, 0,
     
675.                                     0, False, False, longstatus)
     
676.         SwAssy.AddMate4(swMateType_e.swMateCOINCIDENT, swMateAlign_e.swAlignSAME,
     
677.                                     False, 0, 0, 0, 0, 0, 0, 0,
     
678.                                     0, False, False, longstatus)
     
679.         '相切
     
680.         swModel.Extension.SelectByID2("", "FACE", 0, 0.057, 0.01, False, 0, Nothing, 0)
     
681.         swModel.Extension.SelectByID2("", "FACE", 0.005, 0.057, 0.01, True, 0, Nothing, 0)
     
682.         SwAssy.AddMate4(swMateType_e.swMateTANGENT, swMateAlign_e.swAlignSAME,
     
683.                                     False, 0, 0, 0, 0, 0, 0, 0,
     
684.                                     0, False, False, longstatus)
     
685. 
     
686.         '重新計算
     
687.         swModel.EditRebuild3()
     
688. 
     
689.         '零件浮動
     
690.         swModel.Extension.SelectByID2("底座-1" & "@" & AssemblyTitle, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
     
691.         SwAssy.UnfixComponent()
     
692. 
     
693.         '移動零件位置
     
694.         DragDropComponent(swModel, "底座-1" & "@" & AssemblyTitle, {1, 0, 0}, {0, 1, 0}, {0, 0, 1}, 0, 0, 0)
     
695. 
     
696.         '零件固定
     
697.         swModel.Extension.SelectByID2("底座-1" & "@" & AssemblyTitle, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
     
698.         SwAssy.FixComponent()
     
699. 
     
700.         '取消選取
     
701.         swModel.ClearSelection2(True)
     
702. 
     
703.         '調整可視範圍
     
704.         swModel.ViewZoomtofit2()
     
705. 
     
706.         '存檔
     
707.         swModel.SaveAs3(DesktopPath & PartFolder & "\18500-106201.SLDASM", 0, 2)
     
708. 
     
709.     End Sub
     
710. 
     
711.     Sub DragDropComponent(ByVal Model As ModelDoc2, ByVal DragDropPart As String,
     
712.                           ByVal i_Vector() As Double, ByVal j_Vector() As Double, ByVal k_Vector() As Double,
     
713.                           ByVal X_Move As Double, ByVal Y_Move As Double, ByVal Z_Move As Double)
     
714.         Dim swModel As ModelDoc2 = Model
     
715.         Dim swAssy As AssemblyDoc = swModel
     
716.         Dim swDragOp As DragOperator = swAssy.GetDragOperator            '定義托放操作物件
     
717.         Dim swSelMgr As SelectionMgr = swModel.SelectionManager          '定義選取操作物件
     
718.         Dim swMathUtil As MathUtility = SwApp.GetMathUtility             '獲取座標轉換相關數學務件
     
719. 
     
720.         '定義拖曳點位置參數
     
721.         Dim swXform As MathTransform = swMathUtil.CreateTransform({i_Vector(0), i_Vector(1), i_Vector(2),
     
722.                                                                       j_Vector(0), j_Vector(1), j_Vector(2),
     
723.                                                                      k_Vector(0), k_Vector(1), k_Vector(2),
     
724.                                                                      X_Move, Y_Move, Z_Move,
     
725.                                                                      1, 0, 0, 0})
     
726.         '選取要移動的零件
     
727.         swModel.Extension.SelectByID2(DragDropPart, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
     
728. 
     
729.         '獲取選定對象的數量
     
730.         Dim swComp As Component2 = swSelMgr.GetSelectedObjectsComponent2(1)
     
731.         'AtIndex
     
732.         '-1 = All selections regardless of marks                              所有選擇，無論標記
     
733.         ' 0 = only the selections without marks                               只有沒有標記的選擇
     
734.         'Any other value = Value that was used to mark And select an object   用於標記和選擇對象的值
     
735. 
     
736.         '將組件添加到要拖動的組件列表中(拖曳組件清單,是否連續選取)
     
737.         swDragOp.AddComponent(swComp, False)
     
738. 
     
739.         '獲取或設置碰撞檢測設置
     
740.         swDragOp.CollisionDetectionEnabled = False
     
741. 
     
742.         '獲取或設置動態清除設置
     
743.         swDragOp.DynamicClearanceEnabled = False
     
744. 
     
745.         '獲取或設置轉換的類型
     
746.         swDragOp.TransformType = 1
     
747.         'Translation     0        Transform Is translation only
     
748.         'Axial Rotation         1        Transform Is rotation only
     
749.         'General         2        Transform can be translation Or rotation Or both
     
750. 
     
751.         '獲取或設置此拖動操作的拖動模式
     
752.         swDragOp.DragMode = 2
     
753.         '0 = Maximum move (move geometries rigidly, if possible)
     
754.         '1 = Minimum move (move the smallest number of geometries)
     
755.         '2 = Relaxation (solve geometries using relaxation)
     
756.         '3 = No propagation (move geometries with minimal transform propagation)
     
757. 
     
758.         '啟動拖動操作
     
759.         swDragOp.BeginDrag()
     
760. 
     
761.         '拖曳至指定位置
     
762.         swComp.Transform2 = swXform
     
763. 
     
764.         '重新計算
     
765.         swModel.EditRebuild3()
     
766. 
     
767.         '終止拖動操作
     
768.         swDragOp.EndDrag()
     
769.     End Sub
     
770. 
     
771. End Class
     

複製代碼

rock6098

真神人，我光搞個圖層開關及列印，就研究好幾天了！這得下多少苦功！

jbkndron

rock6098 發表於 2018/5/23 18:16
真神人，我光搞個圖層開關及列印，就研究好幾天了！這得下多少苦功！

你說圖層問題是工程圖環境嗎？

我打算開始研究工程圖，或許可以一起研究一下

rock6098

jbkndron 發表於 2018/5/23 18:59
你說圖層問題是工程圖環境嗎？

我打算開始研究工程圖，或許可以一起研究一下 ...

是啊，畢竟畫圖會運用到巨集的地方並不多，但工程圖就很需要了，因為工作常常一個月出個上百張，電子檔要用電子章，還要印無電子章的紙本給主管用印，所以很多的東西都會用圖層管理，但每次進圖層視窗開關，然後再叫出列印視窗，還有像是將BOM輸出成EXCEL表等，雖然不是什麼複雜的動作，但是重複的工作，為何不讓電腦自動完成呢？還好論壇裡有很多先進願意分享經驗，再加上進API HELP慢慢的找答案，一點一滴慢慢累積，一開始完全不懂語法的我，也慢慢有點概念了，製作了一些巨集也能幫助到同事，讓工作更有效率！只是自己做的東西拿不上枱面，但如果真有人遇到我能解決的，我也會非常樂意分享的！

jbkndron

rock6098 發表於 2018/5/23 23:45
是啊，畢竟畫圖會運用到巨集的地方並不多，但工程圖就很需要了，因為工作常常一個月出個上百張，電子檔要 ...

我是打算把有弄出結果的程式碼全部放上來
這樣以後有人要找東西就可以剪剪貼貼了
不然全部從零開始真是有夠累的....

jbkndron

rock6098 發表於 2018/5/23 23:45
是啊，畢竟畫圖會運用到巨集的地方並不多，但工程圖就很需要了，因為工作常常一個月出個上百張，電子檔要 ...

我目前學API只是單純覺得好玩，還沒遇到什麼需要用程式解決的問題

你遇到的都是些什麼問題啊？方便說明一下嗎？
或許我可以朝這方面來學息

不然我這樣走馬看花好像也沒什麼意義...

rock6098

jbkndron 發表於 2018/5/24 08:55
我目前學API只是單純覺得好玩，還沒遇到什麼需要用程式解決的問題

你遇到的都是些什麼問題啊？方便說明 ...

其實就API部份來說，因為每個人的作業環境不同，所以自然寫法就不盡相同，我在學習過程中，遇到最大的困難是，很多用法都看不太懂，例如在用application.filedialog時，當跳出對話框，選取完不管是資料夾、檔案，或自己輸入的檔名，接下來不知該如何用，因為物件的用法很多，很多時候網路上只有簡單的說明，並沒有範例可參考，或是範例和自己遇的情況並不相符，所以常常一個個慢慢試，又像opendoc0、opendoc1、opendoc2、.......opendoc6，各代表什麼意思，諸如此類，不過這個都可以找得到答案，只是要花不少時間，但我覺得這樣學習的，反而會加深自己印象，用過的語法，就自然會了，時間久了，所累積的也愈來愈多！

jbkndron

rock6098 發表於 2018/5/24 23:20
其實就API部份來說，因為每個人的作業環境不同，所以自然寫法就不盡相同，我在學習過程中，遇到最大的困 ...

真的是一個問題卡越久，過關後印象越深刻，但是這樣真的是很花時間
玩API真的很像從一堆拼圖碎片中湊出自己想要的圖
一開始每片都沒摸過，要卡很久才能湊出一個像樣的東西
但熟了之後就知道要撿什麼東西來拼，快很多