SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 菜鸟紧急求助高手，关于开发solidworks标准件库的，快请进 [打印本页]

作者: justin_hepec 时间: 2005-6-6 20:06
标题: 菜鸟紧急求助高手，关于开发solidworks标准件库的，快请进
高手大哥，这关系到我的毕业设计，如果您知道，请务必帮我啊！
我开发标准件库，
但老师要求我在每用程序画完一个标准件时，如螺母
它的属性--->摘要信息里面要自动存在如下信息
备注
代号
名称
数量
材料
请问该怎么实现？？？？？？？

作者: sdafdfdsf 时间: 2005-6-7 10:03
去三维空间看cadtools老大的程序
下面是个例子

Public Sub writeitem()
On Error Resume Next
Dim configname As String
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc

FileName = swModel.GetTitle()
filepath = swModel.GetPathName()
Set CurCFG = swModel.GetActiveConfiguration()
configname = CurCFG.name
retval = swModel.DeleteCustomInfo2("", "规格")
‘retval = swModel.DeleteCustomInfo2(configname, "规格")
retval = swModel.AddCustomInfo3(configname, "规格", swCustomInfoText, Text1.Text)

End Sub

这是自定义的属性，对于内置的属性字段直接使用CustomInfo2对象实现

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)