inventor中怎样在零件图上自动生成在装配图中的零件总数量

发布网友 发布时间：2022-04-29 17:46

我来回答

共5个回答

热心网友 时间：2023-10-25 15:04

我在以前也有和你一样的想法，请教了很多人，包括陈伯雄等等。。。
目前任何三维软件都无法做到
如果你两个部件，同时用这一个零件，上面引用那个零件的数量？
装配图里面有需要零件的数量，看装配图吧

热心网友 时间：2023-10-25 15:04

这个可以实现，在总装配中应用BOM表，就可以看到每个零件的总使用数，然后新建一列名称为总数，引用各个零件的总使用数的那一列的数据，这样零件就带上一个名称为总数的属性。在零件图中自定义一项，引用零件的总数属性，这样的达到目的了。

热心网友 时间：2023-10-25 15:04

不可能，也没必要。零件图标题栏标出数量是不符合GB制图标准的。而装配中则已标在BOM中。问题是，目前的BOM不能自动生成符合GB标准的明细栏，这才是最最遗憾的事。

热心网友 时间：2023-10-25 15:03

我在以前也有和你一样的想法，请教了很多人，包括陈伯雄等等。。。
目前任何三维软件都无法做到
如果你两个部件，同时用这一个零件，上面引用那个零件的数量？
装配图里面有需要零件的数量，看装配图吧

热心网友 时间：2023-10-25 15:05

If ThisDrawing.Document.ActiveSheet.DrawingViews.Count>0 Then
View1=ThisDrawing.Document.ActiveSheet.DrawingViews(1)
ModelName=IO.Path.GetFileName(ActiveSheet.View(View1.Name).ModelDocument.FullFileName)
iProperties.Value(ModelName,"Custom", "比例")=View1.ScaleString
'为模型写入自定义项：比例，数值为当前图纸第一个视图比例。
'ThisDrawing.Document.ActiveSheet.Name=Mid(ModelName,1)
'此行将图纸名称改为"文件名称"
'ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")+" "+iProperties.Value(ModelName,"Project", "Description")
'命名选项①此行将图纸名称改为"零件代号"+"零件名称格式"
'ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")
'命名选项②此行将图纸名称改为"零件代号"
ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")+" "+iProperties.Value(ModelName,"Project", "Description")+" "+iProperties.Value(ModelName,"Summary","Comments")
'命名选项③此行将图纸名称改为"零件代号"+"零件名称格式"+"注释"，注释填写(仿形)或者(焊后加工)
If String.Compare(Right(ModelName,3),"ipt")<>0 Then
iProperties.Value(ModelName,"Custom", "质量")=CStr(Round(iProperties.Mass(ModelName),1))
'为模型写入自定义项：质量。
Else
iProperties.Value(ModelName,"Custom", "质量")=CStr(Round(iProperties.Mass(ModelName),3))
End If
Else
ThisDrawing.Document.ActiveSheet.Name="BOM"
End If
'代码功能：
'1、在工程图对应的模型文件中新建自定义属性"比例"，并在其中自动填写第一个视图的比例；
'2、在工程图对应的模型文件中新建自定义属性"质量"，并在其中自动填写零部件质量（若对应模型是零件，则保留两位小数，否则仅保留一位小数）；
'3、若该图纸未有对应的模型文件，则默认的图纸名为"BOM"。
'4、事件触发器选择"保存前"。
'5、引用说明：零件数量---"成本中心"，制造令---"项目"，零件名称---"描述"，加工方式---"种类"，表面处理---"关键词"

热心网友 时间：2023-10-25 15:06

你这个想法挺有趣。不过软件肯定实现不了。

热心网友 时间：2023-10-25 15:04

这个可以实现，在总装配中应用BOM表，就可以看到每个零件的总使用数，然后新建一列名称为总数，引用各个零件的总使用数的那一列的数据，这样零件就带上一个名称为总数的属性。在零件图中自定义一项，引用零件的总数属性，这样的达到目的了。

热心网友 时间：2023-10-25 15:04

不可能，也没必要。零件图标题栏标出数量是不符合GB制图标准的。而装配中则已标在BOM中。问题是，目前的BOM不能自动生成符合GB标准的明细栏，这才是最最遗憾的事。

热心网友 时间：2023-10-25 15:05

