display the distance dynamically

[vivekgrs]

hi everybody,

 

I need to write a code for display the horizontal and vertical distance dynamically. while the user pick the start point and move the mouse. can anyone help me how to proceed.

 

 

Thanks

 

Vivek

[gile]

Hi,

 

Setting DYNMODE and DYNPIFORMAT to 1 ?

[vivekgrs]

hi gile,

 

Thanks for ur immediate response. i had tried dynmode in autocad 2004. it is not working. i had read in some other website that this system variables are available from autocad 2007 onwards. whether its true or what. can u reply me regarding this.

 

regards

vivek

[JohnM]

see if this get you close

 
;;; modemacro will display at the bottom left of the autocad screen before the coordinates read out
(defun c:trk (/ pt1 c)
  (setq pt1 (getpoint "\nSelect a point: "))
(setq x T)
  (while x
       (setq ms (grread T 1))
       (if (= (nth 0 ms) 5)            
  (setvar "modemacro" (rtos(distance pt1 (nth 1 ms))))
       (setq x nil)
       );_if
  );_while
(setvar "modemacro" "");_reset modemacro
 );_defun

[alanjt]

see if this get you close

 
;;; modemacro will display at the bottom left of the autocad screen before the coordinates read out
(defun c:trk (/ pt1 c)
  (setq pt1 (getpoint "\nSelect a point: "))
(setq x T)
  (while x
       (setq ms (grread T 1))
       (if (= (nth 0 ms) 5)            
  (setvar "modemacro" (rtos(distance pt1 (nth 1 ms))))
       (setq x nil)
       );_if
  );_while
(setvar "modemacro" "");_reset modemacro
 );_defun

 

Interesting idea John. Give grtext a look, you can use it and avoid having to set/reset the modemacro system variable.

 

You could also put:

(redraw)
(grdraw pt1 (cadr ms) 7)

so the user has an idea of the origin point.

 

I hope you take no offense to my blathering, just offering additional goodies.

[JohnM]

No offence taken. That is what forums like this are for.

Just remember there is always more than one way to skin a cat.

But it still taste like chicken.

[alanjt]

No offence taken. That is what forums like this are for.

Just remember there is always more than one way to skin a cat.

But it still taste like chicken.

How right you are.

[alanjt]

Just to go along with what I was saying...

 

(defun c:Test (/ *error* #Pnt #Read #Dist)
 (setq *error* (lambda (x) (grtext) (redraw)))
 (and (setq #Pnt (getpoint "\nSpecify base point: "))
      (while (eq 5 (car (setq #Read (grread T 15 0))))
        (redraw)
        (grdraw #Pnt (cadr #Read) 1 1)
        (setq #Dist (strcat "Distance: " (rtos (distance #Pnt (cadr #Read)))))
        (princ (strcat "\r" #Dist "          "))
        (grtext -1 #Dist)
      ) ;_ while
 ) ;_ and
 (*error* nil)
 (princ)
) ;_ defun

[vivekgrs]

thanks to everyone. its really helped me alot. what is the equivalent command of grread in vba. can anyone help me