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

laotoule8

本人不会autolisp。请教，怎样才能用autolisp在直线两端各加一个矩形？比如在白色直线的两端各加一个1*5的矩形？

- |- F* D& O2 R3 Z

bianjun68

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

bianjun68

我用VBA实现。

bianjun68

bianjun68

Sub creatEndRect()
+ g- ~# `6 ]: a+ q( ], p   
6 f0 a5 |9 D1 Y; n    Dim line2 As AcadLine
0 t$ Z+ Y& b. d$ h    ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"
   
4 y+ O' X3 j7 x3 [6 X    Dim p1
* K; Z$ T( `  k( p9 n# t' P    p1 = line2.startPoint
- m. @! F' I6 Y1 }    Dim p2
% P7 D' y6 Z, x( c% R0 [    p2 = line2.endPoint
' p$ R4 {5 }8 n6 I   
    Dim angle2 As Double
' Z) L3 A8 ]. R$ K    angle2 = line2.angle

, U, i  Z0 Q* x" e7 J3 L8 w( Z    Dim pts1(0 To 7) As Double
    Dim pts2(0 To 7) As Double
      
    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)
) ]) z. ]- v+ F    pts1(4) = pts1(2) - 1 * Sin(angle2): pts1(5) = pts1(3) + 1 * Cos(angle2)
    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)
& ^! P6 b# h0 C# {    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)
; L3 B3 c" K+ n   
. j, _8 U7 T/ X3 E. T( R6 G    Dim pl0 As AcadLWPolyline
3 V& q6 ^# W; M8 |/ B$ ?+ Y: C    Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)
9 M8 N0 F* |" n, D    Dim pl1 As AcadLWPolyline
+ I8 h, z6 U+ q    Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2)

    pl0.Closed = True
3 v  P/ s* i2 V5 |4 C! B    pl1.Closed = True

2 S# C2 Z' w- mEnd Sub

bianjun68

不客气！管用就好！