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

05358

Dim swApp As Object
( s2 S. g: s9 d8 N. _
4 \; n/ \9 ~" @4 z$ w  JDim Part As Object
0 L- f6 [" k5 e) W5 P1 j- p. o( a! ~Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

3 `+ S1 {4 v- z# U+ P2 F! uSet swApp = _
Application.SldWorks
2 H8 u; U$ P3 I4 `& t, h4 y" I
Set Part = swApp.ActiveDoc
4 a1 S( l. j' a7 K'boolstatus = Part.Extension.SelectByID2("", "FACE", -4.09635667216303E-02, 0.52721597004032, 0, False, 0, Nothing, 0)
' v7 ~4 l( w2 `1 _
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)
'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)
3 Q( L1 s" x- b) x5 ~1 g
End Sub
' }, u7 @8 a/ X) R0 _" [这是宏录制的，插入圆孔就失败，没反应。求指教。

# B; b6 w7 ]" c. M; s6 s3 y. S6 }

ryouss

錄宏測試用鉆孔的鉆孔尺寸,是執行無效,但如下改成 鉆孔的螺孔鉆(螺絲孔的底徑)就可以,難道API沒支援"鉆孔尺寸"的代碼真不明白.
" X2 m$ d% ^' R9 F- Z
5 K$ c) A3 _: ?; L( hSet 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不支援直徑符號吧!

4 |* t$ b& j, O" v  b$ @& C

/ A+ G! W2 h7 D8 i- V8 C: S. V

05358

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

05358

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