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

jjww123

弯曲的那个是椅子的靠背。。。直的是椅子腿
) n$ s5 f. O7 B5 F
如何转变让椅子腿接在靠背上。。
9 |; Q( W. O4 Z/ S, z
说下如何转变坐标系就行。。不用认真接。。谢谢

6 _8 h' b2 x2 O$ l
下面是代码。。

5 r1 s  B( h  ]Sub A()
/ s3 x6 X/ o; i+ g0 L3 c4 {    Dim PL(0) As AcadLWPolyline, Ps(11) As Double
   
    Dim R1 As Variant
5 X* K, |, J; c* f, K* A5 i; _   
) b9 P) Q6 o& R+ H   
    Dim S1 As Acad3DSolid
, T) e/ I# ~( I9 @" M   

     With ThisDrawing
   
      
         '定义优化多段线的顶点坐标
; C, R; l. J2 s        Ps(0) = 0: Ps(1) = 0
        Ps(2) = 2: Ps(3) = 0
        
        Ps(4) = -3: Ps(5) = 16
        
        Ps(6) = -15: Ps(7) = 40
        Ps(8) = -17: Ps(9) = 40
% M) T  K4 p5 f" Z        
$ e# {2 i( e6 T: t5 `. m8 o: u/ `        Ps(10) = -5: Ps(11) = 16
, d4 m' t8 }) X        
3 s# O4 w, s- O5 m$ R' [      
        
        '创建优化多段线
        Set PL(0) = .ModelSpace.AddLightWeightPolyline(Ps)
        
* j: U2 m- Z" a        '多段线闭合
6 ^4 a7 [( X. G' g) p        PL(0).Closed = True
  D; Y+ u: U- G" x% u( O        
        R1 = .ModelSpace.AddRegion(PL)
        
; x5 o) M# r: D/ r; z8 X        
, \; R( ~" I* i! H/ R        '靠背
        
1 n8 L! a' W; h: c/ c! l        Set S1 = .ModelSpace.AddExtrudedSolid(R1(0), 2, 0)
        
9 y4 k# y) K2 f. \0 t, d4 \      
. J# K; G- L! R# ]5 a4 b      '椅子腿
        
/ x0 g: i( h: o: c& O        Dim boxobj1 As Acad3DSolid
: h1 c5 U$ F- B0 T+ u0 z0 o6 a      
        Dim length As Double, width As Double, height As Double
       Dim center1(2) As Double
; E$ B) b2 Y$ n      
: I; N& @* u% y5 W

      center1(0) = Sqr(2): center1(1) = 10: center1(2) = Sqr(2)
+ ~# V, M; {. p/ |% d$ J      length = 2: width = 2: height = 20
      Set boxobj1 = ThisDrawing.ModelSpace.AddBox(center1, length, width, height)
; P5 u/ V. J8 x9 `
End With

End Sub

jjww123

如何让靠背按照原先的坐标轴画

/ {% y& D9 e0 V& e* B然后椅子腿按照另外一个坐标轴画呢？

jjww123

好像解决了~~