請(qǐng)教,，怎樣才能用autolisp在直線兩端各加一個(gè)矩形？

laotoule8

本人不會(huì)autolisp,。請(qǐng)教,，怎樣才能用autolisp在直線兩端各加一個(gè)矩形？比如在白色直線的兩端各加一個(gè)1*5的矩形,？


1 I) |/ p8 B8 ~0 }& f

bianjun68

你是直線先畫(huà)出,，再加矩形,，還是畫(huà)直線的同時(shí)，加上矩形,，一次完成,？

bianjun68

我用VBA實(shí)現(xiàn),。

bianjun68

bianjun68

Sub creatEndRect()
   
    Dim line2 As AcadLine
    ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"
3 _8 P( Y- L5 }9 b1 c3 Y   
- f6 U# @9 P- E  e/ g# t' C    Dim p1
    p1 = line2.startPoint
    Dim p2
  e! l) j* {, o  M/ u6 t: n, o    p2 = line2.endPoint
   
    Dim angle2 As Double
2 c- |% V+ Y/ Q1 F# L    angle2 = line2.angle

    Dim pts1(0 To 7) As Double
& @9 w+ u! y: Z! {! f    Dim pts2(0 To 7) As Double
      
8 e9 E5 B- d: h8 g% V2 ^; U    pts1(0) = CDbl(p1(0)) + 0.5 * Sin(angle2): pts1(1) = CDbl(p1(1)) - 0.5 * Cos(angle2)
! J7 i# H+ V9 r% z" A: V    pts1(2) = pts1(0) + 5 * Cos(angle2): pts1(3) = pts1(1) + 5 * Sin(angle2)
; G; u/ j: u/ f/ u7 L    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)
    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)
   
    Dim pl0 As AcadLWPolyline
    Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)
    Dim pl1 As AcadLWPolyline
1 C- L5 ^/ d9 S. r    Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2)
/ U2 d- {8 L6 o% V1 A% N
    pl0.Closed = True
1 e4 I! y% R2 Q9 y! t! F    pl1.Closed = True

End Sub

bianjun68

不客氣！管用就好！