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

plinewid-Help

我有一个程序可以画出一条闭合的折线，效果很好。我在
用staright VBA给它分配宽度时卡住了。我试过了，但它不起作用:

   ThisDrawing.SetVariable "PLINEWID", 0.0625
   
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    plineObj.Closed = True
      
    ThisDrawing.SetVariable "PLINEWID", 0

我试图避免循环遍历每一段，并用autolisp发送命令
这是我在VBA的第一次尝试
**** Hidden Message *****

威威 发表于 2008-3-28 00:07:27

将plineObj调整为AcadLWPolyline＜br＞将plineObj=ThisDrawing.ModelSpace.AddLightWeightPolyline（点）＜br＞PLINEOB设置为。设置宽度0、4、5

萝卜扬的后花园 发表于 2008-3-28 00:20:23

感谢您的快速帮助
，现在我可以平静地上床睡觉了...
工作很棒
页: [1]
查看完整版本: plinewid-Help