标题: 明细表中的单件重量 [打印本页] 作者: 雨涵 时间: 2008-9-3 17:15 标题: 明细表中的单件重量 请问各们大侠，怎么实现在明细表中单件重量的自动生成？作者: weichangjian 时间: 2008-9-3 20:15 标题: 看看这样 行吧 新建一个空白文本文件，把下面的内容复制进去
Public Function CalMass(ByVal Density As Double) as double
Set SEApp=GetObject(,"Solidedge.Application")
Set doc=SEApp.ActiveDocument
Set body =Doc.Models(1).body
vol=body.Volume
CalMass=vol*Density
End Function
然后保存，把文件的扩展名改为bas。
打开一个零件，在变量表中添加一个变量mass，在公式一栏中选择函数，再选择Visual Basic，在对话框中指定刚才保存的文件。单击下一步，会让你填入参数，填入变量表中的密度变量名，然后结束。在mass的前面打上钩，让他在文件属性的自定义中出现。然后，再把后面的显示名称改为单重。OK，把这个文件保存成模版。以后就可以用了。作者: 雨涵 时间: 2008-9-4 09:02
我试过啦，可以当我选择保存后的这个文件时，会提示“”没有函数被选定“是怎么回事？能不能再讲的详细一点呀，谢谢！！