日历

hqdwy · 发表于 2024-3-14 18:30

本帖最后由 hqdwy 于 2024-3-15 10:09 编辑

春节期间看了些时Autolisp的书，编了个日历程序，朋友们看看我注释掉的那一句为何不起作用？初学，轻拍。

(setq year (getstring t "\n请输入年份,enter结束<2024>"))
;(if (null year) (setq year "2024"))

飞雪神光 · 发表于 2024-3-14 18:41

直接回车是 "" 是有值的非nil 应该这么写 (if (= year "") (setq year "2024"))

hqdwy · 发表于 2024-3-14 18:44

本帖最后由 hqdwy 于 2024-3-14 18:56 编辑

哦，谢谢。
哈哈，能了，多了个空格就不对了。。。

guosheyang · 发表于 2024-3-14 19:44

(if (not(read year)) (setq year "2024")) 这样也可

Bao_lai · 发表于 2024-3-14 20:29

本帖最后由 Bao_lai 于 2024-3-14 20:30 编辑

记得把这个外框放到循环外面，一个月有多少天，这个框子就画了多少遍。

hqdwy · 发表于 2024-3-15 10:08

Bao_lai 发表于 2024-3-14 20:29
记得把这个外框放到循环外面，一个月有多少天，这个框子就画了多少遍。

嗯。我还没发现呢，觉得有点慢，修改了字体，结果在画框和写月份上浪费了时间。已修改，重新上传。

huisguiji · 发表于 2024-3-15 14:58

厉害啊，我学不会

lxl217114 · 发表于 2024-3-15 15:31

太厉害了吧

paulpipi · 发表于 2024-3-15 17:03

还挺不错，加油

wwwzzzvvv · 发表于 2024-3-15 17:12

说实话，不知道怎么使用？……

账号		自动登录	找回密码
密码			注册

[讨论] 日历