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

laotoule8

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

bianjun68

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

bianjun68

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

bianjun68

bianjun68

Sub creatEndRect()
" O* \& _& Z1 o  t9 ~   
    Dim line2 As AcadLine
( l% |9 }, u  e0 M+ l/ e* @    ThisDrawing.Utility.GetEntity line2, basePnt, "Select an line:"
   
    Dim p1
5 y3 f0 Q( x! Q7 }! K$ y    p1 = line2.startPoint
    Dim p2
& `( v' u3 M# @+ p4 p! I2 I3 y    p2 = line2.endPoint
8 O4 t" F8 G0 O1 E   
2 N# y( f: m% O    Dim angle2 As Double
- D0 a" F, |! g, g8 p4 _9 k& H    angle2 = line2.angle

# n8 j/ _5 z5 t  v5 |! s) _' J  z    Dim pts1(0 To 7) As Double
    Dim pts2(0 To 7) As Double
8 b7 e% w* ?* z3 y; q      
    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)
  N: d3 E1 t* x9 M: s6 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)
. [$ v9 n: R: G  c! ^& Y$ {  A7 O, {   
; H0 V- L$ ~$ k4 ]- Z( V    pts2(0) = CDbl(p2(0)) + 0.5 * Sin(angle2): pts2(1) = CDbl(p2(1)) - 0.5 * Cos(angle2)
4 k/ F; X, j% d/ N    pts2(2) = pts2(0) - 5 * Cos(angle2): pts2(3) = pts2(1) - 5 * Sin(angle2)
* }  p0 C' c" A/ B# \* l    pts2(4) = pts2(2) - 1 * Sin(angle2): pts2(5) = pts2(3) + 1 * Cos(angle2)
' }" O. O2 A1 s, ^( \7 x5 C- p' B    pts2(6) = pts2(4) + 5 * Cos(angle2): pts2(7) = pts2(5) + 5 * Sin(angle2)
+ J1 _. B0 P: w+ J4 D  b   
7 J8 L- g9 t( ~" r$ c    Dim pl0 As AcadLWPolyline
8 p7 _) C# R+ t  v+ {2 ]: p    Set pl0 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts1)
    Dim pl1 As AcadLWPolyline
    Set pl1 = ThisDrawing.ModelSpace.AddLightWeightPolyline(pts2)

    pl0.Closed = True
    pl1.Closed = True

End Sub

bianjun68

不客氣,！管用就好,！