;참조스케일
(defun c:scc(/ ss sc1 sc2 p1)
;->*error* start
 (defun *error* (msg)(princ "error: ")(princ msg)
 (setvar "osmode" os)
 (princ))
;-<*error* end
  (setq os (getvar "osmode"))
  (setq ss (ssget))
  (setvar "osmode" 37) ; 1 끝, 32 교차, 4 중심
  (setq p1 (getpoint "n≫ 기준점 지정:"))
  (setq sc1 (getdist p1 (strcat "n≫ 현재 길이 점 지정 :"))) 
  (setq sc2 (getdist p1 "n≫ 새로운 길이 점 지정 :"))
  (command "undo" "be")
  (setvar "osmode" 0)
  (command "scale" ss "" p1 "r" sc1 sc2)
  (setvar "osmode" os)
  (command "undo" "e")
(princ)
);defun