【e派】工具箱函数再揭秘及应用实例

czcxxx

院长辛苦了！！！！

好好研究一下院长的编程思路。
谢谢了！！！


期待更多精彩！！！

xyp1964

dianbotang 发表于 2015-10-24 23:37
请问院长，能否提供一下画多段线函数(xyp-pline dl nil)？

1. ;; xyp-Pline 建立多段线 (xyp-Pline 点集 闭合参数)
   
2. ;; 闭合参数tn: t闭合，nil打开
   
3. (defun xyp-Pline (ptlst Close-tnil / a s1)  
   
4.   (entmake (append (list '(0 . "LWPOLYLINE")
   
5.                          '(100 . "AcDbEntity")
   
6.                          '(100 . "AcDbPolyline")
   
7.                          (cons 90 (length ptlst))
   
8.                          (cons 70 (if Close-tnil 1 0))
   
9.                          (cons 38
   
10.                                (if (nth 2 (car ptlst))
    
11.                                  (nth 2 (car ptlst))
    
12.                                  0
    
13.                                )
    
14.                          )
    
15.                    )
    
16.                    (mapcar '(lambda (a) (cons 10 a)) ptlst)
    
17.            )
    
18.   )
    
19.   (entlast)
    
20. )

;; xyp-Pline 建立多段线 (xyp-Pline 点集 闭合参数)<br /> ;; 闭合参数tn: t闭合，nil打开<br /> (defun xyp-Pline (ptlst Close-tnil / a s1)  <br />   (entmake (append (list '(0 . "LWPOLYLINE")<br />                          '(100 . "AcDbEntity")<br />                          '(100 . "AcDbPolyline")<br />                          (cons 90 (length ptlst))<br />                          (cons 70 (if Close-tnil 1 0))<br />                          (cons 38<br />                                (if (nth 2 (car ptlst))<br />                                  (nth 2 (car ptlst))<br />                                  0<br />                                )<br />                          )<br />                    )<br />                    (mapcar '(lambda (a) (cons 10 a)) ptlst)<br />            )<br />   )<br />   (entlast)<br /> )

czcxxx

昨天看了院长的几个函数，非常精彩！
通用性非常强，考虑因素全面，递归函数使用巧妙！！
谢谢院长分享！！！！
要抓紧时间继续学习。

杜阳

有时间就来看看   能有收获       自定义函数真好

286227370

求院长这个源码xyp-Xls2List

xyp1964

1. ;; xyp-Erase 删除 (xyp-Erase ss)
   
2. ;; ss:实体、选择集或表
   
3. (defun xyp-Erase (ss)
   
4.   (cond((= (type ss) 'ENAME) (vla-erase (xyp-e2o ss)))
   
5.         ((= (type ss) 'VLA-OBJECT) (vla-erase ss))
   
6.         ((and (= (type ss) 'PICKSET) (> (sslength ss) 0))
   
7.          (xyp-Erase (xyp-ss2list ss))
   
8.         )
   
9.         ((= (type ss) 'LIST)
   
10.          (foreach s1 ss (xyp-Erase s1))
    
11.         )
    
12.   )
    
13. )

;; xyp-Erase 删除 (xyp-Erase ss)<br /> ;; ss:实体、选择集或表<br /> (defun xyp-Erase (ss)<br />   (cond((= (type ss) 'ENAME) (vla-erase (xyp-e2o ss)))<br />         ((= (type ss) 'VLA-OBJECT) (vla-erase ss))<br />         ((and (= (type ss) 'PICKSET) (> (sslength ss) 0))<br />          (xyp-Erase (xyp-ss2list ss))<br />         )<br />         ((= (type ss) 'LIST)<br />          (foreach s1 ss (xyp-Erase s1))<br />         )<br />   )<br /> )

clinber

必须顶

xyp1964

1. ;; xyp-Erase 删除 (xyp-Erase e)
   
2. ;; e:实体、选择集或表
   
3. (defun xyp-Erase (e)
   
4.   (cond ((= (type e) 'ENAME) (vla-erase (xyp-e2o e)))
   
5.         ((= (type e) 'VLA-OBJECT) (vla-erase e))
   
6.         ((= (type e) 'LIST) (mapcar 'xyp-Erase lst))
   
7.         ((= (type e) 'PICKSET) (xyp-Erase (xyp-Ss2List e)))
   
8.   )
   
9. )

;; xyp-Erase 删除 (xyp-Erase e)<br /> ;; e:实体、选择集或表<br /> (defun xyp-Erase (e)<br />   (cond ((= (type e) 'ENAME) (vla-erase (xyp-e2o e)))<br />         ((= (type e) 'VLA-OBJECT) (vla-erase e))<br />         ((= (type e) 'LIST) (mapcar 'xyp-Erase lst))<br />         ((= (type e) 'PICKSET) (xyp-Erase (xyp-Ss2List e)))<br />   )<br /> )

shh1980

整整25页，看的头都大了，有好多不懂的
由衷的感谢院长的无私，
祝您老人家身体健康！

caoliu023

感谢院长无私奉献