- UID
- 96545
- 好友
注册时间2011-10-25
威望值 点
最后登录1970-1-1
激情值 点
积分10
认证分 分
齿轮币 枚
回帖0
|
本帖子中包含更多资源。
您需要 登录 才可以下载或查看,没有账号?注册
x
本人现做SW的宏二次开发,遇到如下问题不能解决:
如何在同一个平面内完成一幅草图后退出,又重复在该平面上画出另一幅草图?
具体如图:
在选择矩形实体平面完成草图42并退出的情况下,又在该矩形实体平面完成草图44?
宏如下:(如何让第二段红色标注的SelectByID2复制第一段SelectByID2的内容?)
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("", "FACE", 5.38182960311673E-02, 4.04496913331087E-02, 9.99999999993406E-03, False, 0, Nothing, 0) ’选择矩形平面Part.SketchManager.InsertSketch True
Dim vSkLines As Variant
vSkLines = Part.SketchManager.CreateCornerRectangle(6.39699101702149E-02, 3.25491177380428E-02, 0, 8.72770337929865E-02, 1.64175388973291E-02, 0) ‘画出草图42
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True ’退出草图
boolstatus = Part.Extension.SelectByID2("", "FACE", 2.88455184873158E-02, 4.80236397692408E-02, 9.99999999987722E-03, False, 0, Nothing, 0) ’选择同一个矩形平面Part.SketchManager.InsertSketch True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0.029503, 0.038117, 0#, 0.039606, 0.044338, 0#) ‘画出草图44
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
End Sub |
-
|