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

jjww123

弯曲的那个是椅子的靠背。。。直的是椅子腿

如何转变让椅子腿接在靠背上。。
9 w+ L+ a- M& B  M3 _5 q
( y  C% `4 b6 m+ ]4 N说下如何转变坐标系就行。。不用认真接。。谢谢
& l: W/ o, G6 l+ }- [/ F+ l1 {: p

+ v; j8 ?- E  t# |下面是代码。。

$ R2 N; ^5 ?( m/ D' c; D4 C- m3 l* GSub A()
    Dim PL(0) As AcadLWPolyline, Ps(11) As Double
   
3 Y' m4 L' z, @    Dim R1 As Variant
   
6 t* Q3 ?! `  O" P) v. u, F   
    Dim S1 As Acad3DSolid
% n( q  S% D& x+ g2 J' A3 T   
# N: x! G8 |5 F8 B2 B( h, z
$ z6 e/ R& g9 P) \1 ]8 c( q     With ThisDrawing
) }+ N& U& X# x" Z7 L& V" H   
      
         '定义优化多段线的顶点坐标
        Ps(0) = 0: Ps(1) = 0
        Ps(2) = 2: Ps(3) = 0
        
# `$ v6 Z7 N$ A        Ps(4) = -3: Ps(5) = 16
        
% z8 l4 g" T7 Y0 p7 E" T" M2 R/ c        Ps(6) = -15: Ps(7) = 40
7 s! P+ w# q0 g+ L9 ~7 v        Ps(8) = -17: Ps(9) = 40
6 ]8 _) F+ K* B  n, L( }% z        
        Ps(10) = -5: Ps(11) = 16
        
      
5 i& C# f4 P4 _% U# J1 O% S* }        
9 }" F6 S+ D4 _5 ]/ l        '创建优化多段线
        Set PL(0) = .ModelSpace.AddLightWeightPolyline(Ps)
+ r( f' M0 `1 c; r        
0 v6 _. k- T8 Z/ r        '多段线闭合
        PL(0).Closed = True
        
+ G& b+ s3 y2 e  y% ~        R1 = .ModelSpace.AddRegion(PL)
; @$ J& C' j2 n0 p        
/ d% D( A& ~7 l( @        
        '靠背
+ G" N0 f# O) t0 I6 l+ q" G0 n8 m        
0 v0 `' ~& F2 P5 T9 {* e" V        Set S1 = .ModelSpace.AddExtrudedSolid(R1(0), 2, 0)
        
      
      '椅子腿
        
7 \: C3 @2 }7 D) t: |0 f. F        Dim boxobj1 As Acad3DSolid
4 G; E/ C8 q7 I& N6 D      
8 Z: l7 e! c) V2 B+ ^7 v! k        Dim length As Double, width As Double, height As Double
) V7 ]0 w! x. V# l7 M" E; g5 M       Dim center1(2) As Double
      


      center1(0) = Sqr(2): center1(1) = 10: center1(2) = Sqr(2)
      length = 2: width = 2: height = 20
5 f( u' o* ^' `      Set boxobj1 = ThisDrawing.ModelSpace.AddBox(center1, length, width, height)
1 G+ z+ B0 O: h) e" u
End With

End Sub

jjww123

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

然后椅子腿按照另外一个坐标轴画呢？

jjww123

好像解决了~~