|
|
发表于 2008-12-17 00:24:13
|
显示全部楼层
来自： 中国
- Sub A()# k, @5 ~9 \! R+ w8 q n% G
- Dim L As AcadLine, P1(2) As Double, P2(2) As Double
6 t, _7 b P5 T& ]" q -
# P) U4 U' G- f - On Error Resume Next* p l; D4 s( N, p0 O# t
- With ThisDrawing( k i1 {4 u, B: W/ J8 W
- .Linetypes.Load "CENTER", "acad.lin"7 k# g5 P, L8 S$ [& i. K" j5 V
- P2(0) = 100
9 a& s# I/ _! i2 L* G% k - Set L = .ModelSpace.AddLine(P1, P2): ^- X T9 V9 {7 S: k4 C
- L.Linetype = "CENTER"
; S. e0 Z+ S! [, o; D0 Z8 O2 J+ e - End With7 j6 i3 L% D" }) O" g6 }
- End Sub
|
评分
-
查看全部评分
|
发表于 2008-12-16 22:44:25
楼主