;;; Convert whole drawing from OLD Israel Coordination System to New one
;;; Created by Igal Averbuh 2016
(defun c:ncc (/ ss)
(command "ucs" "w")
(command "-layer" "u" "*" "")
(command "_.move" "all" "" "0,0,0" "@50000,500000")
(command "ucs" "previous")
(setvar "ucsicon" 1)
(command "zoom" "e")
(princ)
)
(c:ncc)

Advertisements