怎样改变直线的线形

383148215

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

woaishuijia

1. Sub A()
   - {( d& A; ~9 Z7 G- d) ~
2.     Dim L As AcadLine, P1(2) As Double, P2(2) As Double
   ! u3 `4 _" J! C
3.    
   
4.     On Error Resume Next
   2 N8 E( v% C) s9 M
5.     With ThisDrawing
   
6.         .Linetypes.Load "CENTER", "acad.lin"
   
7.         P2(0) = 100
   : R# D8 z( e6 x( v# l+ M
8.         Set L = .ModelSpace.AddLine(P1, P2)
   
9.         L.Linetype = "CENTER"
   0 F- k" S6 c' q% M
10.     End With
    3 q. V; |* N& U! A5 O0 I
11. End Sub

复制代码

383148215

谢谢了