If ThisDrawing.Document.ActiveSheet.DrawingViews.Count>0 Then
View1=ThisDrawing.Document.ActiveSheet.DrawingViews(1)
ModelName=IO.Path.GetFileName(ActiveSheet.View(View1.Name).ModelDocument.FullFileName)
iProperties.Value(ModelName,"Custom", "比例")=View1.ScaleString
'为模型写入自定义项：比例，数值为当前图纸第一个视图比例。
'ThisDrawing.Document.ActiveSheet.Name=Mid(ModelName,1)
'此行将图纸名称改为"文件名称"
'ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")+" "+iProperties.Value(ModelName,"Project", "Description")
'命名选项①此行将图纸名称改为"零件代号"+"零件名称格式"
'ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")
'命名选项②此行将图纸名称改为"零件代号"
ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")+" "+iProperties.Value(ModelName,"Project", "Description")+" "+iProperties.Value(ModelName,"Summary","Comments")
'命名选项③此行将图纸名称改为"零件代号"+"零件名称格式"+"注释"，注释填写(仿形)或者(焊后加工)
If String.Compare(Right(ModelName,3),"ipt")<>0 Then
iProperties.Value(ModelName,"Custom", "质量")=CStr(Round(iProperties.Mass(ModelName),1))
'为模型写入自定义项：质量。
Else
iProperties.Value(ModelName,"Custom", "质量")=CStr(Round(iProperties.Mass(ModelName),3))
End If
Else
ThisDrawing.Document.ActiveSheet.Name="BOM"
End If
'代码功能：
'1、在工程图对应的模型文件中新建自定义属性"比例"，并在其中自动填写第一个视图的比例；
'2、在工程图对应的模型文件中新建自定义属性"质量"，并在其中自动填写零部件质量（若对应模型是零件，则保留两位小数，否则仅保留一位小数）；
'3、若该图纸未有对应的模型文件，则默认的图纸名为"BOM"。
'4、事件触发器选择"保存前"。
'5、引用说明：零件数量---"成本中心"，制造令---"项目"，零件名称---"描述"，加工方式---"种类"，表面处理---"关键词"

热心网友 时间：2023-10-25 15:06

你这个想法挺有趣。不过软件肯定实现不了。

热心网友 时间：2023-10-25 15:04

我在以前也有和你一样的想法，请教了很多人，包括陈伯雄等等。。。
目前任何三维软件都无法做到
如果你两个部件，同时用这一个零件，上面引用那个零件的数量？
装配图里面有需要零件的数量，看装配图吧

热心网友 时间：2023-10-25 15:04

这个可以实现，在总装配中应用BOM表，就可以看到每个零件的总使用数，然后新建一列名称为总数，引用各个零件的总使用数的那一列的数据，这样零件就带上一个名称为总数的属性。在零件图中自定义一项，引用零件的总数属性，这样的达到目的了。

热心网友 时间：2023-10-25 15:04

不可能，也没必要。零件图标题栏标出数量是不符合GB制图标准的。而装配中则已标在BOM中。问题是，目前的BOM不能自动生成符合GB标准的明细栏，这才是最最遗憾的事。

热心网友 时间：2023-10-25 15:05

If ThisDrawing.Document.ActiveSheet.DrawingViews.Count>0 Then
View1=ThisDrawing.Document.ActiveSheet.DrawingViews(1)
ModelName=IO.Path.GetFileName(ActiveSheet.View(View1.Name).ModelDocument.FullFileName)
iProperties.Value(ModelName,"Custom", "比例")=View1.ScaleString
'为模型写入自定义项：比例，数值为当前图纸第一个视图比例。
'ThisDrawing.Document.ActiveSheet.Name=Mid(ModelName,1)
'此行将图纸名称改为"文件名称"
'ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")+" "+iProperties.Value(ModelName,"Project", "Description")
'命名选项①此行将图纸名称改为"零件代号"+"零件名称格式"
'ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")
'命名选项②此行将图纸名称改为"零件代号"
ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")+" "+iProperties.Value(ModelName,"Project", "Description")+" "+iProperties.Value(ModelName,"Summary","Comments")
'命名选项③此行将图纸名称改为"零件代号"+"零件名称格式"+"注释"，注释填写(仿形)或者(焊后加工)
If String.Compare(Right(ModelName,3),"ipt")<>0 Then
iProperties.Value(ModelName,"Custom", "质量")=CStr(Round(iProperties.Mass(ModelName),1))
'为模型写入自定义项：质量。
Else
iProperties.Value(ModelName,"Custom", "质量")=CStr(Round(iProperties.Mass(ModelName),3))
End If
Else
ThisDrawing.Document.ActiveSheet.Name="BOM"
End If
'代码功能：
'1、在工程图对应的模型文件中新建自定义属性"比例"，并在其中自动填写第一个视图的比例；
'2、在工程图对应的模型文件中新建自定义属性"质量"，并在其中自动填写零部件质量（若对应模型是零件，则保留两位小数，否则仅保留一位小数）；
'3、若该图纸未有对应的模型文件，则默认的图纸名为"BOM"。
'4、事件触发器选择"保存前"。
'5、引用说明：零件数量---"成本中心"，制造令---"项目"，零件名称---"描述"，加工方式---"种类"，表面处理---"关键词"

