volen921 发表于 2005-10-16 10:17:00

版主：画完多段线后如何让它自动启用“线型生成”。

画完多段线后如何让它自动启用“线型生成”。我画完多段线每次都要点击属性改，很麻烦，有没有控制该开关的系统变量阿。我用了"setvar ? *" 找了所有的开关都不是阿，到底这个变量在哪里啊？望知道的朋友告诉小弟。谢谢

volen921 发表于 2005-10-19 07:39:00

plinegen <1>

dianbotang 发表于 2008-8-3 02:01:00

<p>Sub add_polyline()<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Dim plineObj As AcadPolyline</p><p>&nbsp;&nbsp;&nbsp; ' Create Polyline<br/>&nbsp;&nbsp;&nbsp; Dim points(8) As Double<br/>&nbsp;&nbsp;&nbsp; points(0) = 3: points(1) = 7: points(2) = 0<br/>&nbsp;&nbsp;&nbsp; points(3) = 9: points(4) = 2: points(5) = 0<br/>&nbsp;&nbsp;&nbsp; points(6) = 3: points(7) = 5: points(8) = 0<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)<br/>&nbsp;&nbsp;&nbsp; plineObj.LinetypeGeneration = True<br/>&nbsp;&nbsp;&nbsp; <br/>End Sub</p><p>你根据情况修改一下。</p><p></p><p></p><p></p>

magicheno 发表于 2023-2-20 15:04:17

volen921 发表于 2005-10-19 07:39
plinegen &lt;1&gt;

感谢大佬分享
页: [1]
查看完整版本: 版主：画完多段线后如何让它自动启用“线型生成”。