|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
+ d. U5 g% ~" Z- ?5 B/ m% I
SolidWorks 基于vb开发时 我要进行插入一个基准面，但是到了红色的那行就出现这种错误，请都来看看，这是为什么？如何实现自动插入基准面？" L1 Y& H9 `, d3 T2 ?+ ~' I4 ^
Sub main()5 h0 F& G! b( p
1 H5 J4 |. V* U+ L U* e. tSet swApp = Application.SldWorks
! n' x9 |# [# S. k* W( ^8 U1 T: w
, q, Q* F: C) X3 J9 ASet Part = swApp.ActiveDoc3 L) _9 ?' k; p. H0 ?
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayTemporaryAxes, True)
+ j) m5 n" T% p1 b l1 ^boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
" L* V8 p) V* Q5 h/ u8 i' j( _ P. Yboolstatus = Part.Extension.SelectByID2("", "AXIS", -6.519065563976E-04, 0.00908716626584, -0.001047656130313, True, 1, Nothing, 0)
" b2 p% @% `; R' y! L! VDim myRefPlane As Object
# k% R& B* R% xSet myRefPlane = Part.FeatureManager.InsertRefPlane(16, 1.396263401595, 4, 0, 0, 0)9 W3 N' O9 F$ D1 i/ d: q1 w- j: e. j
Part.ClearSelection2 True9 o; E a* G Q2 k
End Sub
+ Y. V1 f- ^3 \2 F% m" ~) v3 R1 M# t d' B
|
|
发表于 2013-8-12 20:32:27