grread函数左键失效问题？

aaacjh

请前辈留步：
以下是个【“末尾带数字”单行文字】递增编号程序，在新增动态函数grread时，出现了左键失效情况。请前辈指点！[attach]72785
;;;实现识别递增编号 By cjh_201-12-08
;;;新增选择模式，增强通用性 2012-12-23
(defun c:HBC_BH(/ gr text EP1 zm ss zh lay sty col len i val ws qz p2 vzo strval bhms)
  (print "<HBC_BH（智能编号）>功能已开启")
  (print "<模式1:尾数数字位&&模式2:末位数字位")
  (setq os(getvar "osmode"))
  (setq oldlayer(getvar "CLAYER"))
  (setq temperr *errror*)
  (setq *error* trap1)
  (command "undo" "m")
  (setq os(getvar "osmode"))
  (setq bhms(getint"\n输入编号模式<模式1(1)/模式2(2)>(默认1):"))
  (setvar "CMDECHO" 0)
  (setvar "osmode" 0)
  (setq EP1(entsel"\n选取源编号:"))
  (while (= EP1 nil)
    (setq EP1 (entsel"\n选取源编号:"))
  )
  (setq zm(entget(car EP1)))
  ;(setvar "osmode" 15359)
  (setq ss(cdr(assoc 1 zm)) zh(assoc 40 zm)
        lay(assoc 8 zm) sty(assoc 7 zm)
  )
  (if (assoc 62 zm)
    (setq col(assoc 62 zm))
  );提取图层,颜色,字高,文字样式等信息
  (setq len(strlen ss))
  (setq i(- len 1))
  (setq val(substr ss len 1))
  (if (and (/= val "0") (= (atoi val) 0));非数字，成立
    (progn (alert"提示:编号末位非数字位!请在编号末位添加数字。")(exit))
  )
  (if (= bhms 2)
    (setq val(atoi val) qz(substr ss 1 i) ws 1);后缀，前缀
    (while (< i len)
      (HBC_BH-01)
    )
  )
  (while T
    (setq vzo "")
    (setq val(+ val 1) strval(rtos val) szo(- ws (strlen strval)))
    (repeat szo
      (setq vzo(strcat "0" vzo))
    );补足前置零,保持与源编号"位数"一致
    (setq strval(strcat vzo strval))
    (setq strval(strcat qz strval))
  (setq i T)
  (while i
    (setq gr (grread t 15));获取动态信息，但为何左键按下没有反应？
    ;(setq gr (GXL-GE-GRREAD '(t 7 2) nil (entlast)));GXL-GE-GRREAD为动态“添加扑捉”函数
    (cond
      ((= 5 (car gr))
       (setq p2 (trans (cadr gr) 1 0))
       (if text;若直线已生成，采取替换模式
         (progn
           (setq text(subst (cons 10 p2) (assoc 10 text) text))
           (entmod text)
         )
         (if col
           (progn
             (entmake(list '(0 . "TEXT") (cons 10 p2) zh lay col sty (cons 1 strval)))
             (setq text(entget (entlast)))
           )
           (progn
             (entmake(list '(0 . "TEXT") (cons 10 p2) zh lay sty (cons 1 strval)))
             (setq text(entget (entlast)))
           )
         );首次生成图素
       )
      )
       ((or
         (= 3 (car gr));左键按下，为何没有执行该语句呢？困惑！
         (= 25 (car gr))
         (and (= 2 (car gr)) (= (cadr gr) 13))
         (and (= 2 (car gr)) (= (cadr gr) 32))
        )
        (setq i nil)
       )
     )
   
  );逐次连续编号,esc退出
  )
  (setvar "CMDECHO" 1)
  (setvar "CLAYER" oldlayer)
  (setvar "osmode" os)
  (princ)
  )

;;;子函数1
(defun HBC_BH-01()
  (if (and (/= (substr ss i 1) "0") (= (atoi(substr ss i 1)) 0));判断是否为数字字符
      (progn
        (setq val(atoi(substr ss (+ i 1) (- len i))));提取尾数转整型,即可去除前置零
        (setq ws(- len i));尾数位数
        (setq qz(substr ss 1 i));提取前缀
        (setq i(+ i len))
      )
      (setq i(- i 1))
  )
  (princ)
)

NetBee

这个死循环你准备什么时候跳出？

2. (while T
   
3.             (setq vzo "")
   
4.             (setq val         (+ val 1)
   
5.                      strval (rtos val)
   
6.                      szo         (- ws (strlen strval))
   
7.             )
   
8.            ;;..................................

(while T<br />             (setq vzo "")<br />             (setq val         (+ val 1)<br />                      strval (rtos val)<br />                      szo         (- ws (strlen strval))<br />             )<br />            ;;..................................

NetBee

2. ;;;实现识别递增编号 By cjh_201-12-08
   
3. ;;;新增选择模式，增强通用性 2012-12-23
   
4. ;;;修改 by netbee of www.mjtd.com 2013-1-2
   
5. 
   
6. (defun c:HBC_BH        (/ gr text EP1 zm ss zh lay sty col len i bJ val ws qz p2 vzo strval bhms e1)
   
7.   (print "<HBC_BH（智能编号）>功能已开启")
   
8.   (print "<模式1:尾数数字位&&模式2:末位数字位")
   
9.   (setq os (getvar "osmode"))
   
10.   (setq oldlayer (getvar "CLAYER"))
    
11.   (setq temperr *errror*)
    
12.   (setq *error* trap1)
    
13.   (command "undo" "m")
    
14.   (setq os (getvar "osmode"))
    
15.   (setq bhms (getint "\n输入编号模式<模式1(1)/模式2(2)>(默认1):"))
    
16.   (setvar "CMDECHO" 0)
    
17.   (setvar "osmode" 0)
    
18.   (setq EP1 (entsel "\n选取源编号:"))
    
19.   (while (= EP1 nil) (setq EP1 (entsel "\n选取源编号:")))
    
20.   (setq zm (entget (car EP1)))                ;(setvar "osmode" 15359)
    
21.   (setq        ss  (cdr (assoc 1 zm))
    
22.         zh  (assoc 40 zm)
    
23.         lay (assoc 8 zm)
    
24.         sty (assoc 7 zm)
    
25.   )
    
26.   (if (assoc 62 zm)
    
27.     (setq col (assoc 62 zm))
    
28.   )                                        ;提取图层,颜色,字高,文字样式等信息
    
29.   (setq len (strlen ss))
    
30.   (setq i (- len 1))
    
31.   (setq val (substr ss len 1))
    
32.   (if (and (/= val "0") (= (atoi val) 0)) ;非数字，成立
    
33.     (progn (alert "提示:编号末位非数字位!请在编号末位添加数字。") (exit))
    
34.   )
    
35.   (if (= bhms 2)
    
36.     (setq val (atoi val)
    
37.           qz  (substr ss 1 i)
    
38.           ws  1
    
39.     )                                        ;后缀，前缀
    
40.     (while (< i len) (HBC_BH-01))
    
41.   )
    
42.   (setq bJ T)
    
43.   (while bJ
    
44.     (setq vzo "")
    
45.     (setq val         (+ val 1)
    
46.           strval (rtos val)
    
47.           szo         (- ws (strlen strval))
    
48.     )
    
49.     (repeat szo (setq vzo (strcat "0" vzo))) ;补足前置零,保持与源编号"位数"一致
    
50.     (setq strval (strcat vzo strval))
    
51.     (setq strval (strcat qz strval))
    
52.     (setq i T)
    
53.     (while i
    
54.       (setq gr (grread t 15))               
    
55.                                        
    
56.       (cond ((= 5 (car gr))
    
57.              (setq p2 (trans (cadr gr) 1 0))
    
58.              (if text                        ;若直线已生成，采取替换模式
    
59.                (progn (setq text (subst (cons 10 p2) (assoc 10 text) text)) (entmod text)(setq e1(entlast)))
    
60.                (if col
    
61.                  (progn        (entmake (list '(0 . "TEXT") (cons 10 p2) zh lay col sty (cons 1 strval)))
    
62.                         (setq text (entget (setq e1(entlast))))
    
63.                  )
    
64.                  (progn        (entmake (list '(0 . "TEXT") (cons 10 p2) zh lay sty (cons 1 strval)))
    
65.                         (setq text (entget (setq e1(entlast))))
    
66.                  )
    
67.                )                        ;首次生成图素
    
68.              )
    
69.             )
    
70.             ((or (= 3 (car gr)) (= 25 (car gr)))
    
71.              (setq i nil text nil e1 nil)
    
72.             )
    
73.             ((and (= 2 (car gr)) (or (= (cadr gr) 13) (= (cadr gr) 32))) (setq bJ nil i nil text nil))
    
74.       )
    
75.     )                                        ;逐次连续编号,esc退出
    
76. )
    
77.   (if e1(entdel e1))
    
78.   (setvar "CMDECHO" 1)
    
79.   (setvar "CLAYER" oldlayer)
    
80.   (setvar "osmode" os)
    
81.   (princ)
    
82. )
    
83. 
    
84. ;;;子函数1
    
85. (defun HBC_BH-01 ()
    
86.   (if (and (/= (substr ss i 1) "0") (= (atoi (substr ss i 1)) 0)) ;判断是否为数字字符
    
87.     (progn (setq val (atoi (substr ss (+ i 1) (- len i)))) ;提取尾数转整型,即可去除前置零
    
88.            (setq ws (- len i))                ;尾数位数
    
89.            (setq qz (substr ss 1 i))        ;提取前缀
    
90.            (setq i (+ i len))
    
91.     )
    
92.     (setq i (- i 1))
    
93.   )
    
94.   (princ)
    
95. )

;;;实现识别递增编号 By cjh_201-12-08<br /> ;;;新增选择模式，增强通用性 2012-12-23<br /> ;;;修改 by netbee of www.mjtd.com 2013-1-2<br /> <br /> (defun c:HBC_BH        (/ gr text EP1 zm ss zh lay sty col len i bJ val ws qz p2 vzo strval bhms e1)<br />   (print "<HBC_BH（智能编号）>功能已开启")<br />   (print "<模式1:尾数数字位&&模式2:末位数字位")<br />   (setq os (getvar "osmode"))<br />   (setq oldlayer (getvar "CLAYER"))<br />   (setq temperr *errror*)<br />   (setq *error* trap1)<br />   (command "undo" "m")<br />   (setq os (getvar "osmode"))<br />   (setq bhms (getint "\n输入编号模式<模式1(1)/模式2(2)>(默认1):"))<br />   (setvar "CMDECHO" 0)<br />   (setvar "osmode" 0)<br />   (setq EP1 (entsel "\n选取源编号:"))<br />   (while (= EP1 nil) (setq EP1 (entsel "\n选取源编号:")))<br />   (setq zm (entget (car EP1)))                ;(setvar "osmode" 15359)<br />   (setq        ss  (cdr (assoc 1 zm))<br />         zh  (assoc 40 zm)<br />         lay (assoc 8 zm)<br />         sty (assoc 7 zm)<br />   )<br />   (if (assoc 62 zm)<br />     (setq col (assoc 62 zm))<br />   )                                        ;提取图层,颜色,字高,文字样式等信息<br />   (setq len (strlen ss))<br />   (setq i (- len 1))<br />   (setq val (substr ss len 1))<br />   (if (and (/= val "0") (= (atoi val) 0)) ;非数字，成立<br />     (progn (alert "提示:编号末位非数字位!请在编号末位添加数字。") (exit))<br />   )<br />   (if (= bhms 2)<br />     (setq val (atoi val)<br />           qz  (substr ss 1 i)<br />           ws  1<br />     )                                        ;后缀，前缀<br />     (while (< i len) (HBC_BH-01))<br />   )<br />   (setq bJ T)<br />   (while bJ<br />     (setq vzo "")<br />     (setq val         (+ val 1)<br />           strval (rtos val)<br />           szo         (- ws (strlen strval))<br />     )<br />     (repeat szo (setq vzo (strcat "0" vzo))) ;补足前置零,保持与源编号"位数"一致<br />     (setq strval (strcat vzo strval))<br />     (setq strval (strcat qz strval))<br />     (setq i T)<br />     (while i<br />       (setq gr (grread t 15))                <br />                                         <br />       (cond ((= 5 (car gr))<br />              (setq p2 (trans (cadr gr) 1 0))<br />              (if text                        ;若直线已生成，采取替换模式<br />                (progn (setq text (subst (cons 10 p2) (assoc 10 text) text)) (entmod text)(setq e1(entlast)))<br />                (if col<br />                  (progn        (entmake (list '(0 . "TEXT") (cons 10 p2) zh lay col sty (cons 1 strval)))<br />                         (setq text (entget (setq e1(entlast))))<br />                  )<br />                  (progn        (entmake (list '(0 . "TEXT") (cons 10 p2) zh lay sty (cons 1 strval)))<br />                         (setq text (entget (setq e1(entlast))))<br />                  )<br />                )                        ;首次生成图素<br />              )<br />             )<br />             ((or (= 3 (car gr)) (= 25 (car gr)))<br />              (setq i nil text nil e1 nil)<br />             )<br />             ((and (= 2 (car gr)) (or (= (cadr gr) 13) (= (cadr gr) 32))) (setq bJ nil i nil text nil))<br />       )<br />     )                                        ;逐次连续编号,esc退出<br /> )<br />   (if e1(entdel e1))<br />   (setvar "CMDECHO" 1)<br />   (setvar "CLAYER" oldlayer)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br /> <br /> ;;;子函数1<br /> (defun HBC_BH-01 ()<br />   (if (and (/= (substr ss i 1) "0") (= (atoi (substr ss i 1)) 0)) ;判断是否为数字字符<br />     (progn (setq val (atoi (substr ss (+ i 1) (- len i)))) ;提取尾数转整型,即可去除前置零<br />            (setq ws (- len i))                ;尾数位数<br />            (setq qz (substr ss 1 i))        ;提取前缀<br />            (setq i (+ i len))<br />     )<br />     (setq i (- i 1))<br />   )<br />   (princ)<br /> )

USER2128

回复，看看程序！谢谢！

hao3ren

不懂，看一看

aaacjh

NetBee 发表于 2013-1-2 15:44
**** 本内容被作者隐藏 ****

谢谢兄台相助! 还有个问题就是,最后按esc退出时,如何让程序删除最后那个图素文字,现在程序虽然有entdel (entlast).但并没删去最后图素.
例外:请教兄台,grread=15 ,2 ,3这些数字有哪些具体含义,哪里可以查到,请指点!

smartstar

学习学习！

ddisddis

谢谢分享，学习一下

xsso

回复学习一下

xiaxiang

好帖子，帮忙测试一下