24小时热门版块排行榜    

查看: 1203  |  回复: 3
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

2457

铁虫 (小有名气)

[求助] 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

solidworks宏录制后,重新导入不能出现图形
局部放大图.jpg


solidworks宏录制后,重新导入不能出现图形-1
全图.jpg
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

2457

铁虫 (小有名气)

引用回帖:
2楼: Originally posted by 小范bairoe at 2015-01-26 15:02:16
直接做不行吗?
看看程序有没有问题,txt文件

直接做是可以的,但是我是想对结构进行优化设计,所以先把原结构的程序导出来,然后在此基础上修改程序。
我看了,也重复试了很多次,但是不行
3楼2015-01-27 10:59:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

小范bairoe

木虫 (文坛精英)

应力腐蚀,SSCC(CT试样)DCP

直接做不行吗?
看看程序有没有问题,txt文件
2楼2015-01-26 15:02:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小范bairoe

木虫 (文坛精英)

应力腐蚀,SSCC(CT试样)DCP

引用回帖:
3楼: Originally posted by 2457 at 2015-01-27 10:59:27
直接做是可以的,但是我是想对结构进行优化设计,所以先把原结构的程序导出来,然后在此基础上修改程序。
我看了,也重复试了很多次,但是不行...

没做过宏程序,不是很懂
4楼2015-01-27 11:06:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见