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

jjww123

弯曲的那个是椅子的靠背。。。直的是椅子腿
% z! r6 L4 x; \! p2 Y: R
* b% q5 G8 D* G+ l* D如何转变让椅子腿接在靠背上。。

6 ?% t! k4 q2 V: o说下如何转变坐标系就行。。不用认真接。。谢谢


# c" @3 s2 M% [下面是代码。。
- y8 s! I5 r3 l3 I; S. c; c2 ~
Sub A()
    Dim PL(0) As AcadLWPolyline, Ps(11) As Double
   
" ~) }0 B2 ~$ T    Dim R1 As Variant
8 o3 u, N1 [5 O) g5 c: Y8 e+ S+ ^   
   
9 u* S; U6 k# j7 b    Dim S1 As Acad3DSolid
   

" `* {4 Y2 t: y     With ThisDrawing
   
$ A% x( |5 D  F      
$ `/ U0 V: X- ]9 {         '定义优化多段线的顶点坐标
, y8 i$ g8 U! c/ w  e        Ps(0) = 0: Ps(1) = 0
% X. K! N; `. w* o4 j        Ps(2) = 2: Ps(3) = 0
        
& J2 n) T7 j4 \+ S$ @        Ps(4) = -3: Ps(5) = 16
        
, T$ M, r* V) Y+ N: B        Ps(6) = -15: Ps(7) = 40
0 o& y7 T$ z# t) k& |( B        Ps(8) = -17: Ps(9) = 40
        
2 ]+ ?5 O$ B; I        Ps(10) = -5: Ps(11) = 16
# P7 F2 Z$ l  L: t/ _) r1 U        
7 g# v; C) `! H- w      
        
        '创建优化多段线
        Set PL(0) = .ModelSpace.AddLightWeightPolyline(Ps)
        
; x+ i2 o% n# F, c1 D9 V        '多段线闭合
! B% P) {. T- w/ }        PL(0).Closed = True
( d5 M+ z) K& e8 E. n& x        
) H* y* V" z" p* t( ^- K        R1 = .ModelSpace.AddRegion(PL)
# Q7 _1 O% C, K; X5 ~" c/ o        
        
3 c6 D5 O; E/ v% H% Q        '靠背
        
& L" W% b( h7 E        Set S1 = .ModelSpace.AddExtrudedSolid(R1(0), 2, 0)
: u7 m3 [7 f) m  O0 |        
$ I9 D. B' A1 ?2 ~$ S. K  V      
      '椅子腿
        
        Dim boxobj1 As Acad3DSolid
      
        Dim length As Double, width As Double, height As Double
       Dim center1(2) As Double
( U8 v) ]; t, s0 w  G9 c1 y' p$ D% p      


  E6 L, W1 s) e3 W: K6 q      center1(0) = Sqr(2): center1(1) = 10: center1(2) = Sqr(2)
      length = 2: width = 2: height = 20
: I8 q- w1 ~- _7 C1 M5 c      Set boxobj1 = ThisDrawing.ModelSpace.AddBox(center1, length, width, height)

; I% }% A; p" Q: n& X7 \1 L+ ^End With
; Z1 W. a+ t' I, a
End Sub

jjww123

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

+ q2 U. c/ D/ U/ `然后椅子腿按照另外一个坐标轴画呢？

jjww123

好像解决了~~