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

05358

Dim swApp As Object

Dim Part As Object
% O' s2 b! l/ A2 m) w% ~Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

: C8 M4 i) t" e: m% oSub main()

Set swApp = _
Application.SldWorks
3 z1 e3 V' a, N
$ U- o0 ^4 a, _6 ?Set Part = swApp.ActiveDoc
% A! e9 L; `  u- p( E'boolstatus = Part.Extension.SelectByID2("", "FACE", -4.09635667216303E-02, 0.52721597004032, 0, False, 0, Nothing, 0)

, m& h1 U  h5 _3 T) k& `+ K# z- Qboolstatus = 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)
  A% E4 a- o" n) t# m0 Y1 r  G'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)

End Sub
1 W" m7 b+ ~3 H5 S9 ~; T) H- W: \- _这是宏录制的，插入圆孔就失败，没反应。求指教。

ryouss

7 d5 f& q8 I. a' N2 Z; x錄宏測試用鉆孔的鉆孔尺寸,是執行無效,但如下改成 鉆孔的螺孔鉆(螺絲孔的底徑)就可以,難道API沒支援"鉆孔尺寸"的代碼真不明白.

7 H: i* O) s0 X# oSet 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不支援直徑符號吧!
7 U; P: B$ t% T2 [/ j; m( y" A

05358

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

05358

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