怎样改变直线的线形

383148215

在VBA中改变直线线形的源程序是怎样的？

woaishuijia

1. Sub A()
   + \9 Q) w8 i5 G2 W: q' d: w/ S. m
2.     Dim L As AcadLine, P1(2) As Double, P2(2) As Double
   4 G9 O% K1 u# t
3.    
   
4.     On Error Resume Next
   3 b; {1 t8 _& t
5.     With ThisDrawing
     V. }1 e: P4 v+ }2 x8 C$ R
6.         .Linetypes.Load "CENTER", "acad.lin"
   
7.         P2(0) = 100
     G; G) R' |1 @+ A. M$ x  U4 I
8.         Set L = .ModelSpace.AddLine(P1, P2)
   ) n0 U- M# H- r. d& q) E8 Y( R+ ?
9.         L.Linetype = "CENTER"
   
10.     End With
    " D% i7 n) I. N6 V9 u1 }
11. End Sub

复制代码

383148215

谢谢了