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

jjww123

弯曲的那个是椅子的靠背。。。直的是椅子腿
$ S$ N9 t( S) _+ {- a
2 U# b/ _6 l0 U( ^: a如何转变让椅子腿接在靠背上。。
7 }- J$ \0 M0 x
! j2 \' _! F3 G7 S说下如何转变坐标系就行。。不用认真接。。谢谢
  ]1 X2 P* ]. _" N" u$ y+ |; n
& d" q6 e, q( m* M
下面是代码。。

Sub A()
    Dim PL(0) As AcadLWPolyline, Ps(11) As Double
   
    Dim R1 As Variant
  H) Y* ^! T3 \& t# k- g   
  m* u! g0 k- ]/ ]   
    Dim S1 As Acad3DSolid
1 x- J# N& i8 x+ {7 w   

, e- D1 D: ~3 k! I% t, Y+ m2 ]3 x6 F     With ThisDrawing
   
      
! d7 `" w7 x( \: m, p) V: m: g         '定义优化多段线的顶点坐标
        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
+ a- |. s. J% f4 l2 Y: y8 c0 o        
        Ps(10) = -5: Ps(11) = 16
% i$ r3 j/ G- x/ s        
      
7 N: W4 \) ]2 r1 F9 _        
* ]/ `& ~; L, l: U2 ^) p& E        '创建优化多段线
& q; O3 T1 K4 V8 k- c+ M/ d$ v        Set PL(0) = .ModelSpace.AddLightWeightPolyline(Ps)
        
        '多段线闭合
        PL(0).Closed = True
        
4 S% t' {' ], a# n# E        R1 = .ModelSpace.AddRegion(PL)
        
        
        '靠背
        
        Set S1 = .ModelSpace.AddExtrudedSolid(R1(0), 2, 0)
        
      
      '椅子腿
        
( m- m2 W" O  T        Dim boxobj1 As Acad3DSolid
      
8 N$ t4 t$ B1 J6 T: s" I        Dim length As Double, width As Double, height As Double
       Dim center1(2) As Double
! g  B2 F) ~9 T# Q      
+ P2 z  _1 ~" t( n4 s2 K9 g! f& a
: W% C  @3 R& t* p/ N  \7 a
$ ]- S$ m; w1 c      center1(0) = Sqr(2): center1(1) = 10: center1(2) = Sqr(2)
1 s* G! o1 p8 n  a. a  h& I( o8 t      length = 2: width = 2: height = 20
      Set boxobj1 = ThisDrawing.ModelSpace.AddBox(center1, length, width, height)
9 J; ~1 ?- N) k8 |7 m) E; s
End With
; i# a3 \" s8 G8 f1 }! n
End Sub

jjww123

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

$ J5 q) f: v. b% H3 J; r然后椅子腿按照另外一个坐标轴画呢？

jjww123

好像解决了~~