机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
123
返回列表 发新帖
楼主: 狙击手GY

inventor2016右击零件没有打开工程图的选项了?

[复制链接]
发表于 2017-7-30 21:46:46 | 显示全部楼层
我说过:但愿您是这样的一个,而不要半途而废才好。! H5 x" j/ O. t! d: E+ U/ U  u

2 V8 U  k' p9 k9 Q, A! R到现在,很可能 Mechanical.Mr. 先生半途而废了,也许一开始就确定会“废”了。因为他自己在说什么,可能自己都不清楚...9 p# @  |3 E# e
可惜、可叹0 p5 U+ b/ x& O7 [$ ]
这种事情发生的几率也太高了一些,咋回事呢?
回复 支持 反对

使用道具 举报

发表于 2017-7-30 22:42:50 | 显示全部楼层
16,17版的没用过不太清楚,但是18版中是有打开工程图这个选项的。
1 Y: t8 M8 w% q- O$ @% Y

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册会员

x

点评

原来在这里...谢谢!比较常用的功能  发表于 2017-8-23 13:50
回复 支持 反对

使用道具 举报

发表于 2018-6-11 18:05:07 | 显示全部楼层
如果没有安装2018的朋友,可以是试试加下面一段代码:2 O: ]. k. z+ A; f/ `8 U" T; k2 t
Sub 打开工程图()) Q6 P2 i7 j2 P: y4 |
On Error Resume Next. [* B, J1 g) x" r9 f/ \- c: p5 w
If ThisApplication.ActiveDocument.SelectSet.Item(1).Type = kComponentOccurrenceObject Then' j+ i( L8 b5 ?- K+ k8 }% t
Dim OoC As ComponentOccurrence( K  \4 b! d1 ?: R( _8 t; R
Set OoC = ThisApplication.ActiveDocument.SelectSet.Item(1)
: _; W! \  a4 L/ X: lThisApplication.Documents.Open (Left(OoC.Definition.Document.FullFileName, Len(OoC.Definition.Document.FullFileName) - 4) & ".DWG")0 }6 [8 C3 w. X+ c- e2 O
End If7 X* `; J/ x5 B& l6 E9 J
End Sub
. ~8 s; i+ s1 ^/ A; y- Z0 I3 r0 K4 r: [% v1 }& D! Z5 R
9 ]8 Q( P8 P- u% w* ^- o( B
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2024-4-25 14:23 , Processed in 0.050306 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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