一个关于选择的问题！！

Yeatsliu · 发表于 2006-3-14 15:01:00

在界面内画很多图形，比如有圆、直线，点画线，正方形，要把它们都转化为多段线，然后统一线宽，但是只有点画线要求比其它图形的线宽都细，请问如何把点画线单独过滤出来，单独设制线宽？谢谢了！！

xinghesnak · 发表于 2006-3-14 15:51:00

判断linetype属性

Yeatsliu · 发表于 2006-3-14 16:20:00

不好意思，我是新手，您能告诉我怎么判断linetype属性？在VBA里直线是什么linetype，点画线又是什么linetype？

雪山飞狐_lzh · 发表于 2006-3-14 17:03:00

点画线的线型名很多，不知道绘图的单位有没有一个标准，有就好办

xinghesnak · 发表于 2006-3-15 09:15:00

楼主说的是中心线还是双点划线什么的.....版主的意思是点划线的线型很多,你可以逐个遍历实体,用linetype属性过滤下点划线,也可以用selection过滤机制过滤下点划线,就效率而言,我选择后者......

雪山飞狐_lzh · 发表于 2006-3-16 14:32:00

引用这里的TlsSel类

copy


Sub test123()
    Dim ss As New TlsSel
    Dim i As AcadLayer
    zxxNames = "ACAD_ISO04W100"
    ss.Init
    ss.SetFilter -4, " 0 Then
            ss.AppendFilter -4, ""
        End If
    Next
    ss.AppendFilter -4, "or>"
    ss.Selectobject acSelectionSetAll
    MsgBox ss.Count
End Sub

其中 zxxNames是你的线型名，如果有多个用逗号隔开

一个关于选择的问题！！

发表回复

精选推荐