[VBA程序]：VBA如何操作pline来绘制有宽度的线？？

idook · 发表于 2007-10-14 21:07:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

如题：是用VBA如何控制pline来绘制制定宽度的线条？？？

黄玉宏 · 发表于 2007-10-15 00:41:14

Sub Example_AddLightWeightPolyline()
Dim plineObj As AcadLWPolyline
Dim points(0 To 7) As Double
points(0) = 1: points(1) = 1: points(2) = 1: points(3) = 2
points(4) = 2: points(5) = 2: points(6) = 3: points(7) = 2
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
Call plineObj.SetWidth(2, 0.02, 0.02)　　 '从第3点到第4点之间设置相当于0.6mm的线宽
End Sub

idook · 发表于 2007-10-15 08:32:49

这就去看看，非常感谢！！！

poiwer · 发表于 2007-10-24 17:10:14

没人气...............................

idook · 发表于 2007-12-8 16:57:22

谢谢！看来我还是学艺不精啊～～～

账号		自动登录	找回密码
密码			立即注册

[VBA程序]：VBA如何操作pline来绘制有宽度的线？？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子