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

05358

Dim swApp As Object
2 @6 S5 D* n6 X$ e6 p' F1 F
4 {4 W! u3 L; K; P" u% fDim Part As Object
Dim boolstatus As Boolean
& q/ d( j; O0 m& T; ?( H' `Dim longstatus As Long, longwarnings As Long
5 {. x. H& l# `+ t$ [+ b" w
Sub main()
( ?4 P6 W9 l  ?- U5 O
Set swApp = _
/ s& K5 |: T! TApplication.SldWorks
' K  I$ p5 w; \! l
1 x! a7 p, z3 o/ TSet Part = swApp.ActiveDoc
/ d4 s, J4 ^( m: q! h2 k8 s'boolstatus = Part.Extension.SelectByID2("", "FACE", -4.09635667216303E-02, 0.52721597004032, 0, False, 0, Nothing, 0)
$ P7 `+ J% g+ C0 x
& T3 t5 I2 K, S; j# Pboolstatus = Part.Extension.SelectByID2("", "FACE", -0.047664725287281, 2.69596543749078E-02, 0, False, 0, Nothing, 0)

" R$ Q* Q& F  @- j' h
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)

8 g% b( B9 h, H( \  QEnd Sub
7 w0 y- L$ e! Z  @5 B' @( p: ~: |1 e这是宏录制的，插入圆孔就失败，没反应。求指教。
8 i/ ]' j  y2 A
* S2 P2 S# k- k& w

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不支援直徑符號吧!
" J$ w* d4 J6 S2 {4 I: p
' M! c/ c& f% g2 b/ j, B! b
  ]# m9 O8 f. d5 A, p$ c7 Q0 p

05358

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

05358

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