将选中的所有线改为线型“CONTINOUS”源码
ZV026将选中的所有线改为线型“CONTINOUS”
但好象过滤器不正确，但由于我是针对所有线，所以没有关系
Private Sub CommandButton245_Click()
' 创建新的选择集
Dim TextReplace
Dim ssetobj As AcadSelectionSet
On Error Resume Next
Set ssetobj = ThisDrawing.SelectionSets.Item("TextReplace")
If Err Then
Set ssetobj = ThisDrawing.SelectionSets.Add("TextReplace")
Else
ssetobj.Clear
End If
ssetobj.SelectOnScreen
'创建过滤器，仅选择Text（单行文本）、Mtext（多行文本）、AttDef（属性定义）
'关于过滤器的详细使用资料，请参考有关书籍
Dim fType(0 To 0) As Integer
Dim fData(0 To 0) As Variant
fType(0) = 0
fData(0) = "line"
'选择全部的Text、Mtext、AttDef
ssetobj.Select TextReplace, , , fType, fData
Dim i As Integer
MsgBox ssetobj.Count
If ssetobj.Count <> 0 Then
For i = 0 To ssetobj.Count - 1
ssetobj(i).Linetype = "CONTINOUS"
Next
End If
'清空选择集中的数据，准备下一次操作
ssetobj.Clear
ssetobj.Delete
Set ssetobj = Nothing
End Sub
谢楼主整理这些贴子，有很多很需要的! 神奇！
fType(0) = 0
fData(0) = "line"
这样的过滤条件能够选择全部的Text、Mtext、AttDef？
页:
[1]