LISP 局部放大尺寸不变如何更改啊。

虹桥模具仔

下面是尺寸放大的代码如何更改使局部放大标注尺寸不变。。



(defun C:ffd( / e oce lts  p  k r n n1 ep)
  
  ( setq oce (getvar "osmode")
         lts (getvar "ltscale"))
  (setvar "osmode" 0)
  (command "ucs" "w")
  ( princ " \n请选择放大区域圆:")
(setq e (car (entsel))
      pc (cdr(assoc 10 (entget e)))
      p (getpoint "\n输入放置点:")
      k (getreal "\n输入放大比例:")
      r (cdr (assoc 40 (entget e)))
)
(command "copy" "cp")
(setq n 0)
(repeat 180
        (command (polar pc (/ (* 2 n pi) 180 ) r ))
        (setq n (+ 1 n))
)
(command "" "" pc p)
(setq n 0)
(setvar "PICKBOX" 5)
(setvar "ltscale" (* 0.01 lts))
(command "zoom" "c" p (* 3 r))
(command "circle" p r)
(setq ep (entlast))
(command "trim" ep "")
(repeat 180
        (command "f" (polar p (/ (* 2 n pi) 180) (* r 1.01)))
        (command (polar p (/ (* 2 (+ 1.5 n)  pi) 180) (* r 1.01)) )
        (command (polar p (/ (* 2 n pi) 180) (* r 1.2)))
        (command (polar p (/ (* 2 (+ 1.5 n)  pi) 180) (* r 1.2)) "" )
        (setq n (+ 1 n))
         )
(command "" "zoom" "p")
(command "scale" "c" (list (- (car p) r )(- (cadr p) r)) (list (+ (car p) r) (+ (cadr p) r )) "" p k)
(command "erase" ep "")
(setvar "ltscale" lts)
(command "redraw")
(setvar "osmode" oce)
(princ)

)