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

jjww123

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

如何转变让椅子腿接在靠背上。。

5 r2 t9 j  R, {. ]& q. ~说下如何转变坐标系就行。。不用认真接。。谢谢

# r7 A. u, P) l; r* r, J1 M
( {. H6 _9 W6 A  I9 ?, H2 V6 `下面是代码。。

Sub A()
6 B. u: R# f9 ?    Dim PL(0) As AcadLWPolyline, Ps(11) As Double
' y2 \/ }8 s; u9 S   
    Dim R1 As Variant
. x* L, R1 J5 P6 v) N   
) `, n2 A3 T: n& z1 }+ A$ I   
+ j% Z5 f1 i- h    Dim S1 As Acad3DSolid
, ~9 P0 \' d- Z- ~* L( n- W   
' t7 ]2 N) J4 O* {* m
     With ThisDrawing
7 n1 }0 C4 b5 V1 g   
      
/ x! P- b8 g' X         '定义优化多段线的顶点坐标
        Ps(0) = 0: Ps(1) = 0
        Ps(2) = 2: Ps(3) = 0
! m1 b9 ]5 H; d1 B7 \( ]        
        Ps(4) = -3: Ps(5) = 16
        
3 w% o5 s  ~: Q        Ps(6) = -15: Ps(7) = 40
        Ps(8) = -17: Ps(9) = 40
        
* }: W; i" b5 m5 H6 h( i+ Q        Ps(10) = -5: Ps(11) = 16
! `) c2 v2 c6 y4 a0 H        
6 R) S6 U6 z1 q. n      
        
5 D6 P! L+ a4 j+ r) P        '创建优化多段线
        Set PL(0) = .ModelSpace.AddLightWeightPolyline(Ps)
) m0 \5 ?9 }! w, d, X        
0 x: F2 d( q( S6 n3 r3 k) L1 M4 R" I        '多段线闭合
        PL(0).Closed = True
        
0 s( R9 v5 Q& z- C5 n# B$ q; Y; |6 {        R1 = .ModelSpace.AddRegion(PL)
, W7 i7 p7 B4 k( i" g        
        
        '靠背
        
        Set S1 = .ModelSpace.AddExtrudedSolid(R1(0), 2, 0)
5 V# u0 r; o8 E& v- e        
: M# L7 b2 J1 ]. U3 h      
      '椅子腿
; U- ?- d9 B( h$ {' ^$ J        
/ I" a" [3 ?! I4 T, u8 d        Dim boxobj1 As Acad3DSolid
3 A, t& Z2 N* l% z5 h) G% L      
        Dim length As Double, width As Double, height As Double
       Dim center1(2) As Double
. _; l: z( b' x8 j" r- |. Y$ f      


      center1(0) = Sqr(2): center1(1) = 10: center1(2) = Sqr(2)
5 q; \# o$ A$ z( R+ l  G. x      length = 2: width = 2: height = 20
; G: X2 s* ]% W  r, C      Set boxobj1 = ThisDrawing.ModelSpace.AddBox(center1, length, width, height)

) ?8 L9 E) v- T% v. MEnd With
; J. ~: A# c4 I2 k/ g( \8 ?
End Sub

jjww123

如何让靠背按照原先的坐标轴画
) {7 `* b$ a6 {+ n- h2 T2 @
8 {# S$ E" [3 ]7 }" D+ z; G然后椅子腿按照另外一个坐标轴画呢？

jjww123

好像解决了~~