plinewid帮助

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

我有一个绘制闭合多段线的例程，效果很好。我在用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

谢谢你的快速帮助，现在我可以安详地上床睡觉了……工作得很好

plinewid帮助

发表回复

精选推荐