Lisp routine for coordinate dimensions

[Anonymous]

Hi,

Does anyone have a lisp routine that will globally dimension a series of coordinates similar to how they are shown in the enclosed attachment ?

thanks

Mark

[Ranjit_Singh]

A quick example

(defun c:somefunc  (/ pt)
 (while (setq pt (getpoint "\nSelect Ordinate point:"))
  (command "._dimordinate" pt (mapcar '- pt '(2 0 0)) "._dimordinate" pt (mapcar '- pt '(0 2 0)))))

[braudpat]

Hello Ranjit

Your routine is so beautiful, so compact, so AutoLisp !

Thanks, Regards, Patrice

[Anonymous]

HI Ranjit, great lisp file, but when I try to pick a point using an osnap such as intersection, it only gives me one coordinate. When I pick a floating area as per your screen shot it will give me both X & Y

[Ranjit_Singh]

---

braudpat wrote:

Hello Ranjit

Your routine is so beautiful, so compact, so AutoLisp !

Thanks, Regards, Patrice

---

 Thanks @braudpat

---

@Anonymous wrote:

HI Ranjit, great lisp file, but when I try to pick a point using an osnap such as intersection, it only gives me one coordinate. When I pick a floating area as per your screen shot it will give me both X & Y

---

Can you provide some demonstration or more details. I am not able to replicate the problem. It works even with osnap for me.

[ВeekeeCZ]

Isn't it just the osnap issue?

(defun c:somefunc  (/ pt)
 (while (setq pt (getpoint "\nSelect Ordinate point:"))
  (command "._dimordinate" "_non" pt  "_non" (mapcar '- pt '(2 0 0))
           "._dimordinate" "_non" pt "_non" (mapcar '- pt '(0 2 0)))))

[Ranjit_Singh]

---

@ВeekeeCZ wrote:

Isn't it just the osnap issue?

 ................

---

I honestly don't think so. Seems like OP wants to use osnap, and when he does he just gets one of the ordinate dimensions. That doesn't make sense to me.

[Anonymous]

HI,

so I tried reloading the lisp file and now it does work with Osnaps. No sure why it didn't the first time. One other question and then I'm set. If I want the X coordinate to show on the right instead of left, is that adjusted in the dimension settings ?

thanks

[Ranjit_Singh · Accepted solution]

Yes, something like this to flip the x-corodinate

(defun c:somefunc  (/ pt)
 (while (setq pt (getpoint "\nSelect Ordinate point:"))
  (command "._dimordinate" pt (mapcar '+ pt '(2 0 0)) "._dimordinate" pt (mapcar '- pt '(0 2 0)))));+- option

and this to flip y

(defun c:somefunc  (/ pt)
 (while (setq pt (getpoint "\nSelect Ordinate point:"))
  (command "._dimordinate" pt (mapcar '- pt '(2 0 0)) "._dimordinate" pt (mapcar '+ pt '(0 2 0)))));-+ operation

Really there could be four different combinations; ++ (NE Quadrant) +-(NW Quadrant) -+(SE Quadrant) -- (SW Quadrant)

[Anonymous · Accepted solution]

PERFECT !!!

Thanks again for your help