怎样改变直线的线形

383148215

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

woaishuijia

1. Sub A()
   ; z  A2 x, L9 M$ S5 z
2.     Dim L As AcadLine, P1(2) As Double, P2(2) As Double
   
3.    
   5 Q( s+ \9 v& p2 I4 w. t2 V
4.     On Error Resume Next
   
5.     With ThisDrawing
   ! w2 y. U3 t4 {6 b4 O& _* [) M( ?% k
6.         .Linetypes.Load "CENTER", "acad.lin"
   
7.         P2(0) = 100
   8 n3 F# c. T) h. s
8.         Set L = .ModelSpace.AddLine(P1, P2)
   
9.         L.Linetype = "CENTER"
   
10.     End With
    
11. End Sub

复制代码

383148215

谢谢了