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

laotoule8

本人不会autolisp。请教，怎样才能用autolisp在直线两端各加一个矩形？比如在白色直线的两端各加一个1*5的矩形？
  P$ g3 o$ ]# X) J. T) ~- j
" G) x8 L6 y/ d+ t! z. ]" D" u

bianjun68

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

bianjun68

我用VBA实现。

bianjun68

bianjun68

Sub creatEndRect()
   
8 W( Q+ G, Y* M5 z* r    Dim line2 As AcadLine
9 W5 k0 o" q8 h    ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"
' W: P  Z- v2 z/ l/ e, `) {6 ?   
    Dim p1
    p1 = line2.startPoint
  v* x" u# K! @  G1 O3 ^' q    Dim p2
: M" N5 u1 I( ~8 i+ j8 H    p2 = line2.endPoint
& |, K9 `& X9 @; F6 d1 Z3 C   
    Dim angle2 As Double
    angle2 = line2.angle

    Dim pts1(0 To 7) As Double
    Dim pts2(0 To 7) As Double
+ Q# I9 T0 J7 }! v! c/ U, v, C+ o      
( }8 J1 c* ?  w  G+ ^    pts1(0) = CDbl(p1(0)) + 0.5 * Sin(angle2): pts1(1) = CDbl(p1(1)) - 0.5 * Cos(angle2)
    pts1(2) = pts1(0) + 5 * Cos(angle2): pts1(3) = pts1(1) + 5 * Sin(angle2)
    pts1(4) = pts1(2) - 1 * Sin(angle2): pts1(5) = pts1(3) + 1 * Cos(angle2)
6 V5 {5 b! x2 u* T$ t; i- |    pts1(6) = pts1(4) - 5 * Cos(angle2): pts1(7) = pts1(5) - 5 * Sin(angle2)
   
    pts2(0) = CDbl(p2(0)) + 0.5 * Sin(angle2): pts2(1) = CDbl(p2(1)) - 0.5 * Cos(angle2)
( j  }- H  I: i: v) M    pts2(2) = pts2(0) - 5 * Cos(angle2): pts2(3) = pts2(1) - 5 * Sin(angle2)
    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)
   
8 S$ l: X- I' i    Dim pl0 As AcadLWPolyline
* S  z1 m5 @& ~# U. i    Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)
, E$ L5 U( P/ T9 S: e    Dim pl1 As AcadLWPolyline
    Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2)
* M& S3 J  |! y  n) b& _1 O
- b) s' `% Y: }0 I6 k    pl0.Closed = True
3 M4 _2 b8 {  l( F& j8 J% ]& N1 ~) ~    pl1.Closed = True
& O( C  y% e8 r% q4 ^
End Sub

bianjun68

不客气！管用就好！