找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
楼主: 狙击手GY

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

[复制链接]
发表于 2017-7-30 21:46:46 | 显示全部楼层
我说过:但愿您是这样的一个,而不要半途而废才好。: r1 l/ E5 z6 L1 H( ^
- f2 T7 j6 `$ j2 ^% W# v
到现在,很可能 Mechanical.Mr. 先生半途而废了,也许一开始就确定会“废”了。因为他自己在说什么,可能自己都不清楚...
& X- E/ h8 D% H! M7 L4 I6 r+ I可惜、可叹: ]: r9 B5 k7 t/ O
这种事情发生的几率也太高了一些,咋回事呢?
发表于 2017-7-30 22:42:50 | 显示全部楼层
16,17版的没用过不太清楚,但是18版中是有打开工程图这个选项的。# R0 j) z3 N( e# I3 w$ l

本帖子中包含更多资源

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

×

点评

原来在这里...谢谢!比较常用的功能  发表于 2017-8-23 13:50
发表于 2018-6-11 18:05:07 | 显示全部楼层
如果没有安装2018的朋友,可以是试试加下面一段代码:
/ y. y  P" B  m/ |8 TSub 打开工程图()
1 x( z* e7 |6 vOn Error Resume Next% l1 M# V, N5 W& p3 g: f
If ThisApplication.ActiveDocument.SelectSet.Item(1).Type = kComponentOccurrenceObject Then* j3 T7 ]0 R, f
Dim OoC As ComponentOccurrence
' V! u# {" @- X9 Y3 z3 `6 NSet OoC = ThisApplication.ActiveDocument.SelectSet.Item(1)
6 F/ I1 M) c, [4 @4 c3 U7 w$ E) DThisApplication.Documents.Open (Left(OoC.Definition.Document.FullFileName, Len(OoC.Definition.Document.FullFileName) - 4) & ".DWG")% K% N- Y6 ?. l' T
End If& @6 a' {  G: x  i; N4 o
End Sub+ a' o' U- I0 b! d) H

9 V3 n9 x( s$ B8 x1 Q
: |; Y$ ^8 x! {% g1 M# e
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2025-6-21 04:16 , Processed in 0.062382 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

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