;;;Subroutine. Translates points from MCS to WCS.  Only for list returned by nentsel from block selection.
;;;
;;;       Requirements:   nntlst  must be a list returned by (nentsel) for a
;;;                               selection of a block (and not selected by an
;;;                               attribute).
;;;
;;;                       defpnt  is a coordinate list (x y z) of an entity
;;;                               within the selected block.
;;;
;;;       newdpt  =  the coordinate location of defpnt in the WCS.
;;;                               
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-24-97
;;;>		   EDITED: 06-21-2001
;;;
(defun transpt (nntlst defpnt / )
  (setq newdpt
    (list
      (+
        (* (car defpnt) (car (nth 0(nth 2 nntlst))))
        (* (cadr defpnt) (car (nth 1(nth 2 nntlst))))
	(if (eq(length defpnt)3)
          (* (caddr defpnt) (car (nth 2(nth 2 nntlst))))
	  0
	)
        (car (nth 3(nth 2 nntlst)))
      )
      (+
        (* (car defpnt) (cadr (nth 0(nth 2 nntlst))))
        (* (cadr defpnt) (cadr (nth 1(nth 2 nntlst))))
	(if (eq(length defpnt)3)
          (* (caddr defpnt) (car (nth 2(nth 2 nntlst))))
	  0
	)
        (cadr (nth 3(nth 2 nntlst)))
      )
      (+
        (* (car defpnt) (caddr (nth 0(nth 2 nntlst))))
        (* (cadr defpnt) (caddr (nth 1(nth 2 nntlst))))
	(if (eq(length defpnt)3)
          (* (caddr defpnt) (car (nth 2(nth 2 nntlst))))
	  0
	)
        (caddr (nth 3(nth 2 nntlst)))
      )
    )
  )
)