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

laotoule8

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

bianjun68

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

bianjun68

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

bianjun68

bianjun68

Sub creatEndRect()
; K7 J( ]2 ^+ [( ~, ~   
% t- E8 I+ N9 D7 W' }+ E    Dim line2 As AcadLine
    ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"
+ N% o2 j' \) V$ I   
    Dim p1
    p1 = line2.startPoint
    Dim p2
    p2 = line2.endPoint
   
- W, I$ K8 N. J3 D- L& J    Dim angle2 As Double
    angle2 = line2.angle
4 k/ F9 t3 ~; [# g
2 J/ ^2 a  E# n( H/ q    Dim pts1(0 To 7) As Double
    Dim pts2(0 To 7) As Double
      
' `. ^# d. g4 U+ p- C    pts1(0) = CDbl(p1(0)) + 0.5 * Sin(angle2): pts1(1) = CDbl(p1(1)) - 0.5 * Cos(angle2)
! \2 F" \! m. x9 p' O8 |    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)
3 l9 [: j* i# J: D% g    pts1(6) = pts1(4) - 5 * Cos(angle2): pts1(7) = pts1(5) - 5 * Sin(angle2)
, k+ Y6 U+ O5 {: ~5 |  ]   
    pts2(0) = CDbl(p2(0)) + 0.5 * Sin(angle2): pts2(1) = CDbl(p2(1)) - 0.5 * Cos(angle2)
! k& l' ~# I: X7 G+ e" h6 H    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)
& U( T. I+ n  }8 [/ V- R: i    pts2(6) = pts2(4) + 5 * Cos(angle2): pts2(7) = pts2(5) + 5 * Sin(angle2)
   
    Dim pl0 As AcadLWPolyline
) j) U2 T2 f0 N. l" A% ~# p    Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)
7 V; C3 o: T( s1 _    Dim pl1 As AcadLWPolyline
# t: g3 }8 \3 t1 V. Q( ]! Z    Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2)

) i" O+ L) W/ q% G! S' ?5 q    pl0.Closed = True
    pl1.Closed = True
4 x1 P( M  k" v( y: ]# R
End Sub

bianjun68

不客氣,！管用就好！