怎样改变直线的线形

383148215

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

woaishuijia

1. Sub A()
   . I8 H  L9 k! n, d8 j
2.     Dim L As AcadLine, P1(2) As Double, P2(2) As Double
   8 y; N# O" M9 B0 _1 h
3.    
   
4.     On Error Resume Next
   $ S. G% C7 ~6 l2 o
5.     With ThisDrawing
   0 l; g4 ]. v& J4 x
6.         .Linetypes.Load "CENTER", "acad.lin"
   9 C) k3 U; x) P) g5 e! F, _1 R3 f, A
7.         P2(0) = 100
     Q9 v( v6 V& e* k1 v8 Y
8.         Set L = .ModelSpace.AddLine(P1, P2)
   4 M! r) W, K. i1 U/ o0 U3 ^7 g
9.         L.Linetype = "CENTER"
   9 h0 @# y3 m. I/ ?
10.     End With
    
11. End Sub

复制代码

383148215

谢谢了