|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
Sub main()
1 e2 J4 J* |# i* n
' c7 ^9 I3 E' `( f, J# ^Set swApp = Application.SldWorks
5 O. M2 B- N2 n* ^7 c f % _) {, c7 R3 h7 o1 j4 s! f
Set Part = swApp.ActiveDoc* N X! p! p. h( Y9 F2 e) G5 x
boolstatus = Part.Extension.SelectByID2("右视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)7 |5 v% a0 w/ X: h: R5 y
Part.ClearSelection2 True% Y: Y# z* a: F+ ^
Dim skSegment As Object
% L; U9 @" s; W0 r5 n0 FSet skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.01, 0, 0#)
% W- a, r6 N& H. hPart.ClearSelection2 True2 z0 P9 x6 x8 ~# x1 c
Part.SketchManager.InsertSketch True
/ o- v+ O9 j& ^, A8 jEnd Sub1 _& X& o0 V7 V* j4 F
为什么代码中选择了右视基准面，执行宏之后画出的圆依然在前视基准面上，如果要画在右视基准面上应该怎样写源代码 |
|
发表于 2011-4-30 15:48:53
楼主