コードの色分け、よかね。

へぇ～～、hatenablogはプログラムコードを色付けしてくれるのか…

こりゃいいや。

    ''' <summary> Command rrb
    ''' ブロック名を変更する またはブロックを置換する
    ''' </summary>
    <CommandMethod("rrb", CommandFlags.Session)>
    Public Sub renameBlock()
      Dim doc = Application.DocumentManager.MdiActiveDocument
      Dim db = doc.Database
      Dim ed = doc.Editor

      Dim prOps As New PromptEntityOptions(vbLf & If(LANG, "名前変更/置換したいブロックをピックしてください。",
                                                           "Pick the block to be renamed or replaced "))
      prOps.SetRejectMessage(vbLf & "You must pick block entity!")
      prOps.AddAllowedClass(GetType(BlockReference), False)
      Dim prRes As PromptEntityResult = ed.GetEntity(prOps)
      ed.WriteMessage(vbLf)
      If prRes.Status <> PromptStatus.OK Then
        Return
      End If
      Dim selObjID = prRes.ObjectId

      Dim bName As String = ""
      Using blk As BlockReference = selObjID.GetObject(OpenMode.ForRead)
        bName = blk.Name
      End Using

      Using _frmr = New frmRenameBlock
        _frmr.orgObjID = selObjID
        _frmr.txtCurBlockName.Text = bName
        _frmr.txtNewBlockName.Text = bName
        acApp.ShowModalDialog(_frmr)
      End Using

    End Sub

ん？ Usingが色ついてないということは、 vba相当と言うことか… まあ、無いよりかはずいぶんましだね。