（XD::Linetype:GetData）获取线型定义数据

Lispboy

1. (defun XD::Linetype:GetData (lt / obj i el numDashes len)
   
2.   (if (or (and (= (type lt) 'ENAME)
   
3.                (setq obj (xdrx_getpropertyvalue lt "linetype" t))
   
4.           )
   
5.           (and (= (type lt) 'STR)
   
6.                (or (setq obj (xdrx_object_get "linetype" lt))
   
7.                    (setq obj (cadar (xdrx_LineType_load lt)))
   
8.                )
   
9.           )
   
10.       )
    
11.     (progn (setq numDashes (xdrx_linetype_NumDashes obj))
    
12.            (setq i  0
    
13.                  el nil
    
14.            )
    
15.            (while (< i numDashes)
    
16.              (setq len (xdrx_linetype_dashlengthAt obj i))
    
17.              (setq el (cons len el))
    
18.              (setq i (1+ i))
    
19.            )
    
20.     )
    
21.   )
    
22.   (reverse el)
    
23. )
    

(defun XD::Linetype:GetData (lt / obj i el numDashes len)<br />   (if (or (and (= (type lt) 'ENAME)<br />                (setq obj (xdrx_getpropertyvalue lt "linetype" t))<br />           )<br />           (and (= (type lt) 'STR)<br />                (or (setq obj (xdrx_object_get "linetype" lt))<br />                    (setq obj (cadar (xdrx_LineType_load lt)))<br />                )<br />           )<br />       )<br />     (progn (setq numDashes (xdrx_linetype_NumDashes obj))<br />            (setq i  0<br />                  el nil<br />            )<br />            (while (< i numDashes)<br />              (setq len (xdrx_linetype_dashlengthAt obj i))<br />              (setq el (cons len el))<br />              (setq i (1+ i))<br />            )<br />     )<br />   )<br />   (reverse el)<br /> )<br />

marting

纯LISP应该是这样：

1. (defun XD::LineType:GetData (lt / d x)
   
2.   (defun _load (lt)
   
3.     (setvar "cmdecho" 0)
   
4.     (vl-cmdf ".linetype" "load" lt)
   
5.     (while (= 1 (getvar "cmdactive"))
   
6.       (vl-cmdf ""))
   
7.     (tblsearch "ltype" lt)
   
8.   )
   
9.   (if (not (setq d (tblsearch "ltype" lt)))
   
10.     (setq d (_load lt))
    
11.   )
    
12.   (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 49)) d))
    
13. )
    

(defun XD::LineType:GetData (lt / d x)<br />   (defun _load (lt)<br />     (setvar "cmdecho" 0)<br />     (vl-cmdf ".linetype" "load" lt)<br />     (while (= 1 (getvar "cmdactive"))<br />       (vl-cmdf ""))<br />     (tblsearch "ltype" lt)<br />   )<br />   (if (not (setq d (tblsearch "ltype" lt)))<br />     (setq d (_load lt))<br />   )<br />   (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 49)) d))<br /> )<br />