关于图形三维显示的问题~~

jjww123

我的画的图是由直线构成的。。。

- m  f; D4 p, E/ w- F" C2 _& E+ m运行以后，都要转换视角，才能看的出是三维的。。

请问如何在程序中实现一出图就是三维的。。。或者转换一下视角？
* c9 P5 Y& Z4 i4 ^) i/ n
, Z! Y( n) l3 C$ j* m! n大概就是从我附件的图一。。变为图二。。。
6 E; x1 T) K/ v1 c
0 J3 ?% K. R0 U8 l% y( E6 J$ v[ 本帖最后由 jjww123 于 2009-2-5 15:08 编辑 ]

woaishuijia

这需要使用命名视图，参见下面代码

1. 
   
2. Sub A()
   ( Z4 f5 G4 |6 x; A! ~" p
3.     Dim V As AcadView, D(2) As Double
   
4.     With ThisDrawing
   
5.         '新建视图
   8 a6 [: ?7 k5 ~$ P! Z
6.         Set V = .Views.Add("AAA")
   
7.         '设置新视图的方向
   
8.         D(0) = -1: D(1) = -1: D(2) = 1
   
9.         V.Direction = D
   . x; y+ W7 V9 c3 S- C9 e# c
10.         '活动视口设置为该视图
    
11.         .ActiveViewport.SetView V
    
12.         '重置活动视口
    1 J5 n, s( _' ^
13.         .ActiveViewport = .ActiveViewport
    # K, Q: @! U' C( C
14.     End With
    
15.     '缩放视图
    3 w6 P2 s9 v8 G  T; W6 j4 G* E
16.     ZoomAll
    ; h% r; W+ ?1 @& ~+ ^$ A5 ^
17. End Sub
    
18. 
    

复制代码

jjww123

我把。。
9 T/ O) @5 _8 }" k; P
5 S) V1 ?0 K* G8 I'设置新视图的方向
        D(0) = -0.1: D(1) = -0.5: D(2) = 1
        
        V.Direction = D
  u& m3 s/ m2 ?
, e; o9 Z. W( L2 q/ R( o请问如何在这个基础上填充我上面的那个椅子面？而视角不变？

如何设置UCS？

jjww123

still waiting~~~

woaishuijia

“UCS”和“视图”是两个不同的概念，它们没有必然的联系。
UCS是用来描述对象空间位置的坐标系，而视图是我们从哪个角度去观察。
创建二维填充对象只能在当前UCS的XY平面上，这与我们从哪个角度观察它无关。
4 p4 r0 g, z' A6 T; v但想在二维线框模式下看到二维填充效果就与视图（观察角度）有关了。我在关于二维填充的帖子上说过，只有在正对着二维填充的平面时才能看到填充效果。
在两个主题帖上，我分别使用了两种改变视图的方法，在二维填充的帖子上的方法是通过发送键盘命令，调用CAD的PLAN命令的方法使视图与当前UCS（也就是二维填充对象的对象坐标系OCS）对正，目的是为了能在二维线框模式下能看到二维填充效果。在这个主题帖的2楼，我用的是“方向”的方法，D(0) = -1: D(1) = -1: D(2) = 1的意思是我站在世界坐标系（-1，-1，1）的位置向坐标原点方向看，相当于CAD预置的西南等轴测视图，目的是为了看到椅子的三维形状。
这两个方法都是在改变观察角度，并不改变用户坐标系UCS。同样的道理，改变了UCS，也并不意味着改变观察方向。
为了创建二维填充，我们要改变UCS。为了看到画图的效果，我们改变“视图”。
/ q5 v. x. X, t但对于你的这个图来说，在二维线框模式下想同时看到椅子面的填充效果和椅子的三维形状是不可能的。如果想看到椅子面的填充效果，就只能从椅子的上方正直地向下看或是从椅子下方正直地向上看，但这样就看不到椅子的三维形状了。如果想看到椅子的三维形状就要从与坐标轴成角度的方向去观察，就无法正对着椅子面。所以只能在着色模式下或真实、概念等模式下看效果。

jjww123

我问的问题都是比较简单的，麻烦楼主扫盲了。。。

[ 本帖最后由 jjww123 于 2009-2-7 19:23 编辑 ]

jjww123

差不多能画简单的了~~


9 P6 d$ w7 n' Q  C- q& s谢谢版主
1 {' \1 U- w. d- B% C+ u
0 q$ y) i" L% S$ ~* {, ~$ {[ 本帖最后由 jjww123 于 2009-2-7 19:22 编辑 ]