Author Topic: Northing and Eastings from paperspace  (Read 1470 times)

0 Members and 1 Guest are viewing this topic.

jvillarreal

  • Bull Frog
  • Posts: 332
Northing and Eastings from paperspace
« on: January 08, 2010, 12:29:29 PM »
Hi all,

The company I work for recently began following standards which require all text to be in paperspace so i put this little routine together for labeling northings & eastings from pspace.
The routine works as is but my question is:
"Whats the best way to translate a paperspace wcs coordinate to a modelspace wcs coordinate?"

Any help is appreciated. Thanks
« Last Edit: January 08, 2010, 03:24:21 PM by jvillarreal »

mjguzik

  • Newt
  • Posts: 30
Re: Northing and Eastings from paperspace
« Reply #1 on: January 08, 2010, 12:43:51 PM »
Give this a try.  I think it will do what you want.

Code: [Select]
;;;*******************************************************************************************
;;; FUNCTION: PS->MS
;;; DESCRIPTION: Converts PS coordinate to MS
;;; ARGS: point
;;; EXAMPLE: (ps->ms '(2.87312 2.58077))
;;; RETURNS: (2.5 2.5)
;;;*******************************************************************************************
(defun ps->ms (point / x y) (mapcar 'set '(x y) (trans (trans (trans point 3 2) 2 1) 1 0)))


Regards,

jvillarreal

  • Bull Frog
  • Posts: 332
Re: Northing and Eastings from paperspace
« Reply #2 on: January 08, 2010, 12:49:45 PM »
Thanks for the reply,
That seems to return the modelspace point of the display coordinate system.
I'm looking to enter modelspace once (if at all) and select points in paperspace that will be translated to the mspace wcs.