怎样改变直线的线形

383148215

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

woaishuijia

1. Sub A()
   , j  A7 O) g' E* G5 J
2.     Dim L As AcadLine, P1(2) As Double, P2(2) As Double
   5 D6 p( T2 \3 ~6 t9 x# ~
3.    
   
4.     On Error Resume Next
   ) ~( |' e' ~# s. B: f! N
5.     With ThisDrawing
   
6.         .Linetypes.Load "CENTER", "acad.lin"
   : V9 e5 k# G4 f. W1 `
7.         P2(0) = 100
   0 q. p5 |; {) V9 T; ?& \
8.         Set L = .ModelSpace.AddLine(P1, P2)
   
9.         L.Linetype = "CENTER"
   " ]# `0 P: H: s0 P- J5 U
10.     End With
    5 F3 I( k; I( r; E# Q
11. End Sub

复制代码

383148215

谢谢了