24小时热门版块排行榜

>论坛更新日志 (4130)
>虫友互识 (954)
>导师招生 (172)
>论文投稿 (162)
>文献求助 (157)
>休闲灌水 (98)
>硕博家园 (91)
>考博 (78)
>博后之家 (72)
>招聘信息布告栏 (62)
>论文道贺祈福 (60)
>教师之家 (54)
>基金申请 (50)
>公派出国 (49)
>考研 (36)
>找工作 (26)

返回列表

2457

铁虫 (小有名气)

应助: 0 (幼儿园)
金币: 88.6
红花: 1
帖子: 60
在线: 23小时
虫号: 2627123
注册: 2013-08-31
性别: MM
专业: 机械动力学

[求助] solidworks宏录制后，重新导入不能出现图形

我首先在画图形的时候录制宏，然后将画好的图形删了，导入录制的宏命令，但是没有图形出现，请问是怎么回事呢？

录制的宏命令如下所示：
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
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateLine(-0#, 0#, 0#, -0.018114, -0.032835, 0#)
Part.SetPickMode
Part.ClearSelection2 True
Part.ShowNamedView2 "*上视", 5
Set skSegment = Part.SketchManager.CreateLine(-0.018114, -0.032835, 0#, -0.028384, -0.05145, 0#)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0.025414417427028, 0.1575, -4.60516887211554E-02, False, 0, Nothing, 0)
Set skSegment = Part.SketchManager.CreateLine(-0.018114, -0.032835, 0#, -0.013879, -0.025157, 0#)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 1.12740648736442E-02, 0.759999999999991, -2.10194429847639E-02, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 1.52868676252802E-02, 0.759999999999991, -2.75163617255078E-02, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
End Sub

局部放大图.jpg