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

volen921

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

volen921

plinegen <1>

dianbotang

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

你根据情况修改一下。

magicheno

volen921 发表于 2005-10-19 07:39
plinegen <1>

感谢大佬分享