QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
椭圆封头+筒体生成工程图,
1 r% l7 ?6 n4 p断开剖视图深度是514.534xxxx
% ?+ s& @, ]6 r) O0 G结论是断开深信不可控。. t7 |* [, D+ [& v& q1 Q, ^
( s3 d+ {& c* ?  A6 p
# Q4 }/ w3 g4 ]- o* b
装配体.jpg
# o" E, `: i. q% e5 U6 M; s2 F) g8 U* N& a  x8 B' g# y0 J2 ^5 m; B
; t! t9 L4 C, k

4 e* d0 H" y6 F单独生成封头和筒体工程图,其断开剖视图的断开深度为510mm0 }: u, X) ^+ g7 Q. t. g
结论是断开深度可控。* j/ x  [  W) Q
/ f! l3 j$ |1 |( I. l) X
' l5 h5 m1 e( l8 @  l, K: e
封头.jpg - v2 [' H$ H) k3 b4 L

5 H- g  L4 k# F* I4 y. G* M( ~5 L/ c% X
5 d( Y# p  J1 f7 E* |

3 s$ I$ B! A/ E& W- @请各位测试一下附件的工程图,
8 ?8 S- M7 d. {6 E. G, n: c断开深度不是可控的510断开视图深度。% K" o$ m" M/ N1 l% K  h
还是不可控的514.XXXX
, B2 w" I  n. W
# s. E9 B% f  R+ c( M, z

aa.zip

211.6 KB, 下载次数: 4

发表于 2016-12-22 10:51:22 | 显示全部楼层 来自: 中国辽宁营口
都不是一个图,何来哪个更准确之说。
发表于 2016-12-22 10:56:07 | 显示全部楼层 来自: 中国辽宁丹东
选择边线<1>,当然不可控了。
- H, g; p* i: G
发表于 2016-12-22 11:42:17 | 显示全部楼层 来自: 中国湖北武汉
楼主的理解有问题!你这个就不是使用断开剖视图目的?
 楼主| 发表于 2016-12-22 16:27:53 | 显示全部楼层 来自: 中国甘肃兰州
手动不涉及断面视图深度,用代码就涉及到深度。
/ w4 l: f* ?2 u( r- D; B- O9 j% u4 E
! n: k4 b+ U8 B9 K
  1. ''# z9 Y3 e  V1 x2 m) F4 @& x
  2. Function BreakOut(SwDraw As DrawingDoc, SwView As View)$ y, |7 V3 R, `& u5 t$ j% c; f
  3. , g4 w$ T0 q- I' L. u" ?

  4. 6 @) P& Y2 M$ I* I" {0 J# p
  5.     Dim Var, vPos, tmp, oScale
    1 T& s# i0 [$ L/ p$ P
  6.        ) C+ l& C9 s, H+ V
  7.         oScale = 1 / SwView.ScaleDecimal
    ' x* E$ d& N, A: Y, u
  8.       
    " C: N9 z# N) _2 M# x/ z7 m
  9.     Dim SwDim As Dimension, Depth3 `1 t. W; C8 X5 Q8 |' ~& s) K6 h
  10.     Dim SwModel As ModelDoc2
    ( \. M/ \( Z. |, E: E
  11.         Set SwModel = SwView.ReferencedDocument
    $ y6 I% j# O8 A
  12.         Debug.Print SwModel.GetPathName* ]' ~- T, A0 W: T+ }1 P
  13.         'PrintModelDimension SwModel
    / ?# F0 Z* S/ c! n+ }
  14.         Set SwDim = SwModel.Parameter("Depth@PlateSize") '("Depth@PlateSize")5 c8 ]0 s3 B/ K4 @" }  o
  15.         Depth = SwDim.Value
    0 p% {3 R. l8 W  I# @- z6 G
  16.       
    + `1 l  `2 W- S7 j5 L8 _  y6 b
  17.     Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double3 G2 P8 R& Q9 D. I! r" y% R
  18.         With SwDraw" }8 J- X$ n/ V4 }
  19.              Var = SwView.GetOutline- w: T' D( g6 J' G) o& x8 [
  20.              vPos = SwView.Position
    # `3 q+ {9 }, M% C) M& v
  21.             
    " [2 [; ~" i- S
  22.              For ii = 0 To UBound(Var)
    2 t  e7 B& y# J9 u
  23.                  Var(ii) = oScale * Var(ii)" y# \) T. L' Z- C
  24.                  If ii < 2 Then' T1 B5 _. _* y2 N9 y2 K
  25.                     vPos(ii) = oScale * vPos(ii)) T$ X9 g" V7 t9 b9 i8 t( r
  26.                  End If/ a* {* g6 u& M
  27.              Next ii
    # q5 i; W/ ?* ^  \* ~
  28.             & F0 s6 {, _1 G* j/ l9 K: W
  29.             / G. ?1 Y6 D6 @/ |9 {
  30.              tmp = .SketchRectangle(-Var(2), -Var(3), 0, Var(2), Var(3), 0, 1)
    " q* V' |& `. X! l  v
  31.              .CreateBreakOutSection Depth / 10009 r5 U* ^. X% m3 t3 p
  32.           End With0 U4 m' x4 [$ T; [- y
  33. End Function
复制代码
发表于 2016-12-23 14:58:45 | 显示全部楼层 来自: 中国辽宁丹东
本帖最后由 qiminger 于 2016-12-23 15:10 编辑
8 F' U5 I: {5 D$ \7 T  L3 ?3 i# |; n. `# R& y# I
代码看不明白,测试一下看看。手动可以改变深度。
& n* w6 d$ F/ e% v7 ]5 h+ ^$ h- s
! x2 A" G# b3 j# J* e( M在装配体中,将筒和封头的基准面与装配体中的基准面做平行配合,再看一下。
7 P/ E3 P+ s' M3 P9 s* u  Y
1 B& |' l# z6 |, J3 m, [: H& i% H jdfw.gif ' O, Y$ @. r% B  M0 e1 t
, ^0 I: H$ n1 J+ i5 i- r0 e

9 i+ b1 b/ S# F& x
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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