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

laotoule8

本人不會autolisp。請教，怎樣才能用autolisp在直線兩端各加一個矩形？比如在白色直線的兩端各加一個1*5的矩形？
% [( ], Q9 R0 F8 g1 V2 R
9 }" Y7 {6 n* H( X6 `% \

bianjun68

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

bianjun68

我用VBA實現。

bianjun68

bianjun68

Sub creatEndRect()
   
    Dim line2 As AcadLine
% n/ T  V: [% u' V- i* Z: b6 O/ \3 q% v    ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"
" I  z! f7 @* N8 S1 L   
    Dim p1
    p1 = line2.startPoint
7 G' V" }' d, |3 x& P' @    Dim p2
) N' l: `# ^7 v0 q& _+ v  q    p2 = line2.endPoint
   
    Dim angle2 As Double
    angle2 = line2.angle
/ M6 O1 s: t; G' P! a) R0 R
    Dim pts1(0 To 7) As Double
6 U9 s; o5 Q3 p: b# K% D    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)
0 D* r6 F! r: l8 @4 K    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)
& e( ~! `; E! ?+ l; a. d) K   
    pts2(0) = CDbl(p2(0)) + 0.5 * Sin(angle2): pts2(1) = CDbl(p2(1)) - 0.5 * Cos(angle2)
' X; [8 U- s( f9 k    pts2(2) = pts2(0) - 5 * Cos(angle2): pts2(3) = pts2(1) - 5 * Sin(angle2)
' m5 A2 S  t' v1 N7 O, C# k9 j. X+ |    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)
   
+ [+ B& @, i: ~, {) t$ R* Z    Dim pl0 As AcadLWPolyline
    Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)
    Dim pl1 As AcadLWPolyline
; P  V6 k' Q# _: Y- p. H    Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2)
8 i& S$ b: i9 A8 C6 m
    pl0.Closed = True
8 m7 P" U6 Z: b* i. U9 z! N    pl1.Closed = True

: ?$ u% m$ D1 D5 e/ {End Sub

bianjun68

不客氣！管用就好！