|
|
发表于 2024-2-8 18:18:18
|
显示全部楼层
Sub creatEndRect()
# u. B3 R6 \! s8 V9 c$ K 7 K1 B0 Y7 s- u! M0 `
Dim line2 As AcadLine
7 c H- a! [, @, `% A ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"
( Z& H( i5 Y: P' q1 T8 s3 a ) T% k" Q8 |& U4 P. W
Dim p17 n1 J! N' q3 O8 W3 u# R9 m
p1 = line2.startPoint/ H. L! ~) Z3 a; D3 \7 ]6 B7 d
Dim p2, l [$ V- b8 O7 N9 e7 [ k
p2 = line2.endPoint
0 [# c% k* z$ g% U0 h3 R' h, u
$ w, S9 \- e" o Dim angle2 As Double
$ W; s* T! `4 v3 q angle2 = line2.angle
; ?; ?$ X" E, d3 D6 M9 R2 b; W6 |3 {
Dim pts1(0 To 7) As Double
# v" _9 _( W% U1 _! f! K Dim pts2(0 To 7) As Double) q: o1 G% }) [: Y
. X5 o% ?' f1 A/ _
pts1(0) = CDbl(p1(0)) + 0.5 * Sin(angle2): pts1(1) = CDbl(p1(1)) - 0.5 * Cos(angle2). {9 d$ H1 w1 L9 s
pts1(2) = pts1(0) + 5 * Cos(angle2): pts1(3) = pts1(1) + 5 * Sin(angle2)+ U& h+ q6 }, X, _' ~3 z$ v
pts1(4) = pts1(2) - 1 * Sin(angle2): pts1(5) = pts1(3) + 1 * Cos(angle2) \( \" `$ q8 T% P- r
pts1(6) = pts1(4) - 5 * Cos(angle2): pts1(7) = pts1(5) - 5 * Sin(angle2)
: a- E# N+ X/ p E' ^& _9 M
8 ^. o7 ^) V* i2 J3 | pts2(0) = CDbl(p2(0)) + 0.5 * Sin(angle2): pts2(1) = CDbl(p2(1)) - 0.5 * Cos(angle2)" |7 o) p9 r+ D b" G
pts2(2) = pts2(0) - 5 * Cos(angle2): pts2(3) = pts2(1) - 5 * Sin(angle2)
; f; o4 c4 Y6 Z7 X* Z( x+ E pts2(4) = pts2(2) - 1 * Sin(angle2): pts2(5) = pts2(3) + 1 * Cos(angle2)# T, ~4 J& F' J1 t. @, j
pts2(6) = pts2(4) + 5 * Cos(angle2): pts2(7) = pts2(5) + 5 * Sin(angle2)/ w. U" _# }# ]# m
8 t; V/ u; v/ }+ J Dim pl0 As AcadLWPolyline/ K- P3 Z4 T* q1 _
Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)5 n7 x/ L" X" M- a
Dim pl1 As AcadLWPolyline* m7 J: M9 m! }
Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2)0 C" V+ f( t2 p* B) \
5 ]( ^/ W X# }3 ?& U- X" c. q
pl0.Closed = True
: f: q/ r" }2 ^, {% I' R pl1.Closed = True) ]& g; l1 D' G( }2 _; x3 {
0 j% v1 [% X: |% b
End Sub |
|
