社区 › 源码共享 › 简约而不简单

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

简约而不简单

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

yjwht 发表于 2025-2-20 07:59:00

无痕 发表于 2004-3-31 00:26
这也算精简？nonono

有错误，应改为：

;(str2lst str) 将输入的数据转换为字符串列表.---------------------------梁雄啸.2004.3
;测试: (str2lst   "Hello 2World 12 5456.1568") = ("Hello" "2World" "12" "5456.1568")
;版权所有，盗用必究！如在程序中引用，请保留文字信息行.
(defun str2lst (str / i)
(while (setq i (vl-string-search " " str
         (if i (+ 2 i) 0)
         )
   )
(setq str (vl-string-subst "\" \"" " " str i))
)
(read (strcat "(" str ")"))
)

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

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

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

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

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

非常简洁！！！支持。。。。

查看完整版本: 简约而不简单