关于catia的自动标题栏

我做的这个标题栏除了不能实现材料和版本自动填充外其余常用的都可以实现，由于不知道调用Revision和Nomenclature两个函数的方式，一直不能实现材料和版本的自动填写。如果有哪位高手有空的话请指点一下俺们这个菜鸟。谢谢。

另：关于明细栏的高手也希望能指点俺们一二。

谢谢！

上传附件仅为交流学习之用，是在CATIA自身的基础上改过来的。


交流：MSN: Email：mervynyilan@hotmail.com

CATIA.SystemConfiguration.Release
CATIA.SystemConfiguration.ServicePack
CATIA.SystemConfiguration.Version
以上是关于CATIA的版本信息
材料的问题,可以通过在3D文件中查找Material这个参数来确定

[ 本帖最后由 amdufhvk 于 2007-1-25 08:14 编辑 ]

amdufhvk :
     
   非常感谢。不过我需要的是标题栏内的自动调用，是调用part或asm文件的properties---product下面的Revision和Nomenclature。
   另：我非常想知道如何调用该项下的自定义项，如质量，密度等

谢谢。

我在北京，电话：13683521365，有机会向你请教。

1\参照CATIA自带的图框,获取与2D图关联的3D文件
2\直接调用文档的属性就可以了

amdufhvk :

   我是郁闷透顶，也许是走入了死胡同，怎么也出不来结果。

老兄，帮忙搞定吧：标题栏内自动调用part或asm文件的properties---product下面的Revision和Nomenclature。

先谢谢了。

很简单的东西，感觉没什么问题呀
'DRWDoc 为工程图文档
'由工程图文档的Front View,获取3D文挡
Dim LinkedDoc As Document
Set LinkedDoc = DRWDoc.Sheets.ActiveSheet.Views.Item("Front view").GenerativeBehavior.Document
'一定要注意"Front view"这个名字要和工程图中的一致
'弹出对话框,显示Revision
MsgBox LinkedDoc.ReferenceProduct.Revision
'其他自定义的属性
MsgBox LinkedDoc.ReferenceProduct.UserRefProperties.Item("ProName").Value

[ 本帖最后由 amdufhvk 于 2007-1-25 09:02 编辑 ]

楼上的朋友,有没有这方面的资料可以共享?
我对CAA也很有兴趣.

我也想知道更多些东东。

这个太难 了我做了2天还没搞定呢

用这个可以调用自带属性，前提是你自己填写内容
Texts.GetItem("TitleBlock_Text_零件编号").Text  = ProductDrawn.PartNumber
Texts.GetItem("TitleBlock_Text_版次").Text  = ProductDrawn.Revision
Texts.GetItem("TitleBlock_Text_图样名称").Text  = ProductDrawn.Definition
Texts.GetItem("TitleBlock_Text_描述").Text  = ProductDrawn.DescriptionRef

用下面这个可以调用已添加的自定义属性
Texts.GetItem("TitleBlock_Text_表处值").Text  = ProductDrawn.ReferenceProduct.UserRefProperties.Item("表面处理").Value
Texts.GetItem("TitleBlock_Text_材料标记").Text  = ProductDrawn.ReferenceProduct.UserRefProperties.Item("材料").Value
材料的调用方法比较笨，我是用公式，将材料链接到上面去。