找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
楼主: 狙击手GY

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

[复制链接]
发表于 2017-7-30 21:46:46 | 显示全部楼层
我说过:但愿您是这样的一个,而不要半途而废才好。% V: x4 ~& d, t4 D2 [2 i
9 B" y1 @7 z* k  c9 D
到现在,很可能 Mechanical.Mr. 先生半途而废了,也许一开始就确定会“废”了。因为他自己在说什么,可能自己都不清楚...
4 W: k7 u9 }. t可惜、可叹. a, r$ W# H: h. `7 l! W
这种事情发生的几率也太高了一些,咋回事呢?
发表于 2017-7-30 22:42:50 | 显示全部楼层
16,17版的没用过不太清楚,但是18版中是有打开工程图这个选项的。
$ P# k7 o. f+ N7 V, |* ^9 N- ?

本帖子中包含更多资源

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

×

点评

原来在这里...谢谢!比较常用的功能  发表于 2017-8-23 13:50
发表于 2018-6-11 18:05:07 | 显示全部楼层
如果没有安装2018的朋友,可以是试试加下面一段代码:* e% H3 I& B3 H$ F* U6 _
Sub 打开工程图()& h" }1 J6 z6 S* E: g8 R5 {- a6 U: C
On Error Resume Next
: v) _7 D  P1 F: P' R6 eIf ThisApplication.ActiveDocument.SelectSet.Item(1).Type = kComponentOccurrenceObject Then$ n: ^. t6 w- V* q
Dim OoC As ComponentOccurrence
1 C/ i: O1 r! n4 G( ~Set OoC = ThisApplication.ActiveDocument.SelectSet.Item(1): I; B9 _" A2 |: p
ThisApplication.Documents.Open (Left(OoC.Definition.Document.FullFileName, Len(OoC.Definition.Document.FullFileName) - 4) & ".DWG")2 v+ U: Z3 b9 q8 q
End If3 i, N+ i3 V$ K* o% {& R
End Sub
8 \5 M8 \( s3 r; C; }3 x
2 ]& W2 `, C- o+ G& F( A( R6 p9 _. j! V
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2025-9-14 16:28 , Processed in 0.068222 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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