怎样改变直线的线形

383148215 · 发表于 2008-12-16 22:44:25

您需要登录才可以下载或查看，没有帐号？注册

x

在VBA中改变直线线形的源程序是怎样的？

woaishuijia · 发表于 2008-12-17 00:24:13

Sub A()4 H. r. G$ T% t8 q+ N: k
Dim L As AcadLine, P1(2) As Double, P2(2) As Double# k% A5 b; j( B9 S- z9 r* |" F
* i' V% F2 B# b: y4 M- _
On Error Resume Next, W6 I+ T9 r4 C5 o
With ThisDrawing
& y; F9 g. d6 r) w1 Y$ o
.Linetypes.Load "CENTER", "acad.lin"
) J, s4 p0 z* ~( X$ r+ X
P2(0) = 100
* A7 H3 G" W$ t! e g
Set L = .ModelSpace.AddLine(P1, P2)
( V7 x( @; v2 Q' P/ ? Q# q
L.Linetype = "CENTER"
) F1 \$ x3 j; d: f4 U' x, n3 t
End With
& Y9 _& U2 E, O9 v# F
End Sub

复制代码

383148215 · 发表于 2008-12-17 17:38:11

谢谢了

		自动登录	找回密码
密码			注册

通知