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

日历

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

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


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

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

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

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

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

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





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

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

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

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



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

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

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

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

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

厉害啊，我学不会:L

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

太厉害了吧

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

还挺不错，加油

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

说实话，不知道怎么使用？……
页: [1]
查看完整版本: 日历