明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 91874|回复: 166

简约而不简单

    [复制链接]
发表于 2004-3-3 22:42:00 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2008-3-4 10:02:50 编辑

总结本贴:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2023-6-26 08:45:18 | 显示全部楼层
工作二十年,深感程式带来的便捷,同样非常感谢前辈高人的无私奉献。每天进步一点点,坚持下去,终有所获。
发表于 2018-5-23 21:16:26 | 显示全部楼层
谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享
发表于 2024-4-17 13:46:15 | 显示全部楼层
深感程式带来的便捷,同样非常感谢前辈高人的无私奉献。
发表于 2004-3-3 22:46:00 | 显示全部楼层
严重支持!
发表于 2004-3-3 23:47:00 | 显示全部楼层
支持!!
发表于 2004-3-4 08:58:00 | 显示全部楼层
同意。
发表于 2004-3-4 14:17:00 | 显示全部楼层
顶!
发表于 2004-3-4 20:59:00 | 显示全部楼层
支持........
发表于 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).
;例如: (GetExtents '((1 0 0) (2 2 0) (1 2 0))) (defun GetExtents (plist /)
(list
(apply 'mapcar (cons 'min plist))
(apply 'mapcar (cons 'max plist))
)
)
发表于 2004-3-9 22:05:00 | 显示全部楼层
非常简洁!!!支持。。。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-27 11:32 , Processed in 0.187533 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表