工程图（图纸）管理问题
作者：cad 提交日期：2008-11-22| 分类: | 访问量：
工程图（图纸）管理问题
零部件有BOM表明细表进行分类管理，但工程图好像还没有特定的统计分类管理，工程图才是设计最后出来的结果，最后打印成图纸的是由工程图打印得来。
我认为现在最需要的AIP应该设立一个像CAD中的图纸集的功能一样的管理程序，来管理一个项目中所有工程图（图纸）的分类，来进行合适的图号管理及分配。
而大伙是怎样管理的呢？比如现在出一个工程图，那你怎样可以很快地知道图号已经编到什么位置了？或者说图号有没有重复呢？全部工程图打印为图纸归档，你怎样打印出图纸清单？用EXCEL一个一个的打吗？
[ 此贴被wybwen在2006-11-17 12:52重新编辑 ]
我做了个工程图管理操作流程方案，当然这个要编程实现。
1、因为大多数工程图（90%以上），一个工程图只对应于一个零件图或部件图，相反地一个零件或部件亦只出一个工程图就够了，当然有例外，但只是小数。
2、工程图应该能够在脱离零部件时（当找不到或丢失零部件）还有完整的数据存在。
3、标题栏的内容填写或更改，只在工程图中就可解决，如改变材料、图号等，而无需进入零部件中更改。
4、现在AIP的工程图环境下能快速打开相关的零部件，而相反地应该在零部件下亦要能快速打开引用了该零部件的工程图。
5、工程图管理要做到清晰明白，快速查找，快速打开。
现只差工程图管理的数据库编程了。
to:fuzhan
2、inventor可以做到，论坛里有讨论，“完整的数据存在”倒未必，但应该够用了。
3、我认为这些信息应该还是保留在零部件中，工程图只起引用，不过在工程图中更改，应该是可行的，比如更改bom就可以（我经常这样编零部件代号）
4、可能有点困难。如同皇子都认识皇帝，皇帝未必认识所有皇子。不过还是应该能做到，比如在设计助理中就能找出来。
你在编这个程序？我等有不劳而获的福气么？
TO:lfpecker
这个程序的编写过程不是短时间可以完成，完成后还要进一步完善，进行各方面的测试，我自己要用一段时间，好不好用还不知道呢，，给个初始操作截图你看看，数据库编程还没有好，我是个编程自学者，没有人在旁教导，要走很多弯路，其中在工程图中更改材料的程序调用了另一个人编写的程序（作了更改），但我不知道他的名字。
1、是填写标题栏的操作界面，整个程序与它有关，可以选择是否把图号写进零部件的库存编号中，
其中的名称和图号数据是首先搜索工程图中有没有存在相关数据，有的话直接读取，如果没有的话就搜索零部件的代号和库存编号作为默认的名称和图号。
2、材料更改界面，在这里更改材料后，重量亦跟着改变。
3、所有工程图（图纸的查询），此步还未编好，可能要作大量更改。
4、填写好后，工程图中保存所有信息，而这些信息就是要写入数据库的资料，管理的就是这些了。
5、在零部件中回写入工程图路径，在打开该零部件时调用一个小程序就可方便打开相关工程图。
我再想想，看能否提出一些好建议。
我比较看重3。看你的贴图，好像是手工填写的项目树，太麻烦。
的确如此，目前只能想到图纸的管理用分类方法，我还没有想到更好的。
CAD中的图纸集功能都是分类管理的。
图片：
图纸明细.rar (5 K) 下载次数:18
to lfpecker：
你的提议很好，原来我也有想过用EXCEL管理的，但现已做了一半程序的编写了，让我写完再想想，如果写好了后可用的话，我会考虑编个小程序将数据库导出为像你现在这个EXCEL模板差不多的EXCEL文件，多谢你的提议。
只编写了一个框，又有紧张任务做了，我自己就这样先用着，其余的只有靠你自己了，我可没说对你一定有用啊，下了没用可别怪我。
因为VB与ADO的东西还第一次做，真是难着我，我以前学VS.NET写这些可没有这么烦。
还不知道会有什么错误没有，我已经将错误尽量减少了。
用这个程序可能会让你放弃一些常用的做法，但请帮忙试试。
inventor VBA.rar
不能正常使用时，请将引用中丢失的引用前的勾去掉即可。
2006-8-20记：看来不是太多人喜欢，今天已经编写好虚拟图纸的功能，并对某些地方进行改善，但不再更新论坛上的资料了，现只差打印这步了。
[ 此贴被fuzhan在2006-08-20 21:02重新编辑 ]
图片：
图片：
几点bug及对策：
1、VBA菜单：“工具”－“引用”，若有“丢失”，直接去掉对勾，如图1（该图已没有“丢失”）
2、aip项目设置：必须设定“工作空间”路径，如图2
3、代码有错：如下“错误处”
Public Sub Edit_Title() '编辑标题栏的宏
su5 = True
If ThisApplication.Documents.Count > 0 Then
Set oDoc = ThisApplication.ActiveDocument
If oDoc.DocumentType = kDrawingDocumentObject Then
If oDoc.ActiveSheet.DrawingViews.Count > 0 Then
Dim CMD_Scale As Double
Call hangmu
On Error Resume Next
Dim set1 As DAO.Recordset
Set set1 = cnn1.OpenRecordset("select mingchen,bienghao from lie where xuzhe = true", dbOpenDynaset)
If Err <> 0 Then
Err.Clear
End If
dingyi = set1(0)
integ = set1(1)
Set set2 = cnn1.OpenRecordset("select * from data where ID = " & integ & "", dbOpenDynaset)
Set set1 = cnn1.OpenRecordset("select mingchen from lie ", dbOpenDynaset)
set1.MoveLast
If Err <> 0 Then
Err.Clear
End If
Dim long1 As Long
long1 = set1.RecordCount
set1.MoveFirst
For i = 1 To long1
UserForm1.ComboBox1.AddItem set1(0)
set1.MoveNext
Next i
UserForm1.ComboBox1.Text = dingyi
Set set1 = Nothing
Dim prop1 As Property
Set AcDoc = oDoc.ReferencedFiles.Item(1) '.ReferencedDocuments.Item(1) Moddified by PK 该行有错，原为ReferencedDocuments.Item(1)
AcDoc.Update
On Error Resume Next
Set prop1 = oDoc.PropertySets.Item(4).Item("数量")
If Err <> 0 Then
Err.Clear
xuliang = ""
Set prop1 = oDoc.PropertySets.Item(4).Add(xuliang, "数量")
Else
xuliang = prop1.Value
End If
UserForm1.TextBox2.Text = xuliang
CMD_Scale = oDoc.ActiveSheet.DrawingViews.Item(1).Scale
If CMD_Scale >= 1 Then
bili = CMD_Scale & ":1"
Else
多谢lfpecker指点，可不可以有多几个人说说试用成什么样了。
lfpecker说的第一点是的，我在前面亦有说了。
第二点我自己用在多个项目下都无需设置工作空间的，就不知还有没有人试过，不设工作空间是否可以，lfpecker可否说说不设工作空间出现什么问题。
第三点在我这里没有问题，lfpecker又可否说说出现什么问题。
1、是否是你引用了水晶报表的控件，准备作下一步工作？
2、不设工作空间，下面代码
Sub hangmu()
On Error Resume Next
Dim fil1 As String
Dim opath, sf1, uf1, uf2, uf3, uf4 As String
Dim l1, fin1, fin2 As Integer
fil1 = ThisApplication.FileLocations.Workspace '该路径要出问题
uf1 = ThisApplication.FileLocations.FileLocationsFile
fin1 = Len(uf1)
For i = 1 To fin1
3、我是用的aip10，oDoc无ReferencedFiles
另外，你默认用库存编号作图号，零件代号作名称，而标准件（螺钉等）无库存编号，其名称在描述里，标准规格在零件代号里，那么在bom里，可能有问题。这是aip10，不知aip11如何。
关于bom，参见http://www.mjtd.com/bbs/dispbbs.asp?boardID=9&ID=50824&page=1
http://cad.sj992.com/read.php?tid=34469&keyword=，4楼
[ 此贴被lfpecker在2006-08-21 13:29重新编辑 ]
TO：lfpecker
1、我没有用其它控件，只是在编的时候想用ADO来编，选了很多引用都无法用上，最后只能用DAO，而我又没有取消那些没有用的引用，而勾选的引用可能在别的机子找不到出错。
2、我是在AIP11上编的，的确没有设置工作空间又可用，在我公司的另一台新装的AIP11上直接就可以用，也不需要设置工作空间，默认工作空间就是项目的根目录，这样没有什么不妥啊。
3、我查了一下我上传的文件，我用的是了ReferencedDocuments，没有用ReferencedFiles，这怎么回事。
你的建议有点道理，我的理解是：图号是指图纸（工程图）的存档号码，具有唯一性，而名称是指图纸（工程图）的名称，不具有唯一性，而两者与零部件图可以没有关系，而将图纸（工程图）的图号写入零部件的库存编号中或者描述中又或者是其它属性中，都只是一个目的，就是能够在出BOM表（明细表）的时候能清楚地知道那个零部件该用那个图纸（工程图）来加工。
所以如果按你的说法，将图纸（工程图的）图号写到零部件的描述中对于出BOM表更好的话，这点我不反对，要改这点也很简单，并且我自己会改用你的提议。但是应该还有很多在用库存编号作图号的朋友，就不知道他们的想法是怎样的。
3、ReferencedFiles是我改的，你的是ReferencedDocuments，但我在aip10下调试通不过
其实，如何引用“零件代号”、“描述”是相当重要的，关系到设计管理工作，却往往被我们忽略。
理论上我觉得应该是“零件代号”为标准/规格/图号，“描述”应该是“名称”，在一个项目里“零件代号”应该是唯一的，否则bom会有问题，这一点，inventor自己有点矛盾，于是它的配管bom中，干脆把“零件代号”空起不填。而且存盘时它又把文件名自动写入“零件代号”，它如果是把文件名写入“描述”就好了。
所以，实际上，为了偷懒（也是初学时没吃透，沿袭下的陋习），我现在仍用“零件代号”作名称，“描述”作图号。
还要提醒一点，一个项目中，文件名最好也是唯一的，如果同一项目中不同的文件夹中，不同的零部件用了同一各文件名，有可能出问题。我曾经历过，刚开始还没问题，后来设计更改时，出现调用混乱的现象，我只好用设计助理把文件名一个个改了。
我能理解到你的意思，我想再说明白一点：图纸（工程图）中的图号或名称与零部件的零件代号及库存编号可以没有任何关系，即图纸（工程图）的名称或图号不一定就是零部件的代号或者任何属性值，图纸（工程图）与BOM表没有任何关系，现在做的这个小程序只起到管理图纸（工程图）的作用，虽然程序中图纸（工程图）中的图号与名称默认与零部件的代号及编号有关连，但可以选择不与之关连。
Quote:
引用第0楼fuzhan于2006-08-06 10:50发表的“工程图（图纸）管理问题”:
零部件有BOM表明细表进行分类管理，但工程图好像还没有特定的统计分类管理，工程图才是设计最后出来的结果，最后打印成图纸的是由工程图打印得来。
我认为现在最需要的AIP应该设立一个像CAD中的图纸集的功能一样的管理程序，来管理一个项目中所有工程图（图纸）的分类，来进行合适的图号管理及分配。
而大伙是怎样管理的呢？比如现在出一个工程图，那你怎样可以很快地知道图号已经编到什么位置了？或者说图号有没有重复呢？全部工程图打印为图纸归档，你怎样打印出图纸清单？用EXCEL一个一个的打吗？
我觉得，你每个零件的命名就是图号就可以了，图纸清单用BOM表排好序输出EXCEL就好了
你的“虚拟图纸”是什么概念？
希望能继续分享。
我的“虚拟图纸”的概念就是如CAD图纸集一样先在数据库中建立一个空白图纸（实际硬盘中还没有工程图），这个虚拟图纸中只有图号、名称，没有材料、数量、重量等其它数据，起到的作用是“占位”的目的，可以慢慢再打开它完成此图纸。
lfpecker 兄居然对这个还有兴趣，实际上这个东东与个人的作图风格有关连，不是象我这样的风格作图时意义是不大的，如果你要我已修改好的程序，我可以Email给你，你的Email是什么？
在这里不是我不打算更新论坛上的数据，实在是没有理由让别人按我的作图风格来作图的。
你说对了，我就是对你的作图风格感兴趣，对别人的设计风格、设计思路尤其感兴趣。同时对VBA感兴趣。
lfpecker@163.com
我是初学者，单位才给装了inventor11；本人从事机械设计工作，我现在就想如何在inventor下完成从三维到二维图的直接转换工作，意思是将零部件的信息修改以后，而同时工程图中的相关信息，如标题栏，明细表中的信息能自动改变；但是现在好像问题很多，比如图纸目录，满足单位的图框标题栏都不是很好完成；实在不行，就只能找软件公司开发了；但是我希望能向各位高人学习，能够自己开发（如果有可能）；cad下的这些功能都是单位自己开发的，只能慢慢来了
零件都编上零件代号,跟文件的位置对应上就可以了!
编程太麻烦，我们这儿我直接利用文件夹，然后按照一定的编号规则建立分层
觉得管理图纸起来也不算麻烦，要在配合那个设计助理，很容易管理了我觉得
不过我不怎么用设计助理
本文摘自：http://www.jxcad.com.cn/read.php?tid=71609&fpage=2
问题没解决?请到"CAD家园"查找或求助!
