Bryco 发表于 2008-3-27 23:45:27

plinewid帮助

我有一个绘制闭合多段线的例程，效果很好。我在用Starlight VBA为其指定宽度时卡住了，我试过了，但不起作用：
   ThisDrawing.SetVariable "PLINEWID", 0.0625
   
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    plineObj.Closed = True
      
    ThisDrawing.SetVariable "PLINEWID", 0
我试图避免在每个段中循环，并使用autolisp发送命令，这是我在VBA上的第一次破解

荔枝 发表于 2008-3-28 00:07:27

将plineObj设置为AcadLWPolyline。模型空间。添加轻量级多段线（点）。设置宽度0、4、5

最高粽院 发表于 2008-3-28 00:20:23

谢谢你的快速帮助，现在我可以安详地上床睡觉了……工作得很好
页: [1]
查看完整版本: plinewid帮助