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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 机械 » CAD/CAM » solidworks宏录制后，重新导入不能出现图形
41/1返回列表
查看: 1288  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 311求调剂 +8 冬十三 2026-03-15 8/400 2026-03-17 16:59 by ruiyingmiao
[考研] 26考研求调剂 +6 丶宏Sir 2026-03-13 6/300 2026-03-17 16:13 by 醉在风里
[考研] 求调剂，总分315，考的生物医药，一志愿湖南师范大学。调剂到任何专业都可以 +4 小丁想进步 2026-03-11 5/250 2026-03-17 16:05 by 外星文明
[论文投稿] 有没有大佬发小论文能带我个二作 +3 增锐漏人 2026-03-17 4/200 2026-03-17 09:26 by xs74101122
[考研] 274求调剂 +5 时间点 2026-03-13 5/250 2026-03-17 07:34 by 热情沙漠
[文学芳草园] 伙伴们，祝我生日快乐吧 +17 myrtle 2026-03-10 26/1300 2026-03-16 18:32 by 青橙Ln
[考研] 环境工程调剂 +6 大可digkids 2026-03-16 6/300 2026-03-16 17:16 by barlinike
[考研] 085600调剂 +5 漾漾123sun 2026-03-12 6/300 2026-03-16 15:58 by 漾漾123sun
[考研] 0856专硕279求调剂 +5 加油加油！? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
[考研] 中科大材料专硕319求调剂 +3 孟鑫材料 2026-03-13 3/150 2026-03-14 18:10 by houyaoxu
[考研] 297一志愿上交085600求调剂 +5 指尖八千里 2026-03-14 5/250 2026-03-14 17:26 by a不易
[考研] 279求调剂 +3 抓着星星的女孩 2026-03-10 3/150 2026-03-13 23:47 by userper
[考研] 341求调剂 +4 番茄头--- 2026-03-10 4/200 2026-03-13 23:12 by JourneyLucky
[考研] 0703，333分求调剂 一志愿郑州大学-物理化学 +3 李魔女斗篷 2026-03-11 3/150 2026-03-13 22:24 by JourneyLucky
[考研] 290求调剂 +9 ADT 2026-03-11 9/450 2026-03-13 21:55 by JourneyLucky
[考研] 材料与化工085600调剂求老师收留 +9 jiaanl 2026-03-11 9/450 2026-03-13 20:22 by JourneyLucky
[考研] 材料工程调剂 +4 咪咪空空 2026-03-11 4/200 2026-03-13 19:57 by JourneyLucky
[考研] 0703化学求调剂 +7 绿豆芹菜汤 2026-03-12 7/350 2026-03-13 17:25 by njzyff
[考研] 274求调剂 +3 S.H1 2026-03-12 3/150 2026-03-13 15:15 by JourneyLucky
[考研] 321求调剂（食品/专硕） +3 xc321 2026-03-12 6/300 2026-03-13 08:45 by xc321
信息提示
关闭
请填处理意见
关闭