应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 机械 » CAD/CAM » solidworks宏录制后，重新导入不能出现图形
41/1返回列表
查看: 1290  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2015-01-26 14:50:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小范bairoe

木虫 (文坛精英)

应力腐蚀,SSCC（CT试样）DCP
直接做不行吗？
看看程序有没有问题，txt文件
赞一下 回复此楼
2楼2015-01-26 15:02:16
已阅   回复此楼   关注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的回帖

小范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的回帖
相关版块跳转 我要订阅楼主 2457 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿天津大学化学工艺专业（081702）315分求调剂 +7 yangfz 2026-03-17 7/350 2026-03-17 23:57 by 星空星月
[考研] 328求调剂，英语六级551，有科研经历 +3 生物工程调剂 2026-03-16 8/400 2026-03-17 19:03 by Wangjingyue
[考研] 308求调剂 +4 是Lupa啊 2026-03-16 4/200 2026-03-17 17:12 by ruiyingmiao
[考研] 化学工程321分求调剂 +11 大米饭！ 2026-03-15 14/700 2026-03-17 17:11 by ruiyingmiao
[考研] 332求调剂 +6 Zz版 2026-03-13 6/300 2026-03-17 17:03 by ruiyingmiao
[考研] 考研调剂 +3 淇ya_~ 2026-03-17 5/250 2026-03-17 09:25 by Winj1e
[考研] 一志愿985，本科211，0817化学工程与技术319求调剂 +5 Liwangman 2026-03-15 5/250 2026-03-16 17:10 by 我的船我的海
[考研] 277材料科学与工程080500求调剂 +3 自由煎饼果子 2026-03-16 3/150 2026-03-16 14:10 by 运气yunqi
[考研] 289求调剂 +4 这么名字咋样 2026-03-14 6/300 2026-03-14 18:58 by userper
[考研] 255求调剂 +3 李嘉慧， 2026-03-12 4/200 2026-03-14 16:58 by 有只狸奴
[考研] 328求调剂 +3 5201314Lsy！ 2026-03-13 6/300 2026-03-14 15:31 by hyswxzs
[考研] 材料080500调剂求收留 +3 一颗meteor 2026-03-13 3/150 2026-03-14 10:54 by peike
[考研] 求材料调剂 +5 隔壁陈先生 2026-03-12 5/250 2026-03-13 22:03 by 星空星月
[考研] 304求调剂 +7 7712b 2026-03-13 7/350 2026-03-13 21:42 by peike
[考研] 315求调剂 +9 小羊小羊_ 2026-03-11 10/500 2026-03-13 21:13 by SXNU李老师
[考研] 0703化学求调剂 +7 绿豆芹菜汤 2026-03-12 7/350 2026-03-13 17:25 by njzyff
[考研] 材料专硕350 求调剂 +4 王金科 2026-03-12 4/200 2026-03-13 16:02 by ruiyingmiao
[考研] 一志愿211化学学硕310分求调剂 +8 努力奋斗112 2026-03-12 9/450 2026-03-13 15:41 by JourneyLucky
[考研] 295求调剂 +3 小匕仔汁 2026-03-12 3/150 2026-03-13 15:17 by vgtyfty
[考研] 277求调剂 +4 anchor17 2026-03-12 4/200 2026-03-13 11:15 by 白夜悠长
信息提示
关闭
请填处理意见
关闭