关于焊件中多个实体工程图问题

只看该作者 · 发表于 2015-11-9 10:07:29

wxg263 发表于 2015-11-8 21:57
如楼主所说还是用方案B 好些，只是一个焊件里面有太多的管材板材和排孔管的话，要怎么能放的下一张图？而多 ...

板材的长宽高属性我有帖子说明了吧{:soso_e106:}

只看该作者 · 发表于 2015-11-9 12:05:25

大鹿发表于 2015-11-8 19:51
回擰濛朋友，這樣正好了，幫忙知會樓主一聲，別掉下問題就跑掉。

谢谢大鹿先生为我解惑。
这几天家中有点小事缠身没有及时回复您，但是根据您的指点以及论坛中前辈的帖子自己再根据自己的实际工作总结了一下
内如如下：

1.总装配中先使用  闷大之前的遍历宏和菜虫大大的更新版本
遍历宏地址：https://www.icax.org/forum.php?m ... page=13#pid11493972
菜大更新版本 122楼
运行宏之后对每一个零件加入数量属性

2.焊件零件中再运行闷大的总中宏（个人又根据自己的实际情况加入了几句代码 PO在楼下）
运行宏之后对焊件零件的每个切割项目加入单重总重数量以及总量（单台用量）属性
原闷大总重宏地址：https://www.icax.org/thread-503116-1-1.html

3.根据闷大之前的多实体属性链接的帖子自己做了一个图块
做焊件时对每个切割项目进行预先编码和命名  其他属性步骤2的时候已经加入
出图时用零件-选择实体方式出图放置视图之后视图锁焦其中一个视图加入预先做的图块（和标题栏一样）成功链接某个切割项目的属性
再编辑图纸格式把之前链接零件的属性删除掉  移动图块放置到原标题栏位置
原闷大多实体零件属性链接地址：https://www.icax.org/thread-951840-1-1.html

工程图全部绘制完毕，最后运行一下多页工程图重命名宏把工程图名字全部改一边再手动修改拆分图的名字
至此总装中某焊件的拆分工程图完成。

再次感谢大鹿先生的指点

只看该作者 · 发表于 2015-11-9 12:09:33

大鹿发表于 2015-11-8 19:51
回擰濛朋友，這樣正好了，幫忙知會樓主一聲，別掉下問題就跑掉。

代码如下：

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim thisFeat As SldWorks.Feature
Dim thisSubFeat As SldWorks.Feature
Dim cutFolder As Object
Dim BodyCount As Integer
Dim fn As String
Dim pn As String
Dim custPropMgr As SldWorks.CustomPropertyManager
Dim custPropMgr1 As SldWorks.CustomPropertyManager
Dim propNames As Variant
Dim vName As Variant
Dim propName As String
Dim Value As String
Dim TValue As String
Dim tTotalw As Double
Dim resolvedValue As String
Dim tresolvedValue As String
Dim TotalW As Double
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set custPropMgr1 = Part.Extension.CustomPropertyManager("")
custPropMgr1.Get2 "数量", TValue, tresolvedValue
Set thisFeat = Part.FirstFeature
Do While Not thisFeat Is Nothing
If thisFeat.GetTypeName = "SolidBodyFolder" Then
thisFeat.GetSpecificFeature2.UpdateCutList
End If
Set thisSubFeat = thisFeat.GetFirstSubFeature
Do While Not thisSubFeat Is Nothing
If thisSubFeat.GetTypeName = "CutListFolder" Then
Set cutFolder = thisSubFeat.GetSpecificFeature2
End If
If Not cutFolder Is Nothing Then
BodyCount = cutFolder.GetBodyCount
If BodyCount > 0 Then
Set custPropMgr = thisSubFeat.CustomPropertyManager
If Not custPropMgr Is Nothing Then
custPropMgr.Delete "总重"
custPropMgr.Delete "单重"
custPropMgr.Delete "数量"
custPropMgr.Delete "总量"
fn = thisSubFeat.Name
pn = Part.GetTitle
custPropMgr.Add "单重", "文字", Chr(34) & "SW-Mass@@@" & fn & "@" & pn & Chr(34)
propNames = custPropMgr.GetNames
If Not IsEmpty(propNames) Then
For Each vName In propNames
propName = vName
custPropMgr.Get2 propName, Value, resolvedValue
If propName = "单重" Then TotalW = resolvedValue
Next vName
End If
custPropMgr.Add "总重", "文字", Format(BodyCount * TotalW, "0.00")
custPropMgr.Add "数量", "文字", Format(BodyCount, "0")
custPropMgr.Add "总量", "文字", Format(BodyCount * TValue, "0")
End If
End If
End If
Set thisSubFeat = thisSubFeat.GetNextSubFeature
Loop
Set thisFeat = thisFeat.GetNextFeature
Loop
End Sub

复制代码

敬请大鹿先生斧正

只看该作者 · 发表于 2015-11-9 12:22:37

wxg263 发表于 2015-11-8 21:57
如楼主所说还是用方案B 好些，只是一个焊件里面有太多的管材板材和排孔管的话，要怎么能放的下一张图？而多 ...

五号先生你好，
根据你的描述我是不是可以这样理解
你的焊件中有很多管你是用3D草图+结构件+焊件轮廓来进行零件建模
你的管件需要进行后续加工车削或钻孔或其他
你需要对其中大部分管件进行单独出图说明加工尺寸及要求

我的建议：
1.和我楼上的回复中提到的一样，对需要单独出图的管件进行编号
编号写入切割清单属性中在其他属性中体现该焊件轮廓的属性如：Φ90*14厚壁管长度会自动链接了
<焊件轮廓自带的属性请修改焊件轮廓文件打开后修改自定义属性>

2.出图时用到楼上提及的方法这样而来应该是对出图的数据录入工作有所简化

A建模-B文件自定义属性+焊件切割清单属性-C出图+切割清单-D拆分出图
比较顶层我说的插入到新零件的方法
A建模-B文件自定义属性+焊件切割清单属性-C插入到新零件-D新零件自定义属性-D出图+切割清单-E拆分出图

只看该作者 · 发表于 2015-11-9 13:02:32

动图
都是运行过宏之后的出图步骤

只看该作者 · 发表于 2015-11-9 15:02:07

学习

来自手机 · 发表于 2015-11-9 16:34:30

进来学习下，对焊件也是很迷茫

只看该作者 · 发表于 2015-11-9 22:06:44

o1ojacko1o 发表于 2015-11-9 12:22
五号先生你好，
根据你的描述我是不是可以这样理解
你的焊件中有很多管你是用3D草图+结构件+焊件轮廓 ...

非常感谢回复，总结，

只看该作者 · 发表于 2015-11-9 22:15:24

o1ojacko1o 发表于 2015-11-9 12:09
代码如下：
敬请大鹿先生斧正

按照您的代码不知道哪里有问题

只看该作者 · 发表于 2015-11-10 08:16:36

wxg263 发表于 2015-11-9 22:15
按照您的代码不知道哪里有问题

看一下这个帖子
https://www.icax.org/thread-959461-1-1.html

运行宏之前这些点你有没有注意到

[求助] 关于焊件中多个实体工程图问题

本帖子中包含更多资源

本帖子中包含更多资源