|
|
发表于 2008-12-17 00:24:13
|
显示全部楼层
来自： 中国
- Sub A()) j w9 r: \% n: e: G
- Dim L As AcadLine, P1(2) As Double, P2(2) As Double
: N6 F$ e. l9 E' |* E/ O6 Q9 M- X - & P6 }/ `# K& Q8 d6 n+ k Z
- On Error Resume Next$ f; l6 t ]/ k; A8 |7 D7 W; d
- With ThisDrawing
* n' q" T. w! M- p - .Linetypes.Load "CENTER", "acad.lin"
5 g! t5 C. c) Z( c0 t! X - P2(0) = 100: x8 m' j7 ? v4 c- o
- Set L = .ModelSpace.AddLine(P1, P2)* C% T8 ]6 n3 I8 _
- L.Linetype = "CENTER"! b) S4 r3 ?1 _ {: m
- End With& e; x2 {: B$ E% P1 P
- End Sub
|
评分
-
查看全部评分
|
发表于 2008-12-16 22:44:25
楼主