|
Sub creatEndRect(): p9 W2 e' Q- ^$ A. |: ^5 k
7 q) X2 X: X9 M5 h1 p4 l0 w
Dim line2 As AcadLine
% n/ T V: [% u' V- i* Z: b6 O/ \3 q% v ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"
" I z! f7 @* N8 S1 L - s: x* P& h% @3 }9 ^
Dim p1& P( E% [+ g" y$ Z: z
p1 = line2.startPoint
7 G' V" }' d, |3 x& P' @ Dim p2
) N' l: `# ^7 v0 q& _+ v q p2 = line2.endPoint4 c- I; t4 Y2 n5 ~
" i+ [2 z0 T, B0 G6 _: A( W1 x7 }
Dim angle2 As Double% \0 w W( H- K0 S8 Q
angle2 = line2.angle
/ M6 O1 s: t; G' P! a) R0 R$ A8 R; O9 `% o& o1 s; C
Dim pts1(0 To 7) As Double
6 U9 s; o5 Q3 p: b# K% D Dim pts2(0 To 7) As Double2 Q# r1 r; a; Y- |
& t8 ]! M2 x' g+ k0 w
pts1(0) = CDbl(p1(0)) + 0.5 * Sin(angle2): pts1(1) = CDbl(p1(1)) - 0.5 * Cos(angle2)8 {/ i, E3 d n7 L
pts1(2) = pts1(0) + 5 * Cos(angle2): pts1(3) = pts1(1) + 5 * Sin(angle2)
0 D* r6 F! r: l8 @4 K pts1(4) = pts1(2) - 1 * Sin(angle2): pts1(5) = pts1(3) + 1 * Cos(angle2)5 a+ u5 U g! B4 B
pts1(6) = pts1(4) - 5 * Cos(angle2): pts1(7) = pts1(5) - 5 * Sin(angle2)
& e( ~! `; E! ?+ l; a. d) K " {6 O& G0 ~6 H1 m6 I
pts2(0) = CDbl(p2(0)) + 0.5 * Sin(angle2): pts2(1) = CDbl(p2(1)) - 0.5 * Cos(angle2)
' X; [8 U- s( f9 k pts2(2) = pts2(0) - 5 * Cos(angle2): pts2(3) = pts2(1) - 5 * Sin(angle2)
' m5 A2 S t' v1 N7 O, C# k9 j. X+ | pts2(4) = pts2(2) - 1 * Sin(angle2): pts2(5) = pts2(3) + 1 * Cos(angle2)6 ~& c4 X% I: v6 r
pts2(6) = pts2(4) + 5 * Cos(angle2): pts2(7) = pts2(5) + 5 * Sin(angle2)! `! n! Z) i0 v5 n' J+ B& n% o; J
+ [+ B& @, i: ~, {) t$ R* Z Dim pl0 As AcadLWPolyline# G ]* u8 X1 U$ C6 S8 u
Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)- X$ l4 r) b2 J5 p
Dim pl1 As AcadLWPolyline
; P V6 k' Q# _: Y- p. H Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2)
8 i& S$ b: i9 A8 C6 m3 A" ~6 ~* [" L' E9 s
pl0.Closed = True
8 m7 P" U6 Z: b* i. U9 z! N pl1.Closed = True% P: V' b- l* Q+ ^# ?5 |: u$ }
: ?$ u% m$ D1 D5 e/ {End Sub |
|