|
|
发表于 2008-12-17 00:24:13
|
显示全部楼层
来自： 中国
- Sub A()+ d5 }. z r' m4 A
- Dim L As AcadLine, P1(2) As Double, P2(2) As Double0 Q( P$ ~* B% D* ~3 `
-
J5 R6 J' _. B C - On Error Resume Next
" @3 s) y0 b5 ]" n4 J- H: p - With ThisDrawing
8 h0 d4 I# e+ g% z - .Linetypes.Load "CENTER", "acad.lin"5 T" \+ B. j' g' Y7 ^! u
- P2(0) = 100
: w" p, g+ P' z2 v! T$ l1 L - Set L = .ModelSpace.AddLine(P1, P2)$ S# y0 Y1 c) K" b$ i- }
- L.Linetype = "CENTER") D; e4 U! O6 i5 Q" v# {0 {
- End With
' I4 q3 v# \# U D) U0 ]. H. B - End Sub
|
评分
-
查看全部评分
|
发表于 2008-12-16 22:44:25
楼主