王咣生 发表于 2004-3-3 22:42:00

简约而不简单

本帖最后由 作者 于 2008-3-4 10:02:50 编辑 <br /><br /> <p>总结本贴:<br/></p>

laoquan 发表于 2023-6-26 08:45:18

工作二十年，深感程式带来的便捷，同样非常感谢前辈高人的无私奉献。每天进步一点点，坚持下去，终有所获。

wm123456 发表于 2018-5-23 21:16:26

谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享

williamhub 发表于 2024-4-17 13:46:15

深感程式带来的便捷，同样非常感谢前辈高人的无私奉献。

yfy2003 发表于 2004-3-3 22:46:00

严重支持！

myfreemind 发表于 2004-3-3 23:47:00

支持！！

Student 发表于 2004-3-4 08:58:00

同意。

aaddff 发表于 2004-3-4 14:17:00

顶！

sxy 发表于 2004-3-4 20:59:00

支持........

mikewolf2k 发表于 2004-3-4 21:04:00

我也加一个

王咣生 发表于 2004-3-5 16:50:00

回复

有时我就觉得,我认为有些代码虽然短小,但写的非常好,发上来呢(rar,zip)等,却没人与日理会,有些可惜.所以有了这样的想法.


把你们觉得好的源码,介绍给每个人.

王咣生 发表于 2004-3-8 11:51:00

开始

1. 从点列表(point list)得到坐标范围(coordinate extents).<BR>;例如:        (GetExtents        '((1        0        0)        (2        2        0)        (1        2        0)))


(defun        GetExtents        (plist        /)<BR>                (list<BR>                                (apply        'mapcar        (cons        'min        plist))<BR>                                (apply        'mapcar        (cons        'max        plist))<BR>                )<BR>)

jianyun 发表于 2004-3-9 22:05:00

非常简洁！！！支持。。。。
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 简约而不简单