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

05358

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
2 |( Y2 Z5 ^4 d6 ~
Set swApp = _
Application.SldWorks
* n% E; O8 ?5 i. a
# k% C4 o7 X. d! C: d# s& nSet Part = swApp.ActiveDoc
3 u8 e8 p: U) P" S- Z9 s'boolstatus = Part.Extension.SelectByID2("", "FACE", -4.09635667216303E-02, 0.52721597004032, 0, False, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("", "FACE", -0.047664725287281, 2.69596543749078E-02, 0, False, 0, Nothing, 0)


. {! \# _1 d+ \% CDim myFeature As Object
6 X7 u, ~) y: o* w5 q7 g3 ^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)
- _& B) n" C) a1 A'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
这是宏录制的，插入圆孔就失败，没反应。求指教。
, f% g6 j7 N4 D
6 \5 i$ [  j/ F+ @  R

ryouss

錄宏測試用鉆孔的鉆孔尺寸,是執行無效,但如下改成 鉆孔的螺孔鉆(螺絲孔的底徑)就可以,難道API沒支援"鉆孔尺寸"的代碼真不明白.
0 ?" d& R- ~) {6 Z- ~/ k
) t. i$ G# C1 C( 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不支援直徑符號吧!


! `8 w/ S. K" N
$ N3 w$ h: e- j$ p

05358

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

05358

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