아키모아 주말 농부님이 만드신 리습입니다. 

;;=============================================================
;  등분하여 복사하기(1996 주말농부)
;  ->선택한 객체을 일정구간을 N등분으로 나누어 복사하는 명령어
;;------ divide copy ------------------------------------------
(defun c:di(/ choi d-ss pt1 pt2 a1 d-t d-1 tot num)
;->*error* start
 (defun *error* (msg)(princ "error: ")(princ msg)
 (setvar "osmode" choi)
 (princ))
;-<*error* end
   (setq choi (getvar "osmode"))
   (prompt "..Divide Copy")
   (setq d-ss (ssget))
;   (setvar "osmode" 32)
   (setq pt1 (getpoint "nBase point->"))           ; 기준점선택
   (setq pt2 (getpoint pt1 "nSecond point->"))   ; 다음점선택
   (setvar "osmode" 0)
   (setq num (getint "nNumber of divide=>"))     ;나눌객체수입력
   (setq a1 (angle pt1 pt2) d-t (distance pt1 pt2)
         d-1 (/ d-t num)    tot d-1)
   (repeat (- num 1)
      (setq p1 (polar pt1 a1 tot))
      (command "copy" d-ss "" pt1 p1)
      (setq tot (+ tot d-1))
   )
   (setvar "osmode" choi)
   (prompt "nResult | ")
   (prin1 d-1)(prompt " * ")(prin1 num)(prompt " = ")(prin1 d-t)
(prin1))