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

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

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

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

plinegen

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

Sub add_polyline()

Dim plineObj As AcadPolyline
' Create Polyline
Dim points(8) As Double
points(0) = 3: points(1) = 7: points(2) = 0
points(3) = 9: points(4) = 2: points(5) = 0
points(6) = 3: points(7) = 5: points(8) = 0

Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
plineObj.LinetypeGeneration = True

End Sub
你根据情况修改一下。

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

发表回复

精选推荐