怎样改变直线的线形

383148215

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

woaishuijia

1. Sub A()
   2 P; B7 R& V  ]/ ^( J5 M8 i
2.     Dim L As AcadLine, P1(2) As Double, P2(2) As Double
   
3.    
   6 t; s. L9 Y# G/ r% }
4.     On Error Resume Next
   0 y# y+ V" E% m+ F7 q+ @3 y0 ]
5.     With ThisDrawing
   
6.         .Linetypes.Load "CENTER", "acad.lin"
   
7.         P2(0) = 100
   # H! P: ^, L* x' i" ^3 s- k% ?
8.         Set L = .ModelSpace.AddLine(P1, P2)
   0 E2 z4 a( [: L' v, Z' z0 `
9.         L.Linetype = "CENTER"
   - p" {, }% [$ O/ u0 G# J1 d
10.     End With
    , \% A- G0 l# o2 E
11. End Sub

复制代码

383148215

谢谢了