|
|
发表于 2008-12-17 00:24:13
|
显示全部楼层
来自： 中国
- Sub A()
. a$ Z$ n, h7 D# Z - Dim L As AcadLine, P1(2) As Double, P2(2) As Double7 r$ ]: H) I6 r! W! G
- ! L5 ~$ Z+ Y2 y) Q' {
- On Error Resume Next* O" {* ^+ R9 R( A9 V5 c
- With ThisDrawing
0 O6 s+ d ^" o _' L! x5 P- ?/ q - .Linetypes.Load "CENTER", "acad.lin"2 j" F' e& q3 M/ ]! R: Q
- P2(0) = 100* n9 C- Q- G& ^! Y
- Set L = .ModelSpace.AddLine(P1, P2)
) J# {, l! f. j* p# J$ ^# L% a - L.Linetype = "CENTER"' `* S# v+ C4 j G8 C, A
- End With5 G$ \4 H" v3 R4 }5 M
- End Sub
|
评分
-
查看全部评分
|
发表于 2008-12-16 22:44:25
楼主