在AutoCAD中使用 VAB 绘制多义线不难，但将其圆滑费了几天时间，并未解决。请教高手帮忙。代码如下：Sub 绘制圆滑多义线4个点() ’以下代码绘制4个顶点的多义线 ’绘制后将其圆滑。 Dim plObj As AcadLWPolyline Dim points(0 To 7) As Double points(0) = 0: points(1) = 0 ’组点，2维 4个点 points(2) = 2800: points(3) = 600
请教高手帮忙。代码如下：
Sub 绘制圆滑多义线4个点()
’以下代码绘制4个顶点的多义线
’绘制后将其圆滑。
Dim plObj As AcadLWPolyline
Dim points(0 To 7) As Double
points(0) = 0: points(1) = 0 ’组点，2维 4个点
points(2) = 2800: points(3) = 600
points(4) = 7200: points(5) = 9400
points(6) = 10000: points(7) = 10000
Set plObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) ’绘线
Application.ZoomExtents ’处理屏幕
’以下的问题是将其圆滑，象命令行使用 _pedit 命令的 S 选项一样效果
’使用 ThisDrawing.SendCommand 语句或者使用 VAB 有关语句
’曾经试验过以下代码：但其中选择的 "对象" 总是不合适
’ThisDrawing.SendCommand "_pedit" & vbCr & "对象" & vbCr & "S" & vbCr & vbCr
’敬请高手指教：
’另外，在VB中一般要将分配的对象实例用过后释放，但在VBA中，是否必须释放？，如下语句。
Set plObj = Nothing
End Sub
