GB Titleblock 图纸标题栏工具

dayibalang01

通知！！！
此工具由于拿vb6.0做的，在很多电脑上运行都会出现“unexpected error”或“未预知错误”。
现已用vb.net重新编译，并整理到工具集中，请大家移步↓
https://www.icax.org/thread-1151742-1-1.html



大家好！初来乍到，第一次发帖，给大家分享一下自己制作的图纸标题栏小工具~
本人小狼，百度贴吧ID 龙腾雨霁，为微信公众号“CATIA那点事儿”的主编。

本工具先后使用过VBScript，VBA开发，经几次改良后，此次为VB制作的.exe可执行程序，免去了VBS无界面、VBA需要加载的问题。

下图就是小工具的主界面啦！


接下来，LZ来简单介绍一下小工具的使用方法！

首先，当我们CATIA打开的文档为Part或者Product时，单击Modify 3D Properties，会出现如下提示↓


此时我们在特征树上选择零件或产品，就可以对其添加自定义属性。因此工具目前仅作为Demo版，因此并未设置太多自定义属性↓


填写之后，点击Apply按钮，信息即保存在了3D数据中。信息保存的形式为零件的附加属性↓


我们新建一张图纸，并用刚才的3D数据投一个视图出来↓


此时，这张图纸已经和3D数据发生了关联。我们直接点击小工具主界面的Create Titleblock按钮↓


可以快速根据当前图幅大小，创建标题栏。且，会根据当前图纸链接的3D数据，将3D中的属性信息继承过来。并且，设计者和日期处会自动获取计算机用户名及系统信息↓


Delete Titleblock按钮就是将当前的图框删除，这个没什么需要解释的↓


当图纸中存在标题栏的情况下，我们点击Edit Titleblock Info按钮↓


可以打开标题栏编辑界面↓


里面可强制单独修改标题栏中各项的内容。值得一提的是，如果图纸图幅发生了变化，如A0变成了A1，可以直接使用Update功能让图框适应新图幅。

点击EditList按钮，可以打开用于总成图的明细栏编辑界面↓


编辑界面此处调用了计算机中的Excel，在对应的列下面编辑信息即可↓


当处在编辑List状态时，原来的EditList按钮会变成Close Edit按钮↓


点击此按钮，Excel中的信息即写入到图纸中↓


基本的功能就这些啦~
由于之前为VBA，移植到VB过程中难免有一些问题没有注意到，请各位多多指导！

dayibalang01

dayibalang01

dulin750

秦长城

dayibalang01

gxjwbd

xianbingwu

nihao123

vincentzhu