线条颜色更改
只是想知道是否有人有一些代码可以在一组行中选择一个特定行，然后更改该行的颜色？？你能澄清一点吗。线路是如何分组的？为什么你不能用传统的方法来选择线并改变它的属性？
如果我在问题中漏掉了什么，我道歉。 这不能使用QSelect完成吗？ 具体来说，我使用的是一个选择集。。。。以下是我的乞讨代码示例：
Function ChangeColorOfLayouteight(strErrors)
Dim S99 As AcadSelectionSet
Dim Ftyp(5) As Integer
Dim errCount As Long
'Dim strErrors As String
Dim Fval(5) As Variant
Dim dEnd As Variant
'*'**************************************************************
'* Program Begins
'* Looks for outer contour of LO1 Doc. to Red
'**************************************************************
Ftyp(0) = -4: Fval(0) = "<AND"
'Ftyp(1) = -4: Fval(1) = "<OR"
Ftyp(1) = 0: Fval(1) = "LINE"
Ftyp(2) = 67: Fval(2) = "0"
Ftyp(3) = 5: Fval(3) = "BD8"
'Ftyp(5) = 5: Fval(5) = "BD8"
'Ftyp(6) = 5: Fval(6) = "C37"
'Ftyp(7) = 5: Fval(7) = "C36"
'Ftyp( 8 ) = 5: Fval( 8 ) = "C1F"
'Ftyp(9) = 5: Fval(9) = "C35"
'Ftyp(10) = 5: Fval(10) = "C34"
'Ftyp(11) = 5: Fval(11) = "C33"
'Ftyp(12) = 5: Fval(12) = "C32"
'Ftyp(13) = 5: Fval(13) = "C31"
'Ftyp(14) = 5: Fval(14) = "C30"
'Ftyp(15) = 5: Fval(15) = "C2F"
'Ftyp(16) = 5: Fval(16) = "C2E"
'Ftyp(17) = 5: Fval(17) = "C2D"
'Ftyp(1 8 ) = 5: Fval(1 8 ) = "C2C"
'Ftyp(19) = 5: Fval(19) = "C2B"
'Ftyp(4) = -4: Fval(4) = "OR>"
Ftyp(4) = -4: Fval(4) = "AND>"
'ThisDrawing.SelectionSets("S99").Delete
Set S99 = ThisDrawing.SelectionSets.Add("S99")
S99.Select acSelectionSetAll, , , Ftyp, Fval
If S99.Count > 0 Then
For errCount = 0 To S99.Count - 1
S99(errCount).color = acWhite
'S99(errCount) = "0.03"
Next errCount
End If
ThisDrawing.SelectionSets("S99").Delete
End Function 如果我错了，请纠正我，但“q select”用于更改具有公共属性的多个对象/线。我对最初问题的理解是，有一句话要改。 Cad O Cad，
我不那么优雅地退出，我认为你参与了某种cad编程或其他什么，我是从绘图的角度来看的。祝你好运！！ Jay Dee，
是的，我是lol。。非常感谢您的关注，谢谢！ 您的代码必须在各行之间循环，让您可以选择是否更改其颜色，因为我想不出一种方法来将一行从多行中分离出来，除非它恰好位于图形中的特定高度“Z”。是这样吗？ 现在发生的事情是，我有一个绘图，只有某些线条需要是白色的，当程序的其余部分完成时，其他所有东西都需要更改。
页:
[1]