(XD::Pnts:Z0)设置点表的Z值为0

Lispboy

1. ;|
   
2. 设置点表的Z值为0
   
3. 参数：
   
4.   pts ---- 点表 or 点
   
5. |;
   
6. (defun XD::Pnts:Z0 (pts)
   
7.   (if (= (type (car pts)) 'LIST)
   
8.     (mapcar
   
9.       '(lambda (x)
   
10.          (XD::Pnt:SetZ x 0.0)
    
11.        )
    
12.       pts
    
13.     )
    
14.     (list (car pts) (cadr pts) 0.0)
    
15.   )
    
16. )
    

;|<br /> 设置点表的Z值为0<br /> 参数：<br />   pts ---- 点表 or 点<br /> |;<br /> (defun XD::Pnts:Z0 (pts)<br />   (if (= (type (car pts)) 'LIST)<br />     (mapcar<br />       '(lambda (x)<br />          (XD::Pnt:SetZ x 0.0)<br />        )<br />       pts<br />     )<br />     (list (car pts) (cadr pts) 0.0)<br />   )<br /> )<br />

/db_自贡黄明儒_

(mapcar '(lambda (x)(mapcar '+ '(0 0) x)) PtS)

newer

/db_自贡黄明儒_ 发表于 2013-12-21 15:40
(mapcar '(lambda (x)(mapcar '+ '(0 0) x)) PtS)

LISPBOY的代码把点表和点都考虑了。

zteykmgscqh

这么简单？！;P