请教，怎样才能用autolisp在直线两端各加一个矩形？

laotoule8

本人不会autolisp。请教，怎样才能用autolisp在直线两端各加一个矩形？比如在白色直线的两端各加一个1*5的矩形？
' T, g4 b/ Y; `! C) O0 E
& L; I2 G) G( C; P! h
7 a  y4 L2 G: ^4 a

bianjun68

你是直线先画出，再加矩形，还是画直线的同时，加上矩形，一次完成？

bianjun68

我用VBA实现。

bianjun68

bianjun68

Sub creatEndRect()
   
    Dim line2 As AcadLine
    ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"
   
    Dim p1
    p1 = line2.startPoint
2 t; ]/ d2 N" e, s+ b0 D    Dim p2
1 k; r8 i7 t$ c  h+ Q. ?    p2 = line2.endPoint
! {; n: ]+ `8 B, S8 E& j   
: y) o% ^" P# I$ X& U    Dim angle2 As Double
# g9 H, M1 X% a3 I    angle2 = line2.angle

. Z: b2 t$ a8 x$ J. S% e! }    Dim pts1(0 To 7) As Double
0 a% O; j; q! r0 C: a% ?) Q    Dim pts2(0 To 7) As Double
      
2 V, \0 ]4 c$ q; i4 q    pts1(0) = CDbl(p1(0)) + 0.5 * Sin(angle2): pts1(1) = CDbl(p1(1)) - 0.5 * Cos(angle2)
# l8 C* @& k) D) G    pts1(2) = pts1(0) + 5 * Cos(angle2): pts1(3) = pts1(1) + 5 * Sin(angle2)
! |% y6 o3 c# E& b/ Q0 O/ x2 T; N    pts1(4) = pts1(2) - 1 * Sin(angle2): pts1(5) = pts1(3) + 1 * Cos(angle2)
* ?( l# M2 g: x2 i    pts1(6) = pts1(4) - 5 * Cos(angle2): pts1(7) = pts1(5) - 5 * Sin(angle2)
   
* i( \4 e) w+ V* z! k    pts2(0) = CDbl(p2(0)) + 0.5 * Sin(angle2): pts2(1) = CDbl(p2(1)) - 0.5 * Cos(angle2)
    pts2(2) = pts2(0) - 5 * Cos(angle2): pts2(3) = pts2(1) - 5 * Sin(angle2)
0 B9 c2 I: a, V1 f* [    pts2(4) = pts2(2) - 1 * Sin(angle2): pts2(5) = pts2(3) + 1 * Cos(angle2)
    pts2(6) = pts2(4) + 5 * Cos(angle2): pts2(7) = pts2(5) + 5 * Sin(angle2)
+ O/ W5 L% l) L! }3 P   
    Dim pl0 As AcadLWPolyline
    Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)
    Dim pl1 As AcadLWPolyline
    Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2)

    pl0.Closed = True
. J# l) [. G% B    pl1.Closed = True
( {2 p, x0 _! T$ j5 e) d: l; L
End Sub

bianjun68

不客气！管用就好！