摘要信息的宏

请教歖的如何在摘要里面用宏输入信息。我试了一下不能录制。感谢大家的不吝赐教。谢谢

API帮助里有现成的代码

1. Dim swApp As SldWorks.SldWorks
   
2. Dim swModel As SldWorks.ModelDoc2
   
3. Sub main()
   
4.     Set swApp = Application.SldWorks
   
5.     Set swModel = swApp.ActiveDoc
   
6.     swModel.SummaryInfo(swSumInfoTitle) = "标题"
   
7.     swModel.SummaryInfo(swSumInfoSubject) = "主题"
   
8.     swModel.SummaryInfo(swSumInfoAuthor) = "作者"
   
9.     swModel.SummaryInfo(swSumInfoKeywords) = "关键字"
   
10.     swModel.SummaryInfo(swSumInfoComment) = "备注"
    
11. End Sub

复制代码

使用英文菜单后,就知道关键词,再在API帮助中搜索关键词

感谢大家的的热心支持！！！下面的两个图能提供一下宏代码吗？谢谢Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Z轴气缸座底板H-1@06.固定气缸Z轴A1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.CompConfigProperties4(2, 0, True, True, True, False)
boolstatus = Part.EditRebuild3()
boolstatus = Part.Extension.SelectByID2("Z轴气缸连接板-1@06.固定气缸Z轴A1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.CompConfigProperties4(2, 0, True, True, False, False)

我觉得你真的需要亲自尝试一下3楼教的在“API帮助”中找答案的方法，你要的东西“API帮助”里面基本都有。

遇到问题不自己先去找方法，老是这么伸手白要，我个人觉得挺讨嫌。

甄云竹 发表于 2019-11-23 09:32
我觉得你真的需要亲自尝试一下3楼教的在“API帮助”中找答案的方法，你要的东西“API帮助”里面基本都有。
...

谢谢你的教导。鄙人没有系统的学习过编程，能力有限。对于录制宏可以使用的，我还有稍微有点组合能力。其他的真心看不懂。我个人觉得只是为了满足我工作需要。减轻劳动负荷。如果我的能力到了自己能解决问题了，我有何必再次发帖。麻烦大家，惹人厌。

de0830 发表于 2019-11-24 10:15
谢谢你的教导。鄙人没有系统的学习过编程，能力有限。对于录制宏可以使用的，我还有稍微有点组合能力。其 ...

。。。。。。。。。。。。。。。。。。。。。。。。

来学习学习

甄云竹 发表于 2019-11-21 12:52
API帮助里有现成的代码

谢谢分享