Lisp program

[prathimaholla]

Hi I am ajith .I need a lisp program to find end points of autocad drawing and display its dimention with reference to x or y plane

[Raggi_Thor]

Start playing with (getvar "extmin").

You would probably guess on "extmax" also.

 

This will give you a list of x,y,z for the min an max of the drawing's extents.

[prathimaholla]

Start playing with (getvar "extmin").

You would probably guess on "extmax" also.

 

This will give you a list of x,y,z for the min an max of the drawing's extents.

 

Can you send code to find all end points of a drawing

[Lee Mac]

Try this:

 

(defun c:dwgdim    (/ bt tp)
   (setq bt (getvar "extmin")
     tp (getvar "extmax")
   ) ;_  end setq
   (alert (strcat "Drawing Dimensions are: \n"
          (rtos (- (car tp) (car bt)) 2 2)
          " x "
          (rtos (- (cadr tp) (cadr bt)) 2 2)
      ) ;_  end strcat
   ) ;_  end alert
   (princ)
) ;_  end defun

 

But it probably would have benefitted you more to experiment with the variables yourself.

[Raggi_Thor]

I agree, but you where kind

[Lee Mac]

I agree, but you where kind

 

 

Cheers Raggi,

 

I must say, you pretty much spelled out how to create the code, but as he stubbornly still requested the code to be posted, I thought I'd experiment, as I too had never used the extmin and extmax variables - pretty useful it turns out.