vba怎么实现修改指定图层的线宽和文字高度

yshf

试试这个

2. Sub test()
   
3.     '将DLSS层上所有多段线的全局宽度改为0
   
4.     On Error Resume Next
   
5.    
   
6.     Dim Ssd As AcadSelectionSet
   
7.     Dim FType(0 To 1) As Integer
   
8.     Dim FData(0 To 1) As Variant
   
9.     Dim TeObj As Object
   
10.    
    
11.     FType(0) = 0
    
12.     FType(1) = 8
    
13.    
    
14.     FData(0) = "LWPOLYLINE"
    
15.     FData(1) = "DLSS"
    
16.    
    
17.     ThisDrawing.SelectionSets("Ssd").Delete
    
18.    
    
19.     '创建选择集(选择图层为DLSS,图元实体为文字的选择集)
    
20.     Set Ssd = ThisDrawing.SelectionSets.Add("Ssd")
    
21.     Ssd.Select acSelectionSetAll, , , FType, FData
    
22.     For Each TeObj In Ssd
    
23.         TeObj.ConstantWidth = 0
    
24.     Next
    
25.    
    
26. End Sub

Sub test()<br />     '将DLSS层上所有多段线的全局宽度改为0<br />     On Error Resume Next<br />     <br />     Dim Ssd As AcadSelectionSet<br />     Dim FType(0 To 1) As Integer<br />     Dim FData(0 To 1) As Variant<br />     Dim TeObj As Object<br />     <br />     FType(0) = 0<br />     FType(1) = 8<br />     <br />     FData(0) = "LWPOLYLINE"<br />     FData(1) = "DLSS"<br />     <br />     ThisDrawing.SelectionSets("Ssd").Delete<br />     <br />     '创建选择集(选择图层为DLSS,图元实体为文字的选择集)<br />     Set Ssd = ThisDrawing.SelectionSets.Add("Ssd")<br />     Ssd.Select acSelectionSetAll, , , FType, FData<br />     For Each TeObj In Ssd<br />         TeObj.ConstantWidth = 0<br />     Next<br />     <br /> End Sub