iCAx开思网

标题: 摘要信息的宏 [打印本页]

作者: de0830 时间: 2019-11-20 21:07
标题: 摘要信息的宏
[attach]1269475[/attach]请教歖的如何在摘要里面用宏输入信息。我试了一下不能录制。感谢大家的不吝赐教。谢谢

作者: 甄云竹 时间: 2019-11-21 12:52
API帮助里有现成的代码

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModel.SummaryInfo(swSumInfoTitle) = "标题"
swModel.SummaryInfo(swSumInfoSubject) = "主题"
swModel.SummaryInfo(swSumInfoAuthor) = "作者"
swModel.SummaryInfo(swSumInfoKeywords) = "关键字"
swModel.SummaryInfo(swSumInfoComment) = "备注"
End Sub

复制代码

作者: pyczt 时间: 2019-11-21 14:16
使用英文菜单后,就知道关键词,再在API帮助中搜索关键词

作者: de0830 时间: 2019-11-22 22:21
本帖最后由 de0830 于 2019-11-22 22:25 编辑

感谢大家的的热心支持！！！下面的两个图能提供一下宏代码吗？谢谢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)

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

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

作者: de0830 时间: 2019-11-24 10:15

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

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

作者: ningxin4567 时间: 2019-11-24 13:15

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

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

作者: scattie 时间: 2019-11-25 10:28
来学习学习

作者: jyzas 时间: 2020-11-17 09:24

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

谢谢分享

欢迎光临 iCAx开思网 (https://www.icax.org/)