; Created by Igal Averbuh 2015. Dedicated to Topaz LTD
(defun c:CB ()
(princ "\rCopyBase: (0.0,0.0,0.0) ")
(setvar 'cmdecho 0)
(layerstate-save "exist" nil nil)
(command "-layer" "u" "*" "")
(setq sel1 (ssget))
(command "ucs" "w")
(command "._copybase" "0,0,0" sel1 "")
(command "ucs" "previous")
(SetVar "ucsicon" 1)
(layerstate-restore "exist" nil nil)
;(c:pl)
(setvar 'cmdecho 1)
)
(defun c:PB ()
(princ "\rPasteBase: (0.0,0.0,0.0) ")
(setvar 'cmdecho 0)
(layerstate-save "exist" nil nil)
(command "ucs" "w")
(command "._pasteclip" "0,0,0")
(command "ucs" "previous")
(SetVar "ucsicon" 1)
(layerstate-restore "exist" nil nil)
(setvar 'cmdecho 1)
)

Advertisements