;;将UCS实体投影到WCS，适用2000+以上，R14下对elst需要去除实体名、句柄等
;;才可entmake
;;Write by eachy 2003.08.19
(defun ConvertEntitytoWCS (ent / elst)
  (setq elst (entget ent))
  (setq
    elst
     (mapcar
       '(lambda	(x)
	  (if (member (car x) '(10 11 12 13 14 15 16 17 18 19))
	    (cons (car x) (trans (list (cadr x) (caddr x) 0.) 0 1))
	    x
	  )
	)
       elst
     )
  )
  (setq	elst (subst '(210 0.0 0.0 1.0)
		    (assoc 210 elst)
		    elst
	     )
  )
  (entmake elst)
  (entdel ent)
  (princ)
)