|
|
Sub creatEndRect(), _( I& a, a" y& Y7 J: o. K% p
/ o% X- R1 s; n% n8 k( J/ N1 {+ S Dim line2 As AcadLine
9 @# g Q* J8 b% ^. H. P7 ? ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"; y: |& l( N7 C" i& ?
( z0 ^; y% r7 C8 X: t: @, r
Dim p1
2 E+ w, n* H. J3 @6 O: j p1 = line2.startPoint
1 P* t1 b1 N& ~- [1 {9 S) T Dim p27 u2 \; o# r: d( I6 s1 |8 ]8 l/ I
p2 = line2.endPoint
$ K7 a+ ?( Y0 O. l) G; v8 A8 |
9 G& _$ e2 e+ g# H Dim angle2 As Double
. p1 Y6 v! N8 g& ~) w9 y angle2 = line2.angle
7 t( ]: v1 N7 q3 D1 B4 Q; x' B: v, x) V) C( V% E; a' I
Dim pts1(0 To 7) As Double( x6 Z* N$ T4 `" s
Dim pts2(0 To 7) As Double. H& S2 [# ^1 N4 {6 q3 W+ _
8 ~1 o7 N" U' E5 `6 n7 o! ^
pts1(0) = CDbl(p1(0)) + 0.5 * Sin(angle2): pts1(1) = CDbl(p1(1)) - 0.5 * Cos(angle2)& P7 u# m/ s7 k% Y7 b+ i3 N7 o
pts1(2) = pts1(0) + 5 * Cos(angle2): pts1(3) = pts1(1) + 5 * Sin(angle2)
/ S: V* p4 q4 t pts1(4) = pts1(2) - 1 * Sin(angle2): pts1(5) = pts1(3) + 1 * Cos(angle2)
7 i1 I" n( s& E0 A* y0 S. w pts1(6) = pts1(4) - 5 * Cos(angle2): pts1(7) = pts1(5) - 5 * Sin(angle2)
R. {, @ g4 i " Y& B" B3 l5 F. a" T" |. _
pts2(0) = CDbl(p2(0)) + 0.5 * Sin(angle2): pts2(1) = CDbl(p2(1)) - 0.5 * Cos(angle2)
2 i( S+ T. t* \) H' w+ h" g( C pts2(2) = pts2(0) - 5 * Cos(angle2): pts2(3) = pts2(1) - 5 * Sin(angle2)
/ e- l, T. Y9 g: O pts2(4) = pts2(2) - 1 * Sin(angle2): pts2(5) = pts2(3) + 1 * Cos(angle2)8 @7 ~% `/ q1 o4 V- L4 j2 a. P3 {! h! Q
pts2(6) = pts2(4) + 5 * Cos(angle2): pts2(7) = pts2(5) + 5 * Sin(angle2)
+ R& V. ]1 I6 H& ?' s+ J ( B; V6 d* R( V. V
Dim pl0 As AcadLWPolyline
. X4 u( p( \! T( Y/ ] Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)# ]3 l* d6 V3 t) h6 a- l. W1 \
Dim pl1 As AcadLWPolyline" _1 I$ t9 Y( L. P0 W- J
Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2): ? M1 P9 F/ s% }6 Q8 h: K! M* Y
, `& `% _/ `8 @1 l! T: z
pl0.Closed = True
& g7 ^6 D0 l9 a: ]8 P pl1.Closed = True$ ?. g. S" }, [' g2 T- q
, v( ~9 g- g2 m6 ~1 lEnd Sub |
|
發表于 2024-2-7 18:01:20
QQ好友和群
QQ空間
