明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 22245|回复: 94

[【Gu_xl】] 原创程序:DIY日历程序【源码】2022.08.08更新至可以生成2099年日历

    [复制链接]
发表于 2013-1-12 22:27 | 显示全部楼层 |阅读模式
本帖最后由 Gu_xl 于 2022-8-9 15:56 编辑

2022.08.08更新至可以生成1901-2099年日历,日历中增加了显示二十四节气!
新年到了,想用AutoCAD自己做一个日历,于是便写了个日历自动生成的程序!
命令:Calendar
**挂历放置点:
**输入年份<2013>:2013
**输入月份放置行数[1行/2行/3行/4行/6行>]<4>:4
挂历的字体、颜色可以在生成日历后,通过修改字体和图层颜色来DIY出自己喜欢的颜色!





说明:
  若不能显示文字,请自行修改代码中这句:
(command "style" "隶书" "SIMLI.TTF")
中字体"SIMLI.TTF"为本机有的字体即可!

或者预先自定义一个“隶书”字体即可!
例如改为:(command "style" "隶书" "txt.shx,hztxt.shx")

本帖子中包含更多资源

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

x

点评

赞  发表于 2013-2-26 23:01

评分

参与人数 9明经币 +11 金钱 +120 收起 理由
nadaloveluna + 5 很给力!
004 + 1 + 50 期盼已久
zctao1966 + 1 很给力!
ZZXXQQ + 3 + 30 很给力!
夏生生 + 1 赞一个!
yjr111 + 1 很给力!
ucuc2003 + 5 有创意!!
flytoday02 + 1 只有方格没有字哦
highflybir + 3 + 30 赞一个!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

发表于 2021-1-11 10:43 | 显示全部楼层
**输入年份<2021>:
● 请 耐 心 等 待 一 会 程 序 自 动 生 成 日 历
**输入月份放置行数[1行/2行/3行/4行/6行>]<4>: 参数类型错误: numberp: nil

从今年开始都不能生成日历了
请大师看看能不能完善一下
谢谢您
 楼主| 发表于 2022-8-9 15:55 | 显示全部楼层
由于原贴中农历推算函数的缺陷,程序到2021年以后就一直无法运行了!一直以来也没有去更新!最近抽空将农历推算函数改了一下,目前农历推算范围是1901~2099年,并且增加了二十四节气的推算,日历可以显示二十四节气!
发表于 2022-8-10 14:39 | 显示全部楼层
非常好,只是背景色,黄色太刺眼。可以更改吗?
发表于 2013-1-12 22:36 | 显示全部楼层
抢到沙发了,有点新意,先支持一个...
发表于 2013-1-12 22:38 | 显示全部楼层
抢沙发了,有点新意,先支持一个...
发表于 2013-1-12 23:20 | 显示全部楼层
楼主的代码很精彩,多谢!
发表于 2013-1-13 00:21 | 显示全部楼层
提示:Calendar 参数太少?难道是少了什么??

点评

要下载G版通用函数。。去G版提供的地址下载  发表于 2013-1-13 00:58
发表于 2013-1-13 02:30 | 显示全部楼层
ucuc2003 发表于 2013-1-13 00:21
提示:Calendar 参数太少?难道是少了什么??

谢谢提醒!

点评

已更新,请重新下载!  发表于 2013-1-13 15:56
发表于 2013-1-13 08:08 来自手机 | 显示全部楼层
支持老大!向老大学习。
发表于 2013-1-13 08:23 | 显示全部楼层
真不错,楼主是个人才啊,向您学习。
发表于 2013-1-13 11:48 | 显示全部楼层
G版牛逼啊,万年历?以后不用买日历了

点评

以后日历不用买了,全部DIY!  发表于 2013-1-13 15:57
发表于 2013-1-13 11:50 | 显示全部楼层
命令: Calendar
参数太少

点评

已更新,请重新下载!  发表于 2013-1-13 15:56
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-2 06:07 , Processed in 0.363993 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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