自用函数库152个开源

vectra

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

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

有些代码取自明经，让他回馈明经吧。想想玩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

yoyoho

感谢 start4444 共享源码!!!!!!

vectra

landsat99 发表于 2022-5-17 14:17
致敬共享精神
选择Github维护  集成更多的同行者

https://github.com/huhuishen/functions

start4444

向明经的前辈大佬致敬！希望明经永存！

guosheyang

感谢长老共享！

hf423

向大佬致敬！~~~~~！

sncokina

感谢共享~~~~~

tigcat

感谢张大分享函数库。

1028882406@qq.c

谢谢大佬的分享  

Bao_lai

感谢开源分享，致敬前辈。

gdfyhao

真是无私分享了，谢谢大佬，学习中