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

jjww123

弯曲的那个是椅子的靠背。。。直的是椅子腿
; p2 \7 x; V6 @7 ?
$ t& V0 W5 M( k如何转变让椅子腿接在靠背上。。

说下如何转变坐标系就行。。不用认真接。。谢谢
0 U/ _! I/ v* t! x: g
: I  ^- X* f1 ?/ o, W; D8 G
& h  [$ @; w- V. p下面是代码。。
# A, b, N9 S8 J
Sub A()
$ L9 d! p8 g+ H0 ]: R4 y    Dim PL(0) As AcadLWPolyline, Ps(11) As Double
   
& d6 [) v0 A! q    Dim R1 As Variant
   
   
4 }& S" B3 w8 `9 V6 u$ i    Dim S1 As Acad3DSolid
% g$ ^6 @. q" d( U) _% P   

     With ThisDrawing
   
      
5 Z2 N$ }+ [( O& Q         '定义优化多段线的顶点坐标
        Ps(0) = 0: Ps(1) = 0
9 `7 K  s2 S! T4 Q        Ps(2) = 2: Ps(3) = 0
        
& D" J# y1 Q! R$ \) Q        Ps(4) = -3: Ps(5) = 16
        
0 q/ b& P% U0 c/ _! l. S* Q9 }+ }        Ps(6) = -15: Ps(7) = 40
        Ps(8) = -17: Ps(9) = 40
- [& S! u: A" E0 k5 h5 }        
        Ps(10) = -5: Ps(11) = 16
        
# a0 J: W  `' c6 R/ I* O/ k; V      
        
        '创建优化多段线
        Set PL(0) = .ModelSpace.AddLightWeightPolyline(Ps)
+ z+ h2 v0 n  v( B& X        
        '多段线闭合
        PL(0).Closed = True
* X7 [: k* L$ L' ?: m4 b) U1 l9 W: h        
        R1 = .ModelSpace.AddRegion(PL)
        
        
        '靠背
# H/ c# i4 D% X5 p/ s7 x: F# R        
1 d3 ~" \0 S; [: T/ ]: F        Set S1 = .ModelSpace.AddExtrudedSolid(R1(0), 2, 0)
$ P5 u0 P5 K" Q5 a; p8 d        
0 M& L. w* N) }( T) |  x      
      '椅子腿
        
        Dim boxobj1 As Acad3DSolid
& ]% r  {5 W# L; _, w' X      
! ?1 c5 ], R  `        Dim length As Double, width As Double, height As Double
       Dim center1(2) As Double
      

, W+ {4 _4 ?$ e, s6 j) |7 [# U
- q' N; B9 x; S/ U* m/ r      center1(0) = Sqr(2): center1(1) = 10: center1(2) = Sqr(2)
      length = 2: width = 2: height = 20
' o" a& ]5 X8 q! G2 _; `# k$ o      Set boxobj1 = ThisDrawing.ModelSpace.AddBox(center1, length, width, height)
) V0 H% ^7 w4 ]) w/ w6 N
End With
+ L2 j' a, t- A+ H+ ]
6 E% K+ H, B9 M& zEnd Sub

jjww123

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

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

jjww123

好像解决了~~