beweir

' Find a matching value in a table/range and return the found value else return the default value.
Public Function BLookup(match As String, table As Range, missingValue As Variant) As Variant
    Dim result As Variant
    Dim r As Range
    
    result = missingValue
    
    For Each r In table.Rows
     If match = r.Cells.Value2(1, 1) Then
        result = r.Cells.Value2(1, 2)

beweir

Option Explicit On

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.GraphicsInterface
Imports Autodesk.AutoCAD.DatabaseServices

Public Class DirectionGrip
    Inherits GripData

beweir

Option Explicit On

Imports System.ComponentModel

Imports adb = Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.GraphicsInterface
Imports Autodesk.AutoCAD.Runtime

Public Class SampleLabel

beweir

; Written by: Benjamin Weir
; Description: Defines the MOVETOODELEVATION command which will apply the
;     elevation value found in an Object Data field to the elevation of a
;     polyline.
;
;     The code has minimal error checking and assumes the field value is in
;     the Real data type.

(vl-load-com)