topic Objects for 2004 in AutoCAD Map 3D Developer Forum

Objects for 2004

Anonymous — Mon, 26 Jan 2004 18:47:17 GMT

This is working on a machine running 2004.0.0. I am trying to make it work on another machine that is also running 2004.0.0 but I am getting an "Object Variable or Block Variable not set" error. I have posted the code below and marked where the error is. Please Help, have to make this work.

Thank you in advance

Bart

Set amap = ThisDrawing.Application. _
GetInterfaceObject("AutoCADMap.Application.2")
Set ODfdfs = amap.Projects(ThisDrawing).MapUtil.NewODFieldDefs ***Error is on this line
Set ODrcs = amap.Projects.Item(ThisDrawing). _
ODTables.Item("CABLE").GetODRecords

Re: Objects for 2004

Anonymous — Mon, 26 Jan 2004 18:56:22 GMT

This line is also throwing an error.

With ThisDrawing.Utility
vLRCorner = .GetPoint(, vbCr & "Pick the lower right corner on area: ")
.Prompt vbCr & vLRCorner(0) & "," & vLRCorner(1)
vULCorner = .GetCorner(vLRCorner, vbLf & "Pick the Upper Left corner of area: ")
.Prompt vbCr & vULCorner(0) & "," & vULCorner(1)
End With

Set sqArea = util.NewWindow(util.NewPoint3d(vLRCorner(0), vLRCorner(1), 0), util.NewPoint3d(vULCorner(0), vULCorner(1), 0)) ****ERROR Here

Thank you

Bart

Re: Objects for 2004

Anonymous — Thu, 29 Jan 2004 16:05:11 GMT

Just as a follow up, it seems that if Map 2004 and 2000i are on the same machine, this error occurs. Can't explain it, but uninstalling 2Ki and and machine restart solved the problem. HTH someone else Bart "bart1123" wrote in message news:5020104.1075143419290.JavaMail.jive@jiveforum1.autodesk.com... > This line is also throwing an error. > > With ThisDrawing.Utility > vLRCorner = .GetPoint(, vbCr & "Pick the lower right corner on area: ") > .Prompt vbCr & vLRCorner(0) & "," & vLRCorner(1) > vULCorner = .GetCorner(vLRCorner, vbLf & "Pick the Upper Left corner of area: ") > .Prompt vbCr & vULCorner(0) & "," & vULCorner(1) > End With > > Set sqArea = util.NewWindow(util.NewPoint3d(vLRCorner(0), vLRCorner(1), 0), util.NewPoint3d(vULCorner(0), vULCorner(1), 0)) ****ERROR Here > > > Thank you > > Bart