請教，怎樣才能用autolisp在直線兩端各加一個矩形？

laotoule8

本人不會autolisp。請教，怎樣才能用autolisp在直線兩端各加一個矩形？比如在白色直線的兩端各加一個1*5的矩形？

1 `4 N/ o. T) N0 A* \
) V, b5 I, L2 S/ e

bianjun68

你是直線先畫出，再加矩形，還是畫直線的同時，加上矩形，一次完成？

bianjun68

我用VBA實現(xiàn)。

bianjun68

bianjun68

Sub creatEndRect()
   
    Dim line2 As AcadLine
. _+ k8 Q/ K1 [! i( l    ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"
, S2 U1 B2 _1 [   
    Dim p1
    p1 = line2.startPoint
    Dim p2
- z5 K0 @  C+ ]3 f' z& `    p2 = line2.endPoint
+ y  a! o0 S  ^0 @8 Q' G' a   
+ ?* k, v3 z& I2 h# g* j' k    Dim angle2 As Double
. S/ ?8 h% Y. u4 U) Q) _# ~* _    angle2 = line2.angle
3 v7 b* y# ^- e  z$ f9 W
    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)
    pts1(4) = pts1(2) - 1 * Sin(angle2): pts1(5) = pts1(3) + 1 * Cos(angle2)
: P6 |/ W% `* B    pts1(6) = pts1(4) - 5 * Cos(angle2): pts1(7) = pts1(5) - 5 * Sin(angle2)
   
6 `  ]& F% [7 W  Z    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)
    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 d# ^) ]" g( e% e' ~   
6 f( E2 m. B7 f6 X- t, d* d; C    Dim pl0 As AcadLWPolyline
0 y7 D+ T4 R. @# o1 V9 a4 D    Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)
    Dim pl1 As AcadLWPolyline
    Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2)

    pl0.Closed = True
) x4 T. b. P1 L0 c3 g  M    pl1.Closed = True

! M% d* J2 B: q) C3 l, h& UEnd Sub

bianjun68

不客氣！管用就好！