明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1848|回复: 67

[函数] 自用函数库152个开源

    [复制链接]
发表于 2022-5-16 16:58 | 显示全部楼层 |阅读模式
本帖最后由 vectra 于 2022-5-16 17:20 编辑

刚开始乱写,后来写多了就发现需要一个函数库避免重复劳动。

什么时候开始写的早已记不清楚了,不少代码日久失修,借鉴开源的模式,希望帮到他人,也希望有能力者共同维护更新它,让它更加强大。

有些代码取自明经,让他回馈明经吧。想想玩LISP,二十个年头了,让后来者少走些弯路吧。

该库已在个人多个实际项目中应用。

MIT协议开源,欢迎提交ISSUE,添加新功能。。。

最后,免币。




错误处理运行环境准备

P-ERROR-HANDLER
P-OSNAP-DISABLE
P-OSNAP-RESTORE
P-STARTUNDOMARK
P-ENDUNDOMARK
P-SETVARS
P-ERROR-START
P-ERROR-START0
P-ERROR-END
P-COMMANDRUN
P-COMMANDRUN-S

数学相关
P-VECTOR-LEN
P-VECTOR-NORMAL
P-VECTOR-REVERSE
P-VECTOR-DOTPRODUCT
P-VECTOR-FROM2P
P-VECTOR-ANGLE2
P-VECTOR-ANGLE
P-GET-BULGE
P-SQR
P-ACOS
P-TAN
P-RAD->DEG
P-DEG->RAD
P-ANGLE-REVERSE
P-ANGLE-REGULAR
P-ANGLE-NORMAL
P-ANGLE-INCLUDE
P-CEILING
P-ROUND
P-MID
P-HASH-1
P-HASH
P-UID
P-MXM
P-MXV
P-TRP
P-REFGEOM

对象访问生成
P-BLOCK-TRANS
P-BLOCK-ITEMS-INNER
P-BLOCK-ITEMS
P-INSERT-SEQS
P-ITEM
P-LAYER-GET1
P-LAYER-GET
P-LINETYPE-GET
P-LINETYPE-LOAD
P-TEXTSTYLE-GET
P-GET-BLOCK
P-SET-SYMBOL-NOTNULL
P-MAKE-SETENV
P-ENTMOD
P-ENTMAKE
P-MAKE-LINE
P-MAKE-CIRCLE
P-MAKE-ARC
P-MAKE-SHARPARC
P-MAKE-ELLIPSE
P-MAKE-POLYLINE
P-MAKE-TEXT
P-MAKE-BLOCK
P-MAKE-INSERT
P-MAKE-INSERT-WITH-FUNCS
P-MAKE-INSERT-WITH-FUNCS-A
P-ENSURE-OBJECT
P-ENSURE-ENAME
P-VAR->LIST
P-LIST->VAR
P-ARRAY-CREATE
P-ARRAY-SET
P-ARRAY-GET

扩展数据
P-XDATA-GET-INNER
P-XDATA-GET
P-XDATA-SET-INNER
P-XDATA-SET
P-XDATA-ALL
P-XDATA-KEYS
P-XDATA-EXIST
P-XDATA-REMOVE
P-XPROP-GET
P-XPROP-UNPACK
P-XPROP-GETALL
P-XPROP-EXIST
P-XPROP-PACK1
P-XPROP-PACK
P-XPROP-REPLACE
P-XPROP-SET-INNER
P-XPROP-SET
P-XPROP-REMOVE

用户交互
P-EDIT-VALUE
P-GETDIST
P-CONFIRM
P-GETKWORD
P-GETKWORD1
P-GETINT

P-ENTSEL-INNER
P-ENTSEL
P-NENTSEL
P-ENAMEP
P-ENAMES-AFTER
P-ENAMES->SS
P-SS->ENAMES
P-SS->HANDLES
P-SS-HIGHLIGHT-INNER
P-SS-HIGHLIGHT


字符串处理
P-STRING-EMPTY?
P-STRINGP
P-STRING-SUBST
P-STRING-SUBSTP
P-STRING-CONNECT
P-STRING-LEFT
P-STRING-RIGHT
P-NUMBER-PADDING
P-NUMBER-PADDING-LAST
P-SET-VALUES
P-STRING-TOKENIZE
P-STRING-SETNOTEMPTY
P-TEMPLATE-PARSE-INNER
P-TEMPLATE-PARSE
P-TEMPLATE-EVAL

表访问修改
P-GET
P-GET1
P-SET
P-SET1
P-UNSET
P-DXF
P-DXF1
P-DXFS

CSV文件读取

P-CSVFILE-READ
P-CSVFILE-READCACHE
P-CSVREAD-KEYS
P-CSVREAD-GET
P-CSVREAD-GET1


直线相关
P-LINE-GETENDNEAR
P-LINE-GETANGLE
P-LINE-GETINTERS
P-LINE-CLOSESTPOINT
P-LINE-PARALLEL


剪贴板
P-CLIPBOARD-SET
P-CLIPBOARD-GET

文件相关
P-FILE-SEARCH
P-DIRECTORY-MAKE
P-FILE-READ
P-FILE-READSTRING
P-LISP-LOAD

正则、JS
P-REGEXP-MATCH
P-REGEXP-REPLACE
P-JSCRIPT-EVAL

性能测试
P-TIMESTAMP
P-TIMER-START
P-TIMER-STOP
P-BENCHMARK





本帖子中包含更多资源

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

x

评分

参与人数 27明经币 +26 金钱 +25 收起 理由
言戲無軍 + 1
开心68602 + 1 赞一个!
zuicai + 1 很给力!
kyky1002 + 1 赞一个!
tryhi + 1 赞一个!
zhangcan0515 + 1
tingwei3 + 1 赞一个!
songyujie928 + 1 神马都是浮云
669423907 + 1 非常感谢分享
xshrimp + 1 很给力!

查看全部评分

发表于 2022-5-16 18:55 | 显示全部楼层
感谢 start4444 共享源码!!!!!!

点评

小弟才疏学浅原创的东西真没啥,都是在前辈们的肩膀上拼凑点东西提高下工作效率而已  发表于 2022-5-17 11:04
这一招高呀,start4444就不好意思不发了。  发表于 2022-5-16 18:59
回复 支持 2 反对 0

使用道具 举报

 楼主| 发表于 2022-5-17 21:35 | 显示全部楼层
landsat99 发表于 2022-5-17 14:17
致敬共享精神
选择Github维护  集成更多的同行者

https://github.com/huhuishen/functions
回复 支持 1 反对 0

使用道具 举报

发表于 2022-5-16 17:16 | 显示全部楼层
向明经的前辈大佬致敬!希望明经永存!
发表于 2022-5-16 18:09 | 显示全部楼层
感谢长老共享!
发表于 2022-5-16 18:16 | 显示全部楼层
向大佬致敬!~~~~~!
发表于 2022-5-16 21:22 | 显示全部楼层
感谢张大分享函数库。
发表于 2022-5-16 21:37 | 显示全部楼层
谢谢大佬的分享  
发表于 2022-5-16 22:01 | 显示全部楼层
感谢开源分享,致敬前辈。
发表于 2022-5-16 22:22 | 显示全部楼层
真是无私分享了,谢谢大佬,学习中
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2022-6-30 15:03 , Processed in 0.169668 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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