|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
Sub main()
" c) j' G! i' k3 O9 m 7 I& t0 [% V) J# i! V t1 B
Set swApp = Application.SldWorks
8 G3 O* R% c; N, A: E) D
1 y8 X2 o( ]$ s0 Y0 iSet Part = swApp.ActiveDoc4 j* f1 R, G. F% m: l& m, q9 d
boolstatus = Part.Extension.SelectByID2("右视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
* j( H ]' [; R+ \. |Part.ClearSelection2 True9 h0 f9 Y1 r0 ~ J4 }
Dim skSegment As Object; b- i, e" ?( G k* Z
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.01, 0, 0#)
' c$ p5 s7 | y: a2 c; EPart.ClearSelection2 True0 I: o6 e; Z0 G3 W, q, I
Part.SketchManager.InsertSketch True
# O- \/ T* v% t9 XEnd Sub
" G5 j0 U, @* {3 A$ F' K为什么代码中选择了右视基准面，执行宏之后画出的圆依然在前视基准面上，如果要画在右视基准面上应该怎样写源代码 |
|
发表于 2011-4-30 15:48:53
楼主