[求助]：求高手们看看这代码如何使输入半径后不退出？

andyhua5240 · 发表于 2006-12-24 13:43:48

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

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

×

求高手们看看这段代码如何输入r，半径后，程序不退出？
程序的思路是：
在执行fillet命令时，pickbox的为6，程序完成后其值变为用户的设定的值。但是这段代码不能成功的输入R，给定其半径呀？
高手们帮忙改改？谢谢了！

[FONT=courier new]
(defun pb_err (s)
(setvar "cmdecho" cm)
(setvar "pickbox" pi)
(setvar "gripsize" gr)
(command "_.undo" "_e")
)
(defun c:test ()
(setq cm (getvar "cmdecho"))
(setq pi (getvar "pickbox"))
(setq gr (getvar "gripsize"))
(setq *error* pb_err)
(setvar "cmdecho" 1)
(setvar "pickbox" 6)
(setvar "gripsize" 6)
(setvar "trimmode" 1)
(command ".fillet" "u")
(while (/= 0 (getvar "cmdactive")) (command pause))
(setvar "cmdecho" cm)
(setvar "pickbox" pi)
(setvar "gripsize" gr)
(princ)
)
[/FONT]

Underway · 发表于 2006-12-24 15:03:41

(command ".fillet" "u")

===>
(command ".fillet" "R" Pause "U" )

andyhua5240 · 发表于 2006-12-24 16:24:52

楼上的不行呀

Underway · 发表于 2006-12-24 16:39:23

Try
(command ".fillet" "R" Pause "U" )
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))

andyhua5240 · 发表于 2006-12-24 17:57:20

还是不行。
程序的思路是在执行fillet的时候能自动的将pickbox的值设置为6，完成后就返回用户的值。
本来我上面的程序已经可以满足要求了，但是在执行时如果输入R的半径就会退出。
楼主还是试一下我上面的程序就会明白了？
谢谢！

Underway · 发表于 2006-12-24 18:11:07

Sorry Try this

(defun c:test ()
  (setq cm (getvar "cmdecho"))
  (setq pi (getvar "pickbox"))
  (setq gr (getvar "gripsize"))
  (setq *error* pb_err)
  (setvar "cmdecho" 1)
  (setvar "pickbox" 6)
  (setvar "gripsize" 6)
  (setvar "trimmode" 1)
  (setvar "FilletRad" (getreal "\n请输入R的半径: "))
  (command ".fillet" "u")
  (while (/= 0 (getvar "cmdactive")) (command pause))
  (setvar "cmdecho" cm)
  (setvar "pickbox" pi)
  (setvar "gripsize" gr)
  (princ)
)

andyhua5240 · 发表于 2006-12-24 23:36:18

其实楼主还是没有完全明白我的意思，我要求程序是和原来的fillet命令一样的执行。
也就是中途可以输入R，但是并不是每次都要输入半径呀？
其实就是将FILLET命令加强了。

Underway · 发表于 2006-12-25 10:38:30

Sorry
一直都在打迷糊

(setq resp (getvar "LASTPROMPT"))
您这种情况得解析User的回应
再分岐要进行的程序 ....

另请参考:
http://discussion.autodesk.com/thread.jspa?messageID=1157459

Re:
a quick answer is:
(while T
(command "fillet")
(while (not (= 0 (getvar "cmdactive"))) (command pause))
)
; but you'll need to ESC with error to quit and then your sys var handler
won't reset (unless it's like the express tools with a built-in error
handler and reset of sysvar's combined)

andyhua5240 · 发表于 2006-12-25 15:14:14

我不会呀？
不知楼主能解否？
谢谢！

zml84 · 发表于 2006-12-26 16:49:37

