Creates an Expression object.
NewExpression(Expression As String) As Expression
Returns an Expression object.
Expression
The following example creates an Expression object that specifies the area of a drawing object.
Dim amap As AcadMap
Dim prj As Project
Dim exp As Expression
Dim i As Integer
Dim varVal As Variant
Dim obj As Object
Dim lngAry() As Long
ReDim lngAry(ThisDrawing.ModelSpace.Count)
Dim strVal As String
Set amap = ThisDrawing.Application. _
GetInterfaceObject("AutoCADMap.Application")
Set prj = amap.Projects(ThisDrawing)
Set exp = prj.MapUtil.NewExpression(".AREA")