I am trying to write a vba routine that will allow me to apply Fields to areas (polylines). I've tried numerous methods, but keep getting ####. I'm trying not to use regions and boundaries. Where am I going wrong?
2007 CAD
Private Sub CommandButton5_Click()
Me.hide
Dim Mytext As AcadText
Dim entarea As Double
Dim textObj As AcadEntity
Dim text As String
Dim fieldcode As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
Dim NewArea As Double
Dim OBJID As Variant
Dim objEnt As AcadEntity
Dim varPick As Variant
Dim TXTID2 As AcadText
Dim entObjectID As Long
Dim sysVarName As Variant
Dim VARDATA As Variant
Dim returnpnt As Variant
sysVarName = "dimscale"
VARDATA = ThisDrawing.GetVariable(sysVarName)
Dim plineObj As AcadLWPolyline
Dim plineArea As Double
ThisDrawing.Utility.GetEntity objEnt, varPick, vbCr & "Select object for Area: "
entObjectID = objEnt.ObjectID
Set plineObj = objEnt
MsgBox "The ObjectID of this object is " & entObjectID, vbInformation, "ObjectID Example"
plineArea = (plineObj.Area \ 144)
MsgBox "The area is: " & plineArea, vbInformation, "Area Example"
returnpnt = ThisDrawing.Utility.GetPoint(, "Select Block Insertion Point: ")
height = Val(VARDATA * 0.09375) 'fixED to 3/32
'%<\AcObjProp Object(%<\_ObjId 1916720304>%).Area>%
text = "%<\AcObjProp plineArea(%<\_entojectid>%).Area>%"
'text = "%<\AcObjProp plineArea \f>%"
MsgBox "The Square Footage for the selected entity equals: " & fieldcode, vbInformation, "FieldCode Example"
Set textObj = ThisDrawing.ModelSpace.AddText(text, returnpnt, height) 'must use fieldcode
text = textObj.fieldcode
End Sub
edit jonesy... thread title changed/added code pane