[LISP程序]：請各方高手看一下唷！

ljs026

下面是一個局部放大的程序，小弟想請問：我有個PHA的圖層，那麼能將放大的那個圓的圖層(不是裡面的物件唷)，直接改成這個圖層嗎？另外是不是有辦法可以讓放大的地方，標註比例不會跟著變大，而是和平常一樣？或者當標註放大的地方時，可以自動改變標註比例為放大的相對縮小比例
(defun c:FDd()
(setq veracad (atoi (getvar "ACADVER")))
(if (>= veracad 15)
(fdd2000)
)
)
(defun Dd20(/ e p pc k r n ep)
(setvar "CMDECHO" 0)
(setvar "OSMODE" 0)
(setq e (car (entsel"\n局部放大\n此命令之前必須在要放大區域畫一個圓\n請選擇放大區域圓:"))
      pc (cdr (assoc 10(entget e)))
      p  (getpoint "\n請輸入放大後位置:")
      k  (getreal "\n請輸入放大倍數:")
      r  (cdr (assoc 40 (entget e)))
)
(setq kkk p)
(command "copy" "cp" )
(setq n 0 )
(repeat 180
  (command (polar pc (/ (* 2 n pi) 180) r))
  (setq n (+ n 1))
)
(command """" pc p)
(setq n 0)
(setvar "PICKBOX" 5)
(command "zoom" "c" p (* 3 r))


(command "circle" p r)
(setq ep (entlast))
(command "trim" ep "" )
(repeat 180
  (command (polar p (/ (* 2  n pi)180) (* r 1.1)))
  (command "f" (polar p (/ (* 2  n pi) 180) (* r 1.01)))
  (setq n (+  n 1))
  (command (polar p (/ (* 2  n pi) 180) (* r 1.01)) "")
)
  (COMMAND "")
  (command "erase"ep"")
(command "" "zoom""p")
(command "copyclip" "w" (list (- (car p) r) (- (cadr p) r))
         (list (+ (car p) r)(+ (cadr p) r)) "")
(command "erase""c"(list (- (car p) r) (- (cadr p) r))
         (list (+ (car p) r)(+ (cadr p) r)) "")
(command "pasteclip" (list (- (car p) r) (- (cadr p) r)))

(command "scale""c"(list (- (car p) r) (- (cadr p) r))
         (list (+ (car p) r)(+ (cadr p) r)) "" kkk k)
(command "redraw")
(setvar "OSMODE" 4261)
(princ)
)