帮忙找下if语句的bug

mahuan1279

递归的BUG很多……

(defun choose_insert ()
  (princ "\n***必须选择属性块！***")
  (if (setq a (entsel))
    (progn (setq b (vlax-ename->vla-object (car a)))
           (if (= (vla-Get-ObjectName b) "AcDbBlockReference")
             (if (= (vla-Get-HasAttributes b) :VLAX-TRUE)
               (princ "ok")
               (choose_insert)
             )
             (choose_insert)
           )
    )
    (choose_insert)
  )
b
)

烟盒迷唇

递归没搞过，不清楚状况！

kozmosovia

2. (defun choose_insert (/ blk)
   
3.   (terpri)
   
4.   (while (not
   
5.            (and        (setq blk (car (entsel "\r***必须选择属性块！***")))
   
6.                 (equal (cdr (assoc 66 (entget blk))) 1)
   
7.            )
   
8.          )
   
9.   )
   
10.   blk
    
11. )

(defun choose_insert (/ blk)<br />   (terpri)<br />   (while (not<br />            (and        (setq blk (car (entsel "\r***必须选择属性块！***")))<br />                 (equal (cdr (assoc 66 (entget blk))) 1)<br />            )<br />          )<br />   )<br />   blk<br /> )

dcl1214

要理解代码，否则，不要玩递归，递归在很多语言里面是被诟病的一种写法

dcl1214

1. (defun choose_insert (/ e ents go obj pick)
   
2.   (setq go t)
   
3.   (setq ents nil)
   
4.   (setq i 1)
   
5.   (while (and go (<= i 2))
   
6.     (setq pick (vl-catch-all-apply 'entsel (list "必须选择属性块")))
   
7.     (if        (vl-catch-all-error-p pick)
   
8.       (progn (setq go nil)
   
9.              (setq pick nil)
   
10.              (alert "按下了键盘esc，程序退出了")
    
11.       )
    
12.     )
    
13.     (and (setq e (car pick))
    
14.          (setq obj (vlax-ename->vla-object e))
    
15.     )
    
16.     (if        (and obj
    
17.              (= (vla-Get-ObjectName obj) "AcDbBlockReference")
    
18.              (= (vla-Get-HasAttributes obj) :VLAX-TRUE)
    
19.         )
    
20.       (progn (setq ents (cons e ents)) (setq go nil))
    
21.     )
    
22.     (setq i (1+ i))
    
23.     (if        (> i 2)
    
24.       (alert "给了您2次机会了，还是没选中，赶快将鼠标扔了")
    
25.     )
    
26.     (print)
    
27.   )
    
28.   ents
    
29. )
    
30. 
    

(defun choose_insert (/ e ents go obj pick)<br />   (setq go t)<br />   (setq ents nil)<br />   (setq i 1)<br />   (while (and go (<= i 2))<br />     (setq pick (vl-catch-all-apply 'entsel (list "必须选择属性块")))<br />     (if        (vl-catch-all-error-p pick)<br />       (progn (setq go nil)<br />              (setq pick nil)<br />              (alert "按下了键盘esc，程序退出了")<br />       )<br />     )<br />     (and (setq e (car pick))<br />          (setq obj (vlax-ename->vla-object e))<br />     )<br />     (if        (and obj<br />              (= (vla-Get-ObjectName obj) "AcDbBlockReference")<br />              (= (vla-Get-HasAttributes obj) :VLAX-TRUE)<br />         )<br />       (progn (setq ents (cons e ents)) (setq go nil))<br />     )<br />     (setq i (1+ i))<br />     (if        (> i 2)<br />       (alert "给了您2次机会了，还是没选中，赶快将鼠标扔了")<br />     )<br />     (print)<br />   )<br />   ents<br /> )<br /> <br />

明明有最简单的写法，非要搞最垃圾的写法

gaics

dcl1214 发表于 2024-11-12 21:54
要理解代码，否则，不要玩递归，递归在很多语言里面是被诟病的一种写法

以后不玩了，哈哈

mahuan1279

gaics 发表于 2024-11-13 08:34
以后不玩了，哈哈

递归里尽量不要出现等价转换，要原汁原味…

yefei812678

谢谢分享谢谢分享谢谢分享谢谢分享

chslwj521

dcl1214 发表于 2024-11-12 22:04
明明有最简单的写法，非要搞最垃圾的写法

杜总威武，加上一句：这手也是帕金森，赶紧吃药吧

llsheng_73

gaics 发表于 2024-11-12 13:12
未选中属性快则继续选。

1. (defun tt(/ e)
   
2. (while(not(setq e(ssget":E:S"'((0 . "insert")(66 . 1))))))
   
3. e)

(defun tt(/ e)<br /> (while(not(setq e(ssget":E:S"'((0 . "insert")(66 . 1))))))<br /> e)