设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：程序中途退出如何让原设置不变 ...
返回列表 发新帖
查看: 1226|回复: 7

[求助] [求助]：程序中途退出如何让原设置不变

[复制链接]
szx025
发表于 2007-4-28 11:20:06 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
下面是我编的小程序,程序执行没有问题,如果程序中途退出,如何让图层也能返回0层,颜色随层,捕捉保存原来的设置?
(defun mid_pt (a b)
(mapcar
'(lambda (a b) (/ (+ a b) 2))
a
b
)
)
(defun c:TB (/ pt1 pt2 pt3 pt4 p1 ku1 str)
       (setq olderr *error*
           *error* at_err)
;;保存系统变量设置
    (setq old_OS  (getvar "OSMODE")
      old_CMD (getvar "CMDECHO")
    )   
       (setvar "osmode" 0)
(command "-layer" "m" "文字"
                  "C" "10" """")
       (setq pt1 (getpoint "\n定位点:"))
       (setq pt2 (getpoint pt1 "\n定位点:"))
       (command "line" pt1 pt2 "")
       (setq pt3 (getpoint pt2 "\n定位点:"))
       (setq ku1 (angle pt2 pt3))
       (setq pt4 (polar pt2 ku1 2100))
       (command "line" pt2 pt4 "")
       (setq pt_mid (mid_pt pt2 pt4))
(setq p1 (polar pt_mid (* 0.5 pi) 100)) ;;文字起点   
       (setq str (getstring "\n请输入详图号/页数<1/48>:"))
(if (= str "") (setq str (strcat "TB2005-" "1/48")) (setq str (strcat "TB2005-" str)))
       (command "text" "j" "c" p1 300 0 str)
       (setvar "osmode" 33)
       (setq *error* olderr)
;;恢复系统变量设置
    (setvar "CMDECHO" old_CMD)
    (setvar "OSMODE" old_OS)
   ;执行完毕返回0层
(setvar "clayer" "0")
       (princ)
       )
setq, 定位点, setvar

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

libo2000
发表于 2007-4-28 12:15:19 | 显示全部楼层
(defun *error* (msg)
;;; 爱干什么就干什么
(prnc msg)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

szx025
 楼主| 发表于 2007-4-28 15:08:56 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
楼上的朋友,是否在程序中加入上述语句?加在何处,请明示.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

网络水手
发表于 2007-4-28 15:32:36 | 显示全部楼层
;;;通用子程序                                               
;;;------------------------ CMDLA0 -------------------------
;;;------------------------ CMDLASC0 -----------------------
;;;                    保存用户系统变量                     
;;;方式 : (CMDLA0)
(defun CMDLASC0        ()
  (CMDLA0)
  (if (null sc)
    (SETBL)
  )
)
(defun CMDLA0 ()
  (defun *error* (msg)
    (princ "错误 : ")
    (princ msg)
    (CMDLA1)
  )
  (SetQ        **SysVarNL**
                     '("AUNITS"             "AUPREC"           "ATTDIA"
                       "BLIPMODE"    "CECOLOR"           "CELTYPE"
                       "CLAYER"             "CMDECHO"           "DIMZIN"
                       "EXPERT"             "HIGHLIGHT"   "LUNITS"
                       "LUPREC"             "OSMODE"           "ORTHOMODE"
                       "TEXTSTYLE"   "PLINEWID"           "dimdec"
                       "dimadec"     "regenmode"   "pickbox"
                      )
        #time1             (rtos (getvar "cdate") 2 16)
        start-time   (substr (rtos (getvar "cdate") 2 16) 7)
  )
  (SetIErr)
  (command "ucs" "")
  (command ".undo" "BE")
  (princ)
)


(Defun SetIErr (/ sv)
  (If (= 'LIST (Type *error*))
    (Alert "错误：最后一个(SetIErr)函数没有配对的(ReErr)!")
    (Progn
      (SetQ **svarl** '())
      (ForEach sv **SysVarNL**
        (SetQ **svarl** (Cons (GetVar sv) **svarl**))
      )
      (ForEach sv '("ATTDIA"           "BLIPMODE"          "CMDECHO"
                    "ORTHOMODE"           "DIMZIN"          "plinewid"
                    "regenmode"
                   )
        (SetVar sv 0)
      )
      (setvar "ATTREQ" 1)
      (SetVar "EXPERT" 5)
      (setvar "pickbox" 5)
      (setvar "pickadd" 1)
      (setvar "aperture" 5)
      (Defun-Q *error* (st) (ReErr))
    )
  )
)
(Defun ReErr ()
  (If (= 'LIST (Type *error*))
    (Progn
      (MapCar 'SetVar **SysVarNL** (Reverse **svarl**))
      (SetQ *error* nil)
      (SetVar "modemacro" ".")
    )
  )
)

;;;------------------------ CMDLA1 -------------------------
;;;                     恢复用户系统变量                    
;;;方式 : (CMDLA1)                                          
(defun CMDLA1 ()
  (command ".undo" "E")
  (command "ucs" "")
  (ReErr)
  (princ)
)


;;; ---------------------- setbl ---------------------------
;;;                    设置出图比例                        
;;;方式 : (setbl)
(defun setbl ()
  (if (= (getvar "UserI1") 0)
    (setvar "UserI1" 1)
  )
  (if (= (getvar "UserR1") 0)
    (setvar "UserR1" 1.0)
  )
  (setq        bl (ureal 1 "" "\n输入出图比例1 " bl)
        SC (/ bl 100.0)
  )
  (setvar "UserR1" (/ 1.0 sc))
  (command "modemacro"
           (strcat " 当前出图比例 1:"
                   (rtos bl 2 1)
           )
  )
  (princ)
)


http://p4.xdcad.net/forum/showthread.php?s=&threadid=486574
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2007-4-28 19:07:50 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我一直的观点就是：在小东东中不要轻易去设置错误处理，应通过采用适当的结构去避免错误的发生。

<br>
楼主szx025  在1楼的代码我不知其具体用途，根据我的理解将其改动如下，
若有不妥，请回复告知。

  3. ;;;===========================================
  4. (defun mid_pt (a b)
  5.     (mapcar
  6.         '(lambda (a b) (/ (+ a b) 2))
  7.         a
  8.         b
  9.     )
  10. )
  11. ;;;===========================================
  12. (defun c:TB (/ pt1 pt2 pt3 pt4 p1 ku1 str)
  13.     ;;保存系统变量设置
  14.     (setq old_OS  (getvar "OSMODE")
  15.           old_CMD (getvar "CMDECHO")
  16.     )
  17.     (setvar "OSMODE" 0)
  18.     (setvar "CMDECHO" 0)
  19.     (command "-layer" "m" "文字" "C" "10" "" "")
  20.     (if        (and (setq pt1 (getpoint "\n定位点:"))
  21.              (setq pt2 (getpoint pt1 "\n定位点:"))
  22.         )
  23.         (progn
  24.             (setvar "OSMODE" 0)
  25.             (command "_.line" pt1 pt2 "")
  26.             (if        (setq pt3 (getpoint pt2 "\n定位点:"))
  27.                 (progn
  28.                     (setq ku1 (angle pt2 pt3)
  29.                           pt4 (polar pt2 ku1 2100)
  30.                     )
  31.                     (setvar "OSMODE" 0)
  32.                     (command "_.line" pt2 pt4 "")
  33.                     (setq pt_mid (mid_pt pt2 pt4)
  34.                           p1         (polar pt_mid (* 0.5 pi) 100)
  35.                     )
  36.                     ;;文字起点
  37.                     (setq str (getstring "\n请输入详图号/页数<1/48>:"))
  38.                     (if        (= str "")
  39.                         (setq str "TB2005-1/48")
  40.                         (setq str (strcat "TB2005-" str))
  41.                     )
  42.                     (setvar "OSMODE" 0)
  43.                     (command "text" "j" "c" p1 300 0 str)
  44.                 )
  45.                 ;;若退出，则删去 pt1 pt2 间的连线
  46.                 (command "_.erase" (entlast) "")
  47.             )
  48.         )
  49.     )

  51.     ;;恢复系统变量设置
  52.     (setvar "CMDECHO" old_CMD)
  53.     (setvar "OSMODE" old_OS)
  54.     ;;执行完毕返回0层
  55.     (setvar "clayer" "0")
  56.     (princ)
  57. )
  58. ;;;===========================================
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

fsxm

已领礼包: 6个

财富等级: 恭喜发财
发表于 2007-4-28 19:11:35 | 显示全部楼层
(command "_.line" "non" pt1 "non"  pt2 "")
这样就很好小小程序没有必去搞那么复杂~~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2007-4-28 19:20:45 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这样是否更好一些：

  3. ;;;===========================================
  4. (defun mid_pt (a b)
  5.     (mapcar
  6.         '(lambda (a b) (/ (+ a b) 2))
  7.         a
  8.         b
  9.     )
  10. )
  11. ;;;===========================================
  12. (defun c:TB (/ pt1 pt2 pt3 pt4 p1 ku1 str)
  13.     ;;保存系统变量设置
  14.     (setq old_CMD (getvar "CMDECHO"))
  15.     (setvar "CMDECHO" 0)
  16.     (if        (and (setq pt1 (getpoint "\n定位点:"))
  17.              (setq pt2 (getpoint pt1 "\n定位点:"))
  18.              (not (grdraw pt1 pt2 10))
  19.              (setq pt3 (getpoint pt2 "\n定位点:"))
  20.         )
  21.         (progn
  22.             ;;刷新图形窗口
  23.             (redraw)
  24.             (setq ku1 (angle pt2 pt3)
  25.                   pt4 (polar pt2 ku1 2100)
  26.             )
  27.             (command "-layer" "m" "文字" "C" "10" "" "")
  28.             (command "_.line" "non" pt1 "non" pt2 "non" pt4 "")
  29.             (setq pt_mid (mid_pt pt2 pt4)
  30.                   p1         (polar pt_mid (* 0.5 pi) 100)
  31.             )
  32.             ;;文字起点
  33.             (setq str (getstring "\n请输入详图号/页数<1/48>:"))
  34.             (if        (= str "")
  35.                 (setq str "TB2005-1/48")
  36.                 (setq str (strcat "TB2005-" str))
  37.             )
  38.             (command "text" "j" "c" "non" p1 300 0 str)
  39.             ;;执行完毕返回0层
  40.             (setvar "clayer" "0")
  41.         )
  42.     )
  43.     ;;刷新图形窗口
  44.     (redraw)
  45.     (setvar "CMDECHO" old_CMD)

  47.     (princ)
  48. )
  49. ;;;===========================================
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

szx025
 楼主| 发表于 2007-4-28 19:56:20 | 显示全部楼层
谢谢楼上的朋友,要的就是这个效果,
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-17 13:30 , Processed in 0.191568 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表