+发表新主题
ljxong 发布于2024-10-9 23:31 4240 次浏览 25 位用户参与讨论
跳转到指定楼层
inventor工程图有三个问题一直困扰我:
1、做工程图时,已开始没法确定图号,所以我都是以名称命名零部件,但这个名称自动在“零件代号”中,所以每次都要在Iproperty中一个一个地改;
2、所有的标准件(包括型材等)的名称、标准号也都是在“零件代号”中,每次都要在明细表中一个一个地改;
3、当把工程图另存副本为“dwg”格式时,所有的线型都变成细实线了,怎样能在Autocad中继承inventor工程图的线型。

原先不怎么出工程图,这三个问题不是太突出,现在工程图出得多了,所以请各位高手指点。
回复

使用道具 举报

已有25人评论

swxwm121918 发表于 2024-10-11 08:22:05

1.想要加上图号,我这里的变通方法是把图号和零件代号写在一起,即在图纸标题栏上图号和零件名称是一起的,如果一定要做成标准图纸那样,可以利用别的参数例如库存编号这些,然后用Design Assistant或者是装配体的BOM表功能编辑,这样工程图里面也能显示出来,这个比较费时间。
2.解决方法思路同1
3.工程图另存副本为“dwg”格式时选择AUTOCAD DWG文件,然后在右下方选项里面设置一下输出选项,源数据所有图纸打钩,选中最接近AUTOCAD映射,另外想要输出的线型有区别,首先你必须在inventor工程图里面设置好各类型的线宽线型和颜色,这样输出就可以得到你想要的了,我这边试过没什么问题。附件截图特地打开线宽,方便观察。


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
回复

使用道具 举报

caisiyikang 发表于 2024-10-12 23:56:22
最好先在装配图中的BOM表中设置好。
回复

使用道具 举报

王子龙 发表于 2024-10-14 12:33:31
能改成需要的样子,就挺好了...
回复

使用道具 举报

swxwm121918 发表于 2024-10-14 21:07:43
王子龙 发表于 2024-10-14 12:33
能改成需要的样子,就挺好了......
我是想有一劳永逸的方法
回复

使用道具 举报

ljxong 发表于 2024-10-16 13:38:33
王子龙 发表于 2024-10-14 12:33
能改成需要的样子,就挺好了......
我学inventor就是看您的教学视频学的,现在有机会和您交流很高兴。
回复

使用道具 举报

ljxong 发表于 2024-10-16 13:46:21
swxwm121918 发表于 2024-10-11 08:22
1.想要加上图号,我这里的变通方法是把图号和零件代号写在一起,即在图纸标题栏上图号和零件名称是一起的 ......
谢谢,我试试
回复

使用道具 举报

ljxong 发表于 2024-10-16 13:53:48
楼主的工作流好象有点问题:1、做工程图时,已开始没法确定图号,所以我都是以名称命名零部件,但这个名称自动在“零件代号”中,所以每次都要在Iproperty中一个一个地改;
没有图号时,以名称作为图号 暂时没有问题。

2、所有的标准件(包括型材等)的名称、标准号也都是在“零件代号”中,每次都要在明细表中一个一个地改;
后续修改:理论上通过设计助手去修改。

3、当把工程图另存副本为“dwg”格式时,所有的线型都变成细实线了,怎样能在Autocad中继承inventor工程图的线型。
不知什么原因另存为DWG?“细实线” 是打印之后的结果?
回复

使用道具 举报

sjwsjw 发表于 2024-10-18 20:48:30
我平时的做法:
一、文件命名:图号 名称
原因:文件管理时,检索文件用Everything,速度快,但不能检索文件内容。因此一个信息量尽量多的文件名:同时包含了图号和文件名。
二、用ilogic,自动将文件名中的内容写入到Iproperty中。
附上ilogic代码:

Dim IsContentCenter As Boolean
Dim doc = ThisDoc.Document

IsContentCenter = False
For Each oPS In doc.PropertySets
If oPS.DisplayName = "ContentCenter" Then IsContentCenter = True
Next

Dim strFileName = ThisDoc.FileName(False)
'标准件,标准件图号=文件名
If IsContentCenter = True Then
        iProperties.Value("Project", "Part Number") = strFileName
Else
'非标准件,判断文件名中是否有空格
'没有空格


If InStr(1, (ThisDoc.FileName(False)), " ") = 0 Then

  iProperties.Value("Project", "Part Number")=strFileName '图号=文件名
'有空格
Else
         Dim iPos As Integer
         iPos = strFileName.IndexOf(" ")
         
   iProperties.Value("Summary", "Title") = strFileName.Substring(iPos, strFileName.Length-iPos).Trim()
   iProperties.Value("Project", "Part Number")=strFileName.Substring(0, iPos).Trim()
'  iProperties.Value("Summary", "Title") = Split(strFileName, Chr(32),)(1)
'  iProperties.Value("Project", "Part Number")=Split(strFileName, Chr(32),)(0)
End If
End If

不知对楼主有没有用。
回复

使用道具 举报

sjwsjw 发表于 2024-10-18 20:55:44
swxwm121918 发表于 2024-10-11 08:22
1.想要加上图号,我这里的变通方法是把图号和零件代号写在一起,即在图纸标题栏上图号和零件名称是一起的 ......
改过了,但是只有中心线是颜色、线型都改了,圆的中心线和其他如尺寸线、剖面线的颜色都没有改,截图不知道怎么发上来,不好意思,
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ| Archiver|手机版|小黑屋| 碧波制图网 Published by Stonespider

Copyright © 2021-2023 Kangli Wu   All Rights Reserved.

Powered by Discuz! X3.5( 苏ICP备18011607号-1 )

快速
回复
返回
列表
返回
顶部