plinewid-Help

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

我有一个程序可以画出一条闭合的折线，效果很好。我在
用staright 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＜br＞将plineObj=ThisDrawing.ModelSpace.AddLightWeightPolyline（点）＜br＞PLINEOB设置为。设置宽度0、4、5

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

感谢您的快速帮助
，现在我可以平静地上床睡觉了...
工作很棒

plinewid-Help

发表回复

精选推荐