版主请进。。如何转变坐标？使两个两个图处在同一面上？

jjww123

弯曲的那个是椅子的靠背。。。直的是椅子腿
) R9 s) v0 w7 g; c9 G) d9 {
如何转变让椅子腿接在靠背上。。
7 S& m1 f  P) ?& r: {) O; p# B
说下如何转变坐标系就行。。不用认真接。。谢谢
6 Y) @, L' U+ s0 ~& o- B
$ s5 l( }0 `$ g0 K( J7 ~$ i
下面是代码。。
& U- e; K5 Y: V+ L( A3 o2 O$ U
Sub A()
" E8 B6 T9 }' a8 P1 F    Dim PL(0) As AcadLWPolyline, Ps(11) As Double
! C6 y6 S/ r6 |   
; \" T' f" I: w& G4 |( K    Dim R1 As Variant
   
: e: i6 Y9 m$ [& f   
    Dim S1 As Acad3DSolid
. T# k" D7 ?! O- v% {   
! S- }  J( d% {, o3 v3 S( F
( D# h) r1 b- G# w6 i. S     With ThisDrawing
# ^1 P( w. d* ?" f' A+ }   
. F+ ~$ B1 ^1 [6 }      
         '定义优化多段线的顶点坐标
7 U. F$ D0 @/ _1 P) s$ J        Ps(0) = 0: Ps(1) = 0
        Ps(2) = 2: Ps(3) = 0
        
        Ps(4) = -3: Ps(5) = 16
- a- n0 v2 n% [" T        
: h+ _/ Y" y. ~        Ps(6) = -15: Ps(7) = 40
% ]6 t+ i" s5 l- |        Ps(8) = -17: Ps(9) = 40
' q- B& S# w- M9 j4 O& l        
        Ps(10) = -5: Ps(11) = 16
        
      
        
        '创建优化多段线
0 f1 Z3 e2 Z( c& c        Set PL(0) = .ModelSpace.AddLightWeightPolyline(Ps)
        
        '多段线闭合
5 h9 w* X4 m6 v5 a% m' O        PL(0).Closed = True
        
" i+ q+ D/ l9 d  @' z" \        R1 = .ModelSpace.AddRegion(PL)
        
        
        '靠背
        
7 W' H2 `; h0 y/ I        Set S1 = .ModelSpace.AddExtrudedSolid(R1(0), 2, 0)
$ l. l  U) r6 Z: U7 m( J        
      
      '椅子腿
6 n9 }3 U" k0 X2 ~" I$ @* D        
4 l2 ^/ J4 T0 l" {9 m        Dim boxobj1 As Acad3DSolid
      
        Dim length As Double, width As Double, height As Double
( Z3 g3 ]+ Z# V4 V: y/ g; }; a       Dim center1(2) As Double
8 }  b8 t0 W0 |" y: A      
# S% Y1 l9 r9 `* `

      center1(0) = Sqr(2): center1(1) = 10: center1(2) = Sqr(2)
      length = 2: width = 2: height = 20
      Set boxobj1 = ThisDrawing.ModelSpace.AddBox(center1, length, width, height)
! D1 d" g) a, K# I* G1 u
End With
9 [* C' X8 l( H; X5 z$ W- V1 |
( P% x+ p! a& @; ^8 G2 gEnd Sub

jjww123

如何让靠背按照原先的坐标轴画
1 p3 J9 J* i0 Q- i2 C+ W
6 I" A& R# F5 u然后椅子腿按照另外一个坐标轴画呢？

jjww123

好像解决了~~