Object Variable or With Block variable not set

Hi
I am trying to create a VB program which will get the value of setvar TDindwg when ever a file open event occurs. Everything works fine but when ever it reaches this point
Dim mytime1
mytime1 = ThisDrawing.GetVariable("TDINDWG")
The program terminates with the above error message given in the topic tile.
Can any one help me.

 

I added those 2 lines to a new procedure and it works fine. I think your problem may lie elsewhere.
Regards - Nathan

 

if it's a vb - not a vba - program, ThisDrawing may not be initialized.
if you're in autocad vba it has a meaning, otherwise it's just another
variable name.
how are you connecting to autocad and it's events?

have you Set ThisDrawing = something????

TDindwg when ever a file open event occurs. Everything works fine but when
ever it reaches this point

 

When you say "everything is works fine but...", what kind of code is there
that works? If you could provide more info...

Just my guess here, since you stated "a file open event"
Since only AcadApplication object has BeginOpen and EndOpen event, so, do
you run this code in either BeginOpen or EndOpen event handler? If your code
is in BeginOpen, then of course, the object "ThisDrawing" is not there yet,
so the error.

TDindwg when ever a file open event occurs. Everything works fine but when
ever it reaches this point

 

I am connecting to AutoCAD like this.

Public WithEvents AcadApp As AcadApplication
Public WithEvents ThisDrawing As AcadDocument

 

That doesn't really connect to autocad. It simply declares the
variables. You still need to do:

Set AcadApp = something
Set ThisDrawing = something

-Tim

 

In the following code you have to select the polyline which works fine
Is there a method of modifing the code to run if the polyline is ALREADY
selected if not select polyline

thank you

(defun VL-POLY () ;get the entity and entity name
(setq THEPL (car (entsel "\nSelect a Walk Polyline: "))
;convert to vl object
THEOBJ (vlax-ename->vla-object THEPL))
;check if it's a polyline
(terpri)
(if (= (vlax-get-property THEOBJ 'OBJECTNAME) "AcDb3dPolyline")
(progn
(setq WALKNO (substr (vla-get-layer THEOBJ) 1 5) ; layer name
C_TIME (menucmd
"M=$(edtime,$(getvar,date), DD-MO-YY HH:MM:SS)")
WALT " " ; 6 dummy spaces for altitude
IDENT "AA"
WALKLT (getstring "n\Enter T=Altitude Z=Zero altitude ")

 

so you are using vb right?not vba

where is the code?
Set ThisDrawing = ...