l982414603 发表于 2020-8-15 14:11:57

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

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

xj6019 发表于 2020-8-15 20:56:01


;;*************************************************************************局部放大;;全局JBFD_GetScalStri放大倍数（字符），JBFD_BaseNumber标识（数字）,JBFD_ZoomStri视口(defun C:FD (/             BASESYMBOL      BLI1         CLA1          CMD1         CP             DCLID    DIM1    ENT      ENTCICL         ENTTEXTFN          FNAME             GETZOOMLAY   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 发表于 2020-8-17 13:46:10

好像出错了

l982414603 发表于 2020-8-17 19:03:22

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

好像还是不行哦
页: [1]
查看完整版本: 那位大神帮我修改一下这个放大插件