《求助》工程图名称批量修改办法

ziqing

有没有办法将工程图下面的“图纸1”批量更改为零件的代号和名称。

solo_1985

批量改的话，肯定需要编程实现

ziqing

solo_1985 发表于 2018-5-23 12:24
批量改的话，肯定需要编程实现

我主要是不知道怎么用VBA把工程图里面的模型的属性提取出来。

ooxxcc06066

很不错，顶一下！楼主太有才了，膜拜中……

xtlixk

   经典案例图书

肯定可以改，只是我不会。我只会把模型转工程图时直接把图纸名字设出来，用如下的语句

  retval = mydraw.NewSheet3(“你要取的名字”, papersize, papersize, scalenum, sacledenom, True, templatename, 0#, 0#, "")

suzhanpeng

如果不打开零件图，只打开工程图那么就用
FilesName = swApp.ActiveDoc.GetTitle()
'FilesName获取的是工程图的名称 例如：1803G-MTKCC1立板 - 图纸1
'那么用字符串分割函数可以把FilesName后面的字符串“ - 图纸1”去掉就可以得到你需要的“1803G-MTKCC1立板 “ 然后用
Dim myDrawingSheet As Object
Set myDrawingSheet = Part.GetCurrentSheet()
myDrawingSheet.SetName FilesName '这里的FilesName是你分割后获取的字符串
如果要批量处理就遍历装配体，获取零部件名称后判断有没有工程图，如果工程图存在，就提取零部件的代号和名称，然后组合 代号+名称
Dim myDrawingSheet As Object
Set myDrawingSheet = Part.GetCurrentSheet()
myDrawingSheet.SetName 代号+名称
获取零件代号和名称的方法
零件代号 = swParts.CustomInfo2("", "代号")
零件名称 = swParts.CustomInfo2("", "名称")

ziqing

   经典案例图书

xtlixk 发表于 2018-6-3 10:11
肯定可以改，只是我不会。我只会把模型转工程图时直接把图纸名字设出来，用如下的语句

  retval = mydra ...

谢谢你，一边新建的时候会是图纸1，所以我想工程图完成之后做一个批量更改的小程序。

ziqing

suzhanpeng 发表于 2018-6-9 16:36
如果不打开零件图，只打开工程图那么就用
FilesName = swApp.ActiveDoc.GetTitle()
'FilesName获取的是工 ...

首先十分感谢您的回复
第一种方法，FilesName = swApp.ActiveDoc.GetTitle() 得到的是文件名称和图纸名称。如果一个零件存在多种配置，这样是无法提取出每个配置对用工程图的名称的。
第二种方法也存在一格模型中两个配置无法读取出单独每一个配置模型里面的“名称”和“代号”

我的想法是有没有办法直接在工程图中读取投影模型的属性信息。这样保证工程图和模型配置一一对应。

ziqing

suzhanpeng 发表于 2018-6-9 16:36
如果不打开零件图，只打开工程图那么就用
FilesName = swApp.ActiveDoc.GetTitle()
'FilesName获取的是工 ...

我现在采用的方法有点笨 但是还勉强能实现。因为我工程图模板是固定的，填写代号和名称的位置是基本固定的，偏历工程图中所有的注释，判断其位置，通过位置来确认哪个注释是“代号”和“名称”。得到“名称”和“代号”之后再将工程图重新命名。

suzhanpeng

ziqing 发表于 2018-6-11 06:30
我现在采用的方法有点笨 但是还勉强能实现。因为我工程图模板是固定的，填写代号和名称的位置是基本固定 ...

你采用的方法我考虑过，但考虑到每个人用的模板都不太一样，出来的程序不能通用，就放弃了这个想法。
再就是提取配置属性的问题，建议您把您所有图形文件的配置先统一，别搞多个配置，那样不方便图纸管理。

zhangcan0515

这样的是嘛

小豆芽疯回路转

很不错，顶一下！

无心快语

好东西，努力学习学习！

阿斯蒂芬0

SW机械工程师网，找到组织了！