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

05358

Dim swApp As Object
) `8 z0 F  s* h7 c8 y0 Z4 y8 i
' L4 \1 j) k: E, t# HDim Part As Object
Dim boolstatus As Boolean
% [8 A! E$ B5 C; n7 b9 k9 CDim longstatus As Long, longwarnings As Long

Sub main()

+ A: M( T; S) _+ n+ MSet swApp = _
( f* E0 ~- b* e6 RApplication.SldWorks
/ K# ?- S; u$ o4 H$ }7 K
  f: r& S8 \" D' u( k% h  fSet Part = swApp.ActiveDoc
' Q! |* \# u- }% h! X7 D. ]'boolstatus = Part.Extension.SelectByID2("", "FACE", -4.09635667216303E-02, 0.52721597004032, 0, False, 0, Nothing, 0)
* [7 J/ i* ]* [) e* A8 U: j
1 U; i5 i8 E+ l8 B9 Oboolstatus = 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)
6 A0 o6 \* O* k* `$ \4 Z'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)

! j! D. s3 e6 l% x, L) S5 u. V" KEnd Sub
这是宏录制的，插入圆孔就失败，没反应。求指教。
4 s/ x" S4 X6 q1 Q% x% N5 i) N/ ]3 S
9 W+ J& P. W- |9 ?

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不支援直徑符號吧!

# R$ ~9 \8 s$ `( h  Y2 k* o4 t
' M9 h- r" W  z9 X' ~5 Q
4 c1 O5 l! d. g1 p5 u

05358

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

05358

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