那位大神帮我修改一下这个放大插件

l982414603

这个放大插件很好用，就是有个问题，会把放大所在的图层置为当前图层，谁帮我改一下

xj6019

;;*************************************************************************局部放大

;;全局JBFD_GetScalStri放大倍数（字符），JBFD_BaseNumber标识（数字）,JBFD_ZoomStri视口

(defun C:FD (/             BASESYMBOL        BLI1         CLA1          CMD1           CP

             DCLID    DIM1    ENT        ENTCICL         ENTTEXT  FN          FNAME

             GETZOOM  LAY     LIN        NEWBLOCK NEWP          NEWSS           OSM1

             P1              P2       PL       RETURN#         SCALREAL SS           TEXTHEIGH

             X

            )

  ;;1 错误处理

  (defun *error* (s)

    (while (not (equal (getvar"cmdnames") "")) (command nil))

    (if        entText

      (command"_.erase" entText "")

    )

    (if        lay

      (setvar"clayer" lay)

    )

    (setvar "blipmode" bli1)

    (setvar"cmdecho" cmd1)

    (setvar"DIMASSOC" DIM1)

    (setvar "osmode"osm1)

      (setq old_lay (getvar "clayer")) ; 保存当前图层

    (princ s)

    (princ "出错啦!")

    (princ)

  )

.

.

.

.

.

.

.

.

(setvar "blipmode"bli1)

  (setvar "cmdecho"cmd1)

  (setvar "DIMASSOC"DIM1)

  (setvar "osmode"osm1)

   (setvar "clayer" old_lay) ; 回复保存的图层

  (gc)

  (princ)

)

;;*************************************************************************放大主程序

l982414603

好像出错了

l982414603

xj6019 发表于 2020-8-15 20:56
;;*************************************************************************局部放大;;全局JBFD_GetS ...

好像还是不行哦