[0122]progn函数用法问题?

xyz518mm

[0122]progn函数用法问题?
请教关于progn是用于判断在if之后所设的变数吗?
那假如我想判断的东西如下

01.a及b都大于5
02.只有a或b大于5

假如现在为
(setq a 6)
(setq b 8)
以下是自己想的方法,不过好像不行用,因为不太会写
(if (and (> a 5)(> b 5) )
(progn
(if (> a b)(princ "a大于b"))
)
(progn
(if (> b a)(princ "b大于a"))
)
)
(if (> a 5)(princ "a大于5")
)
(if (> b 5)(princ "b大于5")
)


另外若是下面这种判断式,最后面的lst是代表什么意思呢?
(defun PL_GetVxEntl ( ename / Lst Lst1 en entl )
(setq
        Lst '()
        entl (entget ename)
        Lst (cons entl Lst)
        Lst1 '()
        en "VERTEX"
)
(while (= en "VERTEX")
        (setq
                ename (entnext ename)
                entl (entget ename)
                en (LI_item 0 entl)
        )
        (if (= en "VERTEX")
                (setq Lst1 (cons entl Lst1))
        )
)
(setq
        Lst1 (reverse Lst1)
        Lst (append Lst Lst1)
)
Lst <=代表什么意思呢?
)

xyp1964

一

2. [FONT=courier new](defun c:test ()
   
3.   (setq        a 6
   
4.         b 8
   
5.   )
   
6.   (if (and (> a 5) (> b 5))
   
7.     (if        (>= a b)
   
8.       (princ "a≥b")
   
9.       (princ "a＜b")
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    
14. [/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        a 6<br />         b 8<br />   )<br />   (if (and (> a 5) (> b 5))<br />     (if        (>= a b)<br />       (princ "a≥b")<br />       (princ "a＜b")<br />     )<br />   )<br />   (princ)<br /> )<br /> [/FONT]