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

05358

Dim swApp As Object

5 e, y* g% t2 C" B+ [) bDim Part As Object
4 P4 i7 j& H% @0 gDim boolstatus As Boolean
  c5 ~  p. a1 E0 zDim longstatus As Long, longwarnings As Long

$ G9 Y3 ~# ?/ @* ^& N" w5 v1 NSub main()

, H- @' A! W* @+ z  a' L, m! V* fSet swApp = _
. x2 F) \% X" U! V- n# |  _) xApplication.SldWorks

% D/ o* q% U, Q* h: J$ ~Set Part = swApp.ActiveDoc
9 e8 a( W$ r) R'boolstatus = Part.Extension.SelectByID2("", "FACE", -4.09635667216303E-02, 0.52721597004032, 0, False, 0, Nothing, 0)
6 D! b  F5 C+ x) F/ d" N4 M4 w: w
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.047664725287281, 2.69596543749078E-02, 0, False, 0, Nothing, 0)

. T* s: b. L) ~* G1 ?& g0 q3 B
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)
1 l4 t  ?, m8 s% Z
End Sub
8 i: `: j8 g3 i( }这是宏录制的，插入圆孔就失败，没反应。求指教。
2 V7 g& {$ y( t- ~: b. P5 o( T9 B' i* X

ryouss

# y5 n1 V7 r2 h+ S8 u錄宏測試用鉆孔的鉆孔尺寸,是執行無效,但如下改成 鉆孔的螺孔鉆(螺絲孔的底徑)就可以,難道API沒支援"鉆孔尺寸"的代碼真不明白.
, Q  l) [# r" s& T1 q9 ?6 F1 M
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不支援直徑符號吧!
4 V$ ]( v5 o% ^: t9 g

- p& c$ j9 s: \4 u
0 ]* w' w* `3 Y# D2 ~8 o9 j

05358

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

05358

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