solidworks VBA插入直径孔失败，求原因，正解

05358

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
2 Z1 A3 O( x  e
8 d* u4 b& ~- ^/ D) BSub main()
2 `6 @( {/ {" p* z) V7 @
Set swApp = _
Application.SldWorks

" \5 X" A) `- M& ?/ s7 d! JSet Part = swApp.ActiveDoc
'boolstatus = Part.Extension.SelectByID2("", "FACE", -4.09635667216303E-02, 0.52721597004032, 0, False, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("", "FACE", -0.047664725287281, 2.69596543749078E-02, 0, False, 0, Nothing, 0)


Dim myFeature As Object
Set myFeature = Part.FeatureManager.HoleWizard3(2, 13, 355, "?8.0", 0, 0.008, 0.01, 1, 2.05948851735331, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1, "", False, True, True, True, True, False)
5 A9 L2 i$ u, h9 y'Set myFeature = Part.FeatureManager.HoleWizard3(4, 13, 359, "M6", 0, 0.005, 0.017, 0.003, 0, 0, 0, 0, 2.05948851735331, 1, 0, 0, 0, -1, -1, "", False, True, True, True, True, False)

/ D; m) J7 x+ I+ J* y2 m* ~End Sub
5 V8 w' [2 R; b+ p( ~+ o/ l这是宏录制的，插入圆孔就失败，没反应。求指教。
2 U- O7 H& K! p* _7 k4 j2 Z

ryouss

錄宏測試用鉆孔的鉆孔尺寸,是執行無效,但如下改成 鉆孔的螺孔鉆(螺絲孔的底徑)就可以,難道API沒支援"鉆孔尺寸"的代碼真不明白.

Set myFeature = Part.FeatureManager.HoleWizard3(2, 13, 357, "M8", 1, 0.0068, 0.01, 1, 0, 0.0085, 1.5707963267949, 0.0085, 1.5707963267949, 0, -1, -1, -1, -1, -1, "", False, True, True, True, True, False)

ryouss

最大的可能性應該是VBA不支援直徑符號吧!
0 z; p4 J3 C0 n. x; _' {# |0 e' x

" N0 w1 D4 A8 s& Y# s! Z" V
0 e% r- V8 j/ S" e/ w

05358

如果是VBA不支持直径符号，那么要用该命令插入直径孔该咋办，难道API有多强大多强大，都是瞎说的，总得有个解决办法吧。

05358

我打算用创建异形孔向导特征数据的办法创建该特征，可是它的参数中也需要直径符号的输入。该往哪里走，该往哪里去？