QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 1533|回复: 5
收起左侧

[讨论] 椭圆封头+筒体生成工程图,断开剖视图深度不可控?

[复制链接]
发表于 2016-12-22 09:35:24 | 显示全部楼层 |阅读模式 来自: 中国甘肃兰州
安装
主题分类用于问题归类:

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

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

x
椭圆封头+筒体生成工程图,
' M; u9 h0 n. F/ r7 l! c断开剖视图深度是514.534xxxx; x+ ~) {$ S  d+ Q) E
结论是断开深信不可控。6 Z) y9 L' J5 _' c* R- o9 r% t- f: ~
$ g2 ]+ S2 r, c. V1 D
/ O/ z5 A8 {2 X( q) T8 k! t
装配体.jpg % w" Z7 c: J5 a0 t' J" V

. ]; v' \9 r! C  Z/ |* _
% x, J$ H0 ?, @3 K( F4 I, ^9 B9 c
6 {7 R! \. _$ w4 f% d" t1 \( ~单独生成封头和筒体工程图,其断开剖视图的断开深度为510mm7 N- I1 s* e- [( s/ P
结论是断开深度可控。9 A/ ?# C8 m8 n  b4 ~# u
; K1 {% @  Y( y2 a2 L6 \; Z% G6 g) S
  ?) |) j, P) y# O' N1 y4 [/ e
封头.jpg
. I+ ~% Q3 S* U) G7 v& [4 F
2 d$ ]0 E; [& g( N/ C1 X1 P4 s( S  Q0 S( r+ @
3 @# \& n9 L0 U

% k: \- i! Y7 O8 F) n8 G: {% q请各位测试一下附件的工程图,4 y: b% k" I- n) `2 [+ |6 P
断开深度不是可控的510断开视图深度。
: Q# Q) g  e$ t还是不可控的514.XXXX. A  I6 r) A8 y6 T

( V. `% J" p5 X  b# m

aa.zip

211.6 KB, 下载次数: 4

发表于 2016-12-22 10:51:22 | 显示全部楼层 来自: 中国辽宁营口
都不是一个图,何来哪个更准确之说。
发表于 2016-12-22 10:56:07 | 显示全部楼层 来自: 中国辽宁丹东
选择边线<1>,当然不可控了。
8 D1 @- G: T2 n, E* _
发表于 2016-12-22 11:42:17 | 显示全部楼层 来自: 中国湖北武汉
楼主的理解有问题!你这个就不是使用断开剖视图目的?
 楼主| 发表于 2016-12-22 16:27:53 | 显示全部楼层 来自: 中国甘肃兰州
手动不涉及断面视图深度,用代码就涉及到深度。
; B3 ]: L) c& P7 f' p
2 m) L0 z, z$ D" r. h
  1. ''3 u7 M& Q% Z( U0 t
  2. Function BreakOut(SwDraw As DrawingDoc, SwView As View)
    + R# y7 ?' I- k9 A% e5 ]+ A) t+ _5 M

  3. ) T  i  b" ]; z+ [, u+ n
  4. 2 y! l2 x2 u2 N2 J" y! o0 _3 ?
  5.     Dim Var, vPos, tmp, oScale
      F# T% o2 _6 B% w; j8 j% N
  6.        # X3 s9 `5 o+ r
  7.         oScale = 1 / SwView.ScaleDecimal
    ( S4 b! e( T3 m; Y+ e6 K
  8.        0 D; B. A# T- c2 M% V1 r
  9.     Dim SwDim As Dimension, Depth# @, W$ S. s1 I+ Z" G
  10.     Dim SwModel As ModelDoc2
    ' @1 S1 n6 \% U/ u  Q/ f. |' X
  11.         Set SwModel = SwView.ReferencedDocument( G: h5 G$ L- Y) n  Z! h
  12.         Debug.Print SwModel.GetPathName9 g  m0 [2 k% w& u
  13.         'PrintModelDimension SwModel
    + N) `) F% k- H
  14.         Set SwDim = SwModel.Parameter("Depth@PlateSize") '("Depth@PlateSize")1 Q4 |# _+ V9 y: F2 O3 B9 n
  15.         Depth = SwDim.Value
    * }& ^9 o) o& A- b
  16.       
    - P( f$ l& ]/ Z  V+ x6 C% I
  17.     Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double: S0 m5 V& N9 `( a* ^8 G0 x
  18.         With SwDraw/ U5 j' k# z) r
  19.              Var = SwView.GetOutline- i5 `  I) g% J& {$ y
  20.              vPos = SwView.Position
    , @' t) q( Z8 I% B: ?1 f$ i7 g
  21.             
    # H/ D9 u5 L4 k' I8 j2 j
  22.              For ii = 0 To UBound(Var)4 d$ e9 E0 b! i9 V/ Q0 Y& ^; R
  23.                  Var(ii) = oScale * Var(ii); x9 T& O' N, X: S( a
  24.                  If ii < 2 Then
    % z/ r. \  n+ n; \
  25.                     vPos(ii) = oScale * vPos(ii): `# s. Q6 ~% Y" V4 }/ ^/ m/ _
  26.                  End If/ o9 Y9 C1 K) ^% F6 ]- R5 D
  27.              Next ii4 ^% @8 ?! X& F2 U* ?/ P
  28.             
    # E6 ?9 [/ A1 O
  29.             
    6 h0 q* D, D- G* m6 W
  30.              tmp = .SketchRectangle(-Var(2), -Var(3), 0, Var(2), Var(3), 0, 1)
    7 Y2 b- @5 z, h  e7 v
  31.              .CreateBreakOutSection Depth / 1000% t1 ^( M8 t" O- }1 u4 v$ ^2 f
  32.           End With
    3 S0 n) F, P/ D9 `
  33. End Function
复制代码
发表于 2016-12-23 14:58:45 | 显示全部楼层 来自: 中国辽宁丹东
本帖最后由 qiminger 于 2016-12-23 15:10 编辑
+ c$ D$ \* `# X& b9 j
  R* u+ K& x1 I" }. i1 |代码看不明白,测试一下看看。手动可以改变深度。+ n* y7 Q1 D# q' F9 j

' \2 r: _: t7 Y) x. R  a在装配体中,将筒和封头的基准面与装配体中的基准面做平行配合,再看一下。5 A. ^0 z  L# u+ n  E$ v7 }

, L) V- x. R7 V) A jdfw.gif
" z% I* y: _1 U" X
. g5 r0 r5 O; ]/ f# |
* r: s' Q2 Q/ C" A4 h
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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