Topic: Setting Coordinate System

[pedroantonio123]

Hi

Is it possible to set the  information Setting Coordinate System (Italy-U32) with Lisp
see image e attach also the DWG File



http://img4web.com/view/YGAGXX


Maybe someone knows a way

Thanks
Pedro

[VovKa]

Code: [Select]

(ade_projsetwscode "ITALY-U32")

[pedroantonio123]

Thanks VovKa
it works in Map3D

It is possible to do this  in Autocad?
When I open a DWG Map3D  in Autocad then I see these coordinates information "Italy-U32" it can remove them by command GEOREMOVE.
Is there a way with Lisp to set "Italy-U32" in Autocad?

Thanks
Pedro

[VovKa]

try it

Code: [Select]

(defun vk_projsetwscode (WSCode / a b c d e)
  (if (not (tblsearch "appid" "ADE_PROJECTION"))
    (regapp "ADE_PROJECTION")
  )
  (setq a (entget (namedobjdict) (list "*"))
b (assoc -3 a)
c (assoc "ADE_PROJECTION" (cdr b))
d (list "ADE_PROJECTION" (cons 1000 WSCode))
e (if c
    (subst d c b)
    (append b (list d))
  )
  )
  (entmod (if b
    (subst e b a)
    (append a (list (cons -3 e)))
  )
  )
)
;;;(vk_projsetwscode "ITALY-U32")

[pedroantonio123]

It woooooorks, thanks VovKa   
After saving the DWG, the coordinate system is displayed
(vk_projsetwscode "UTM84-33N")
Maybe there a possibility that the coordinate system is displayed immediately?
This would be perfect

Thanks

[VovKa]

Maybe there a possibility that the coordinate system is displayed immediately?

can't help because i use Map3d 2005 and it doesn't have that feature, so i can't test