datetime:get-current-year
说明:返回年份
用法:
(datetime:get-current-year )
参数:None
返回值:
示例:
@lisp 函数库是一个开源、共享、可云端加载的 autolisp 函数库。由像您一样热爱开源共享的爱好者所构筑并维护。可依据开放许可协议自由使用。
@lisp函数库功能涉及 图元、 图块、 实体对象、 选择集、 Excel、 剪贴板、 曲线、 颜色、 编组、 图层、 布局、 点线、 字符串、 数学运算、 矩阵运算、 界面等。更多内容持续迭代中 …
将以下代码复制到 您的 lsp 文件头部 就可以直接使用@lisp函数库的中定义函数了(须在联网状态下)。
(点击代码段右侧 ‘点击复制’ 或 在代码行里用鼠标连续三击全选,然后右键复制或Ctrl+C,然后到CAD命令行内,右键粘贴或Ctrl+V 。)
(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
将以下代码复制到 CAD 命令行内,回车即可开始安装 @lisp kernel。@lisp kernel(内核)包含 @lisp函数库 及 @lisp应用云 的基本管理功能。
(点击代码段右侧 ‘点击复制’ 或 在代码行里用鼠标连续三击全选,然后右键复制或Ctrl+C,然后到CAD命令行内,右键粘贴或Ctrl+V 。)
(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
;; @lisp 函数库帮助与支持, 查询的函数均以 ui:confirm1 为示例
(fun:list) ;; 列出所有@lisp函数
(fun:usage 'ui:confirm1) ;; 显示函数 ui:confirm1 用法
(fun:help 'ui:confirm1) ;; 显示函数 ui:confirm1 用法
(fun:src 'ui:confirm1) ;; 显示函数 ui:confirm1 的定义源码
(fun:search "ui:");; 搜索 函数库 中 ui: 相关的函数
(fun:run-example funname) ;; 如果函数有示例代码,则运行示例
(fun:e.g funname) ;; 如果函数有示例代码,则运行示例
;; 调用示例
(require 'ui:confirm1) ;; 加载 用户确认对话框函数
(ui:confirm1 '("你家门口有两双鞋。" "一双是你的。" "另一双也是你的。" ) "是-否")
命令行输入 @S
可以查看和修改 @lisp 的全部配置项。
说明:返回年份
(datetime:get-current-year )
参数:None
返回值: