发个子程序，练习lambda、mapcar、apply的用法

菜卷鱼

1. (defun centerp (ss )                    ;;;获得图元中心点，结果返回一个点
   
2. (mapcar '(lambda (x)(/ x 2))
   
3. (apply '(lambda (x1 x2)(mapcar '+ x1 x2)) (cornerp ss)) )
   
4. )
   
5. 
   
6. (defun cornerp(entname / ptlist)                  ;;;获得图元对角点，结果返回两个点（点表）
   
7. (vla-getboundingbox (vlax-ename->vla-object entname) 'entpl 'entpr)
   
8. (setq ptlist (mapcar 'vlax-safearray->list (list entpl entpr)))
   
9. (mapcar '(lambda (x) (trans x 0 1)) ptlist)
   
10. )

(defun centerp (ss )                    ;;;获得图元中心点，结果返回一个点<br /> (mapcar '(lambda (x)(/ x 2))<br /> (apply '(lambda (x1 x2)(mapcar '+ x1 x2)) (cornerp ss)) )<br /> )<br /> <br /> (defun cornerp(entname / ptlist)                  ;;;获得图元对角点，结果返回两个点（点表）<br /> (vla-getboundingbox (vlax-ename->vla-object entname) 'entpl 'entpr)<br /> (setq ptlist (mapcar 'vlax-safearray->list (list entpl entpr)))<br /> (mapcar '(lambda (x) (trans x 0 1)) ptlist)<br /> )

lenlenq

wangph 发表于 2015-11-14 21:39
请问代码中(trans x 0 1)起到什么作用？为什么用这个？

坐标点的转换。把点从世界坐标系转成用户定义的坐标系的点

kkq0305

vlisp2012 发表于 2014-4-2 08:00
这三个命令，一直很少应用，学习了！

lisp是表语言  这三个函数很重要

mokson

请教一下，表示循环的语句，还有哪几种形式？
repeat
foreach
while
mapcar
vlax-for

vlisp2012

这三个命令，一直很少应用，学习了！

434939575

这几个+foreach都是比较给力的的。还没有消化。

海盗曹

顶一下，顺便学习

ysq101

目测楼主你对lambda、mapcar、apply  的用法很有研究。。
本菜鸟还在努力学习中。。。
谢谢指导

清风明月名字

谢谢楼主的奉献！

hbgsw

正好学习这3个函数的运用。

wangph

请问代码中(trans x 0 1)起到什么作用？为什么用这个？

水仙的错

很好的程序，谢谢分享

迷不知途

来学习学习！！