这是我的一个小东西，请根据你的要求进行改装吧。。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;ZML84制作于2006-12-26
;;;==========================================
;;;说明：
;;; 一个模拟"fillet"命令的东东。
;;;==========================================
(defun c:FF (/ S1 S2 test1 LX xx)
(princ "\n★★超级圆角★★")
(setq err_old *error*
*error* my_error
)
(setq CMDECHO_OLD (getvar "CMDECHO"))
(Setvar "CMDECHO" 0)
(princ
(strcat "\n当前设置: 模式 = "
(nth (getvar "EDGEMODE") '("修剪" "不修剪"))
", 半径 = "
(rtos (getvar "FILLETRAD") 2 (getvar "LUPREC"))
", 多个 = 是（右键或回车退出）"
)
)
(setq test1 t)
(while test1
(initget 4 "P R T")
(setq pt (GETPOINT
"\n选择第一个对象或 [多段线(P)/半径(R)/修剪(T)]: "
)
)
(cond
((= pt nil)
(setq test1 nil)
)
((= pt "P") ;分支一：多段线
(progn
(while
(if (SETQ s1 (entsel "选择二维多段线: "))
(if (= "LWPOLYLINE"
(cdr (assoc 0 (entget (car s1) '("*"))))
)
nil
(progn (princ "\n★选择的对象不是二维多段线\n")
t
) ;结束 progn
)
t
) ;结束 if
) ;结束 while
(command "_.undo" "be")
(command "_fillet" "P" S1)
(princ "\n★二维多段线，圆角操作完成。")
(command "_.undo" "e")
) ;结束 progn
) ;结束分支一
((= pt "R") ;分支二：圆角半径设置
(progn
(initget 4)
(SETQ XX (getdist
(strcat
"指定圆角半径 <"
(rtos (getvar "FILLETRAD") 2 (getvar "LUPREC"))
">: "
)
)
)
(if (>= xx 0)
(setvar "FILLETRAD" xx)
)
)
) ;结束分支二
((= pt "T") ;分支三：修剪选项设置
(progn
(initget "T N")
(SETQ XX (getint
(strcat
"\n输入修剪模式选项 [修剪(T)/不修剪(N)] <不修剪>:"
(nth (getvar "EDGEMODE") '("修剪" "不修剪"))
">: "
)
)
)
(if (= xx "T")
(Setvar "EDGEMODE" 1)
(if (= xx "N")
(Setvar "EDGEMODE" 0)
)
)
)
) ;结束分支三
((= pt "U") ;分支四：撤销上一步操作
(command "_.undo" 1)
)
((listp pt) ;分支五：对选中的对象进行圆角操作
(if (ssget pt)
(progn
(setq s1 (list (ssname (ssget pt) 0) pt))
(setq LX (cdr (assoc 0 (entget (car s1) '("*")))))
(if (or (= LX "LINE")
(= LX "ARC")
(= LX "CIRCLE")
(= LX "LWPOLYLINE")
)
(progn
(redraw (ssname (ssget pt) 0) 3)
(while
(= nil (setq s2 (entsel "\n选择第二个对象: ")))
)
(setq LX (cdr (assoc 0 (entget (car s2) '("*")))))
(if (or (= LX "LINE")
(= LX "ARC")
(= LX "CIRCLE")
(= LX "LWPOLYLINE")
)
(progn (command "_.undo" "be")
(command "_fillet" s1 s2)
(command "_.undo" "e")
)
(princ
(strcat
"\n★圆角需要两条直线、圆弧或圆。(不是""
LX
"")"
)
)
)
) ;结束　progn
(princ (strcat "\n★圆角需要两条直线、圆弧或圆。(不是""
LX
"")"
)
)
)
)
(princ "\n★未选择到对象。")
)
) ;结束分支五
) ;结束 cond 结束分支
) ;结束 while
(Setvar "CMDECHO" CMDECHO_OLD)
(setq *error* err_old)
(princ "\n★正常结束。谢谢使用。")
(princ)
) ;结束 defun
;;;自定义错误处理函数
(defun my_error (nr)
(command "_regen")
(princ (strcat "\n★出错了，错误: "
nr
"\n系统变量CMDECHO已恢复至:"
(itoa (Setvar "CMDECHO" CMDECHO_OLD))
"\n"
)
)
(setq *error* err_old)
(princ)
) ;结束 defun
(princ "\n\n★超级圆角。键入命令"FF"执行。")
(princ)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;ZML84制作于2006-12-26 
;;;========================================== 
;;;说明： 
;;;    一个模拟"fillet"命令的东东。 
;;;========================================== 
(defun c:FF (/ S1 S2 test1 LX xx) 
    (princ "\n★★超级圆角★★") 
    (setq err_old *error* 
          *error* my_error 
    ) 
    (setq CMDECHO_OLD (getvar "CMDECHO")) 
    (Setvar "CMDECHO" 0)    
 
    (princ 
        (strcat        "\n当前设置: 模式 = " 
                (nth (getvar "EDGEMODE") '("修剪" "不修剪")) 
                ", 半径 = " 
                (rtos (getvar "FILLETRAD") 2 (getvar "LUPREC")) 
                ", 多个 = 是（右键或回车退出）" 
        ) 
    ) 
 
    (setq test1 t) 
    (while test1 
        (initget 4 "P R T") 
        (setq pt (GETPOINT 
                     "\n选择第一个对象或 [多段线(P)/半径(R)/修剪(T)]: " 
                 ) 
        ) 
 
        (cond 
            ((= pt nil) 
             (setq test1 nil) 
            ) 
 
            ((= pt "P") ;分支一：多段线 
             (progn 
                 (while 
                     (if (SETQ s1 (entsel "选择二维多段线: ")) 
                         (if (=        "LWPOLYLINE" 
                                (cdr (assoc 0 (entget (car s1) '("*")))) 
                             ) 
                             nil 
                             (progn (princ "\n★选择的对象不是二维多段线\n") 
                                    t 
                             ) ;结束 progn 
                         ) 
                         t 
                     ) ;结束 if 
                 ) ;结束 while 
                 (command "_.undo" "be") 
                 (command "_fillet" "P" S1) 
                 (princ "\n★二维多段线，圆角操作完成。") 
                 (command "_.undo" "e") 
             ) ;结束 progn 
            ) ;结束 分支一 
 
            ((= pt "R") ;分支二：圆角半径设置 
             (progn 
                 (initget 4) 
                 (SETQ XX (getdist 
                              (strcat 
                                  "指定圆角半径 <" 
                                  (rtos (getvar "FILLETRAD") 2 (getvar "LUPREC")) 
                                  ">: " 
                              ) 
                          ) 
                 ) 
                 (if (>= xx 0) 
                     (setvar "FILLETRAD" xx) 
                 ) 
             ) 
            ) ;结束 分支二 
 
            ((= pt "T") ;分支三：修剪选项设置 
             (progn 
                 (initget "T N") 
                 (SETQ XX (getint 
                              (strcat 
                                  "\n输入修剪模式选项 [修剪(T)/不修剪(N)] <不修剪>:" 
                                  (nth (getvar "EDGEMODE") '("修剪" "不修剪")) 
                                  ">: " 
                              ) 
                          ) 
                 ) 
                 (if (= xx "T") 
                     (Setvar "EDGEMODE" 1) 
                     (if (= xx "N") 
                         (Setvar "EDGEMODE" 0) 
                     ) 
                 ) 
             ) 
            ) ;结束 分支三 
 
 
 
            ((= pt "U") ;分支四：撤销上一步操作 
             (command "_.undo" 1) 
            ) 
 
            ((listp pt) ;分支五：对选中的对象进行圆角操作 
             (if (ssget pt) 
                 (progn 
                     (setq s1 (list (ssname (ssget pt) 0) pt)) 
                     (setq LX (cdr (assoc 0 (entget (car s1) '("*"))))) 
                     (if (or (= LX "LINE") 
                             (= LX "ARC") 
                             (= LX "CIRCLE") 
                             (= LX "LWPOLYLINE") 
                         ) 
                         (progn 
                             (redraw (ssname (ssget pt) 0) 3) 
                             (while 
                                 (= nil (setq s2 (entsel "\n选择第二个对象: "))) 
                             ) 
                             (setq LX (cdr (assoc 0 (entget (car s2) '("*"))))) 
                             (if (or (= LX "LINE") 
                                     (= LX "ARC") 
                                     (= LX "CIRCLE") 
                                     (= LX "LWPOLYLINE") 
                                 ) 
                                 (progn        (command "_.undo" "be") 
                                        (command "_fillet" s1 s2) 
                                        (command "_.undo" "e") 
                                 ) 
                                 (princ 
                                     (strcat 
                                         "\n★圆角需要两条直线、圆弧或圆。(不是"" 
                                         LX 
                                         "")" 
                                     ) 
                                 ) 
                             ) 
                         ) ;结束　progn 
                         (princ        (strcat        "\n★圆角需要两条直线、圆弧或圆。(不是"" 
                                        LX 
                                        "")" 
                                ) 
                         ) 
                     ) 
 
                 ) 
                 (princ "\n★未选择到对象。") 
             ) 
            ) ;结束 分支五 
 
        ) ;结束 cond 结束分支 
 
 
    ) ;结束 while 
 
    (Setvar "CMDECHO" CMDECHO_OLD) 
    (setq *error* err_old) 
    (princ "\n★正常结束。谢谢使用。") 
    (princ) 
)    ;结束 defun 
 
 
;;;自定义错误处理函数 
(defun my_error        (nr) 
    (command "_regen") 
    (princ (strcat "\n★出错了，错误: " 
                   nr 
                   "\n系统变量CMDECHO已恢复至:" 
                   (itoa (Setvar "CMDECHO" CMDECHO_OLD)) 
                   "\n" 
           ) 
    ) 
    (setq *error* err_old) 
    (princ) 
)    ;结束 defun 
 
 
(princ "\n\n★超级圆角。键入命令"FF"执行。") 
(princ)

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：求高手们看看这代码如何使输入半径后不退出？

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

相关帖子