【求助】如何将不同颜色框里的文字改变颜色和图层

冷月无声

图中的文字为同一个图层，框为另外一个图层，想把框里的文字改成和框一样的颜色跟不同的图层。
谢谢~~~

冷月无声

补充一下：框里的文字改成跟原先文字不同的图层就OK.谢谢！

psdcdr

一看就是结构屌丝男

【KAIXIN】

匹配还是？

sscylh

2. Sub aa()
   
3. Dim pl As AcadLWPolyline
   
4. Dim ss As AcadSelectionSet
   
5. Dim pt1 As Variant
   
6. Dim p1(0 To 2) As Double
   
7. Dim p2(0 To 2) As Double
   
8. ThisDrawing.Utility.GetEntity pl, pt1, "请选择一个矩形"
   
9. Dim lay As String
   
10. lay = pl.Layer
    
11. Dim pt2 As Variant
    
12. Dim obj As AcadObject
    
13. pt1 = pl.Coordinate(0)
    
14. pt2 = pl.Coordinate(2)
    
15. p1(0) = pt1(0)
    
16. p1(1) = pt1(1)
    
17. p1(2) = 0
    
18. p2(0) = pt2(0)
    
19. p2(1) = pt2(1)
    
20. p2(2) = 0
    
21. 
    
22. If Not IsNull(ThisDrawing.SelectionSets("abc")) Then
    
23. Set ss = ThisDrawing.SelectionSets("abc")
    
24. ss.Delete
    
25. End If
    
26. Set ss = ThisDrawing.SelectionSets.Add("abc")
    
27. ss.Select acSelectionSetWindow, p1, p2
    
28. For i = 1 To ss.Count
    
29. ss(i - 1).Layer = lay
    
30. Next
    
31. End Sub
    

Sub aa()<br /> Dim pl As AcadLWPolyline<br /> Dim ss As AcadSelectionSet <br /> Dim pt1 As Variant<br /> Dim p1(0 To 2) As Double<br /> Dim p2(0 To 2) As Double<br /> ThisDrawing.Utility.GetEntity pl, pt1, "请选择一个矩形"<br /> Dim lay As String<br /> lay = pl.Layer<br /> Dim pt2 As Variant<br /> Dim obj As AcadObject<br /> pt1 = pl.Coordinate(0)<br /> pt2 = pl.Coordinate(2)<br /> p1(0) = pt1(0)<br /> p1(1) = pt1(1)<br /> p1(2) = 0<br /> p2(0) = pt2(0)<br /> p2(1) = pt2(1)<br /> p2(2) = 0<br /> <br /> If Not IsNull(ThisDrawing.SelectionSets("abc")) Then<br /> Set ss = ThisDrawing.SelectionSets("abc")<br /> ss.Delete<br /> End If<br /> Set ss = ThisDrawing.SelectionSets.Add("abc")<br /> ss.Select acSelectionSetWindow, p1, p2<br /> For i = 1 To ss.Count<br /> ss(i - 1).Layer = lay<br /> Next<br /> End Sub<br />

冷月无声

非常感谢，可是cad提示有错误，
命令是“aa”吧？

yjr111

命令：ma,选择点选框，然后S设置，颜色打钩，图层勾去掉，尽情的刷吧

sscylh

冷月无声 发表于 2012-9-27 14:45
非常感谢，可是cad提示有错误，
命令是“aa”吧？

不是......上面是vba代码,如果要用命令运行的话,还得加上一句lsp代码....
其实有一点不太清楚楼主的意思:楼主是有一个大的图纸,里面有很多这样的文字需要改变其图层,想一次性全改?
还是想在制图过程中,手动输入一个函数,然后改.如果是后者的话,可以用现成的matchproperty即可(即ma)

冷月无声

是很多这样的文字需要改变其图层，想一次性全改。如果一个个ma刷的话，就不用提这个问题了。
怪我没有说清楚。
麻烦sscylh版主写个lsp的代码吧，谢谢！

冷月无声

sscylh 发表于 2012-9-27 18:57
不是......上面是vba代码,如果要用命令运行的话,还得加上一句lsp代码....
其实有一点不太清楚楼主的意思 ...

是很多这样的文字需要改变其图层，想一次性全改。如果一个个ma刷的话，就不用提这个问题了。
怪我没有说清楚。
麻烦sscylh版主写个lsp的代码吧，谢谢！