【转帖】使用VB在Pro/E中自动创建制图标注

　　现在已是使用塑性零件的时代，所以一个制图标注与另一个制图标注之间的差别非常小。所不一样的可能是材料、颜色、表面粗糙、UL标称值、零件标识符、圆角半径以及倾斜角。  
一种处理这种情况的方法是：建立一些文本文件，其中包含了可变的标准标注。用户可以把文本文件读进制图中，然后对相应的信息进行修改。但是，用户可能会拼错其中一个词、输入不正确的数据或者忘记更改其中一项，这个操作就会产生错误。  
为了解决这些问题，我们使用流行的编程语言，开发了一种自动创建制图标注的工具。我们用VB建立了一个图形用户界面（GUI），可以在Pro/ENGINEER中直接调用它，并能让用户为大部分数据建立简单的下拉式菜单选项，对于其他的则直接输入文本。这种创建标注的界面被称为ProNotes。  
下拉式菜单中预定义选项的信息被储存在一个文本文件中，程序启动时会读取该文件。用户界面上的每个条目，作为下拉式菜单的一部分，以下列格式被储存在文本文件中：  
UL  
94V-0  
94V-1  
94V-2  
94-HB  
ENDUL  
开始和结束标识符（UL和ENDUL），确定了每个类型，用户不用重新编写程序，即可在任何时候添加项目。用户选中适当的选项并选择Create Note File（创建标注文件）按钮后，在当前的工作目录中就会自动创建一个文本文件。接着，这一文件的内容就以制图格式被添加到制图的相应位置上。  
现在ProNotes有一个局限：如果需要修改标注时，就不能使用ProNotes。在这种情况下，用户必须用手工修改文本，或者删除标注，并再次运行该程序。尽管如此，我们仍然成功地使用这种方法，使用户输入最少的项在制图上创建没有错误的、位置固定的标注。  
1.用VB编写的Pronotes程序  
2.以下为公用config.pro文件中的项目：  
MAPKEY pronotes \  
@MAPKEY_NAME Pronotes;  
@MAPKEY_LABEL Run Pronotes; \  
@SYSTEM pronotes;  
使用@SYSTEM命令的前提条件是要先定义一个PATH变量，以便使系统能够自动找到ProNotes程序。也可以使用完整的路径@SYSTEM C:\somedir\pronotes。其中的mapkey启动ProNotes程序。  
3.以下为公用Menu_def.pro文件中的项目：  
@setbutton DETAIL#ITEM ProNotes \  
"% pronotes: #detail; #Create;  
#Note; #No Leader; \  
#File; #Horizontal; \  
#Standard; #Left; #Make Note;  
#Abs cords; 26.6; 20.8; \  
#TEMPNOTE.TXT; #Done\Return;  
#Dona\Return;"\  
"Start ProNotes utility"  
这一项目在DETAIL ITEM（详细条目）菜单中增加了ProNotes选项。当用户在制图模式中选择Create（建立）选项，就会显示出这一菜单。当选中ProNotes选项时，系统会通过上述的mapkey自动运行ProNotes Visual Basic程序。接着执行Pro/ENGINEER菜单条目，从ProNotes程序建立的临时文本文件中创建制图标注。  
  

我都已经转贴了好几篇文章，看在辛苦的份上，斑竹也应该给我加分了吧？
  
OK!  --darkhorse