zoukankan      html  css  js  c++  java
  • AutoCAD开发6--修改高程

     1 '定义过滤器
     2 
     3     Dim pType, pData
     4 
     5    
     6 
     7     'BuildFilter pType, pData, 0, "BlockReference", 8, "GCD", 62, 3 '建立图层是JZD?颜色为绿色的多段线过滤器
     8 
     9  
    10 
    11  
    12 
    13     BuildFilter pType, pData, 8, "GCD"
    14 
    15     '定义选择集
    16 
    17    
    18 
    19     Dim sset As AcadSelectionSet
    20 
    21     Set sset = CreateSelectionSet
    22 
    23     '
    24 
    25    
    26 
    27     '根据以上指定的过滤器建立选择集
    28 
    29    
    30 
    31     sset.Clear
    32 
    33     sset.Select acSelectionSetAll, , , pType, pData
    34 
    35    
    36 
    37     Dim pEntity As Object
    38 
    39     Dim pBlock As AcadBlockReference
    40 
    41     Dim pAttr As Variant
    42 
    43    
    44 
    45     Dim pCoords As Variant
    46 
    47    
    48 
    49     For Each pEntity In sset
    50 
    51         If pEntity.ObjectName = "AcDbBlockReference" Then
    52 
    53             Set pBlock = pEntity
    54 
    55            
    56 
    57             If pBlock.Name = "gc200" Then
    58 
    59                 pAttr = pBlock.GetAttributes
    60 
    61                 For i = 0 To UBound(pAttr)
    62 
    63                     pAttr(i).TextString = ChangeH(pAttr(i).TextString)
    64 
    65                 Next i
    66 
    67             ElseIf pBlock.Name = "GC022y" Then
    68 
    69                 pCoords = pBlock.InsertionPoint
    70 
    71                
    72 
    73                 If pCoords(2) <> 0 Then
    74 
    75                     pCoords(2) = 0
    76 
    77                     pBlock.InsertionPoint = pCoords
    78 
    79                 End If
    80 
    81             End If
    82 
    83         End If
    84 
    85     Next pEntity
    86 
    87    
    88 
    89     sset.Delete
    90 
    91     MsgBox "修改完成"
  • 相关阅读:
    PIC32MZ tutorial -- Core Timer
    PIC32MZ tutorial -- OC Interrupt
    PIC32MZ tutorial -- External Interrupt
    PIC32MZ tutorial -- Watchdog Timer
    PIC32MZ tutorial -- Output Compare
    PIC32MZ tutorial -- Input Capture
    PIC32MZ tutorial -- 32-bit Timer
    log | logstash
    Vxlan学习笔记——原理
    python——字符串格式化
  • 原文地址:https://www.cnblogs.com/jordonin/p/12028237.html
Copyright © 2011-2022 走看看