判断表是否是关联表(cons)

晨曦CAD

2. [hide];;判断表是否是关联表
   
3. ;@晨曦 2021.3
   
4. ;输入参数：lst list数据
   
5. ;输出参数：ret 1,真列表；2，关联表； 0，其他情况（输入不是LIST）
   
6. ;实例：(1 2 3)-> 1  ;   (1 . "2")-> 2
   
7. (defun isRealList(lst / ret)
   
8.   (if(= (type lst) (quote list))
   
9.     ;是LIST
   
10.     (progn
    
11.       (if (/= (vl-list-length lst) nil)
    
12.         (setq ret 1)
    
13.   (setq ret 2)
    
14.   )
    
15.       )
    
16.     ;不是LIST
    
17.     (setq ret 0)
    
18.     )
    
19.   )[/hide]

[hide];;判断表是否是关联表<br /> ;@晨曦 2021.3<br /> ;输入参数：lst list数据<br /> ;输出参数：ret 1,真列表；2，关联表； 0，其他情况（输入不是LIST）<br /> ;实例：(1 2 3)-> 1  ;   (1 . "2")-> 2<br /> (defun isRealList(lst / ret)<br />   (if(= (type lst) (quote list))<br />     ;是LIST<br />     (progn<br />       (if (/= (vl-list-length lst) nil)<br />         (setq ret 1)<br />   (setq ret 2)<br />   )<br />       )<br />     ;不是LIST<br />     (setq ret 0)<br />     )<br />   )[/hide]

;测试
（ isRealList  (cons 1 "2")）-> 2

Longfin

(defun cons-p (LST)
  (if LST
    (if (vl-consp LST)
      (cons-p (cdr LST))
      (not (setq LST nil))
    )
  )
)

lijiao

(defun cons-p (lst /)
  (and (= (type lst) 'list)
       (VL-STRING-SEARCH " . " (vl-princ-to-string lst))
  )
)