|
发表于 2008-12-17 00:24:13
|
显示全部楼层
来自: 中国
- Sub A()6 V. C+ o, C) U) i0 Y$ G
- Dim L As AcadLine, P1(2) As Double, P2(2) As Double$ f+ U1 y7 P5 b' U; Z$ [
- & H8 _6 ?$ Z( y
- On Error Resume Next3 S0 g. g x5 s, f- }0 [- m
- With ThisDrawing
W, i4 P- v, \7 C1 Y: i/ _1 M4 K - .Linetypes.Load "CENTER", "acad.lin"' q) F% _ M" L* f8 @( S
- P2(0) = 100
7 F/ B5 ]. M' ]. m+ [3 o' e; k* G - Set L = .ModelSpace.AddLine(P1, P2)% G& m1 o& M! K/ a/ m( \
- L.Linetype = "CENTER", V" h7 z6 [ e
- End With3 J! Q1 G7 v1 J3 [4 m+ h$ ?! M) ?
- End Sub
复制代码 |
评分
-
查看全部评分
|