热心网友 时间：2023-10-25 15:06

你这个想法挺有趣。不过软件肯定实现不了。

热心网友 时间：2023-10-25 15:04

我在以前也有和你一样的想法，请教了很多人，包括陈伯雄等等。。。
目前任何三维软件都无法做到
如果你两个部件，同时用这一个零件，上面引用那个零件的数量？
装配图里面有需要零件的数量，看装配图吧

热心网友 时间：2023-10-25 15:04

这个可以实现，在总装配中应用BOM表，就可以看到每个零件的总使用数，然后新建一列名称为总数，引用各个零件的总使用数的那一列的数据，这样零件就带上一个名称为总数的属性。在零件图中自定义一项，引用零件的总数属性，这样的达到目的了。

热心网友 时间：2023-10-25 15:04

不可能，也没必要。零件图标题栏标出数量是不符合GB制图标准的。而装配中则已标在BOM中。问题是，目前的BOM不能自动生成符合GB标准的明细栏，这才是最最遗憾的事。

热心网友 时间：2023-10-25 15:05

If ThisDrawing.Document.ActiveSheet.DrawingViews.Count>0 Then
View1=ThisDrawing.Document.ActiveSheet.DrawingViews(1)
ModelName=IO.Path.GetFileName(ActiveSheet.View(View1.Name).ModelDocument.FullFileName)
iProperties.Value(ModelName,"Custom", "比例")=View1.ScaleString
'为模型写入自定义项：比例，数值为当前图纸第一个视图比例。
'ThisDrawing.Document.ActiveSheet.Name=Mid(ModelName,1)
'此行将图纸名称改为"文件名称"
'ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")+" "+iProperties.Value(ModelName,"Project", "Description")
'命名选项①此行将图纸名称改为"零件代号"+"零件名称格式"
'ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")
'命名选项②此行将图纸名称改为"零件代号"
ThisDrawing.Document.ActiveSheet.Name=iProperties.Value(ModelName,"Project", "Part Number")+" "+iProperties.Value(ModelName,"Project", "Description")+" "+iProperties.Value(ModelName,"Summary","Comments")
'命名选项③此行将图纸名称改为"零件代号"+"零件名称格式"+"注释"，注释填写(仿形)或者(焊后加工)
If String.Compare(Right(ModelName,3),"ipt")<>0 Then
iProperties.Value(ModelName,"Custom", "质量")=CStr(Round(iProperties.Mass(ModelName),1))
'为模型写入自定义项：质量。
Else
iProperties.Value(ModelName,"Custom", "质量")=CStr(Round(iProperties.Mass(ModelName),3))
End If
Else
ThisDrawing.Document.ActiveSheet.Name="BOM"
End If
'代码功能：
'1、在工程图对应的模型文件中新建自定义属性"比例"，并在其中自动填写第一个视图的比例；
'2、在工程图对应的模型文件中新建自定义属性"质量"，并在其中自动填写零部件质量（若对应模型是零件，则保留两位小数，否则仅保留一位小数）；
'3、若该图纸未有对应的模型文件，则默认的图纸名为"BOM"。
'4、事件触发器选择"保存前"。
'5、引用说明：零件数量---"成本中心"，制造令---"项目"，零件名称---"描述"，加工方式---"种类"，表面处理---"关键词"

热心网友 时间：2023-10-25 15:06

你这个想法挺有趣。不过软件肯定实现不了。