|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
9 n& M' L/ W8 k+ ^; l
SolidWorks 基于vb开发时 我要进行插入一个基准面，但是到了红色的那行就出现这种错误，请都来看看，这是为什么？如何实现自动插入基准面？
8 t7 ?9 ]" z7 s, W: }Sub main()
q5 @$ U' {" e
( _7 s/ O8 E/ H" ZSet swApp = Application.SldWorks, O+ p0 @+ n) p( }$ g7 Y
" g7 p4 o" e- @& N0 B! `# w5 I- lSet Part = swApp.ActiveDoc( \' s4 E- k0 v
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDisplayTemporaryAxes, True)
( g" E9 z& h$ v1 Z9 sboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, True, 0, Nothing, 0)# Q$ j# P# s8 t* q$ T8 @5 ^5 N
boolstatus = Part.Extension.SelectByID2("", "AXIS", -6.519065563976E-04, 0.00908716626584, -0.001047656130313, True, 1, Nothing, 0). b$ s! G4 K( M; n! n& u
Dim myRefPlane As Object
w3 I6 q3 S3 lSet myRefPlane = Part.FeatureManager.InsertRefPlane(16, 1.396263401595, 4, 0, 0, 0)/ L* t& a. h" p' I3 L7 G
Part.ClearSelection2 True8 N/ v$ t8 t8 l7 J% M* h2 G
End Sub
6 X7 H- A9 N/ K5 |6 L7 p2 o" L+ {6 i) ~ T1 y+ q
|
|
发表于 2013-8-12 20:32:27