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

05358

Dim swApp As Object
! X$ t; Z/ R: W3 H7 |( Y
- {" k$ n! v! G5 L) ]Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
5 j8 I* k9 ~! ^! p8 f2 g# ]7 T
+ l0 [* `$ f) Q7 i3 b1 p0 j9 VSub main()
! u7 T+ U+ Q3 y- M) Y6 S) w* h
Set swApp = _
Application.SldWorks

! y% N  l4 q! P" w: XSet Part = swApp.ActiveDoc
'boolstatus = Part.Extension.SelectByID2("", "FACE", -4.09635667216303E-02, 0.52721597004032, 0, False, 0, Nothing, 0)
! y! o9 |$ ?$ Q) ?% o* d& O
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.047664725287281, 2.69596543749078E-02, 0, False, 0, Nothing, 0)


Dim myFeature As Object
# i1 C/ V8 r: q/ y7 _/ J+ ^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 v3 E& \+ D0 ]" @9 G1 ]
$ H/ \  e: C, w" S( LEnd Sub
这是宏录制的，插入圆孔就失败，没反应。求指教。

1 @7 j, G+ |4 x, V, B# M/ u

ryouss

6 W* ?) u) J- y; N; m錄宏測試用鉆孔的鉆孔尺寸,是執行無效,但如下改成 鉆孔的螺孔鉆(螺絲孔的底徑)就可以,難道API沒支援"鉆孔尺寸"的代碼真不明白.
2 m9 K! Z+ K  E! q8 \7 R
' _; n" j( g* s  iSet 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不支援直徑符號吧!

05358

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

05358

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