[求助]：怎么vba绘制的pline线和在cad中画的不一致?

wcbao

在vba中先设置pline线的宽度：AcadDoc.SetVariable("PLINEWID", 0.5)
再用acaddoc.ModelSpace.AddPolyline(PointsPline)画线，怎么没有宽度呀，在cad中的"PLINEWID"的值已经是0.5了，而且手工画有宽度，不明白，请指教

gdzhou

Dim pl As AcadLWPolyline
Set pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(pointspline)
pl.Lineweight = 0.5

雪山飞狐(lzh)

设置多段线上给定段索引的起始和终止宽度。

参阅 | 示例

语法

object.SetWidth SegmentIndex, StartWidth, EndWidth

Object

LightweightPolyline, Polyline
使用该方法的对象。

SegmentIndex

Integer[整数]; 仅用于输入
要设置宽度的指定段的索引。第一段的索引为 0。

StartWidth

Double[双精度]; 仅用于输入
指定段的起始宽度。

EndWidth

Double[双精度]; 仅用于输入
指定段的终止宽度。

说明

段索引是多段线某一段的索引。例如，有一个多段线有三段，则段索引为 0、1 和 2。

Polyline: 如果多段线的 Type 属性为 acCubicSplinePoly 或 acQuadSplinePoly，则该方法失败。