|
发表于 2008-12-17 00:24:13
|
显示全部楼层
来自: 中国
- Sub A()
* x9 ~5 Y; f) u- N; L - Dim L As AcadLine, P1(2) As Double, P2(2) As Double; F" Z; x. I+ u- l/ b9 ^
-
; m3 G+ m2 b; O0 K4 O; q - On Error Resume Next
% B4 E1 R2 M; q/ @- c$ n - With ThisDrawing) K0 j7 }9 Y" @
- .Linetypes.Load "CENTER", "acad.lin"
/ k" d* y+ B0 Y4 |& [2 _+ h2 ^+ |, u - P2(0) = 100
7 W! W' @, d0 K' B" B6 V - Set L = .ModelSpace.AddLine(P1, P2)
9 o$ z' X" ^9 {$ ]- k - L.Linetype = "CENTER"
; }% h2 c% b8 p, f9 o5 h% i5 V7 m - End With
3 H2 j: \% M% c! | - End Sub
复制代码 |
评分
-
查看全部评分
|