版主：画完多段线后如何让它自动启用“线型生成”。
画完多段线后如何让它自动启用“线型生成”。我画完多段线每次都要点击属性改，很麻烦，有没有控制该开关的系统变量阿。我用了"setvar ? *" 找了所有的开关都不是阿，到底这个变量在哪里啊？望知道的朋友告诉小弟。谢谢 plinegen 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
你根据情况修改一下。
页:
[1]