社区 › Auto Lisp › 启动警报框

sachindkini 发表于 2022-7-6 12:11:49

启动警报框

尊敬的各位：，
 
打开acad后，我希望使用警报框启动
“Hi abcd”（登录名）“早上好”“下午好”“晚上好”，日期和时间

MarcoW 发表于 2022-7-6 12:19:32

你是舒尔吗？我可以想象这可能很有趣。。。

MarcoW 发表于 2022-7-6 12:21:44

您可能需要使用以下例程：
 

(defun c:MdON (/ company *oldmode* )
(setq company "Your Companyname"); put your companyname in there

(setq *oldMode* (getvar "MODEMACRO"))
(setvar "MODEMACRO"
   (strcat company ": Welcome "
   (menucmd "M=$(getvar,loginname)") " - Today is "
       (menucmd "M=$(edtime,$(getvar,date),MO/DD/YYYY)")))
(princ)
)

(defun c:MdOFF ( )
(and *oldMode* (setvar "MODEMACRO" *oldMode*))
(setq *oldMode* nil)      
(princ)
)


 
将例程放入启动套件（appload）。
如果使用s：：mdon而不是c:mdon，它将自动启动。
 
这适合我。

alanjt 发表于 2022-7-6 12:25:19

 
 
宏，MdOFF永远不会做任何事情；在MdON中本地化了*oldMode*变量。

sachindkini 发表于 2022-7-6 12:30:17

尊敬的先生：，
 
thx回复
 
对不起，英语不好
 
我想要弹出警报框
早上打开cad说“早上好”
下午打开cad说“下午好”
晚上打开cad说“晚上好”
&晚安“晚安”
 
查找附件

alanjt 发表于 2022-7-6 12:34:59

 
英雄联盟
真奇怪。那么，上午/下午/晚上是什么？

autolisp 发表于 2022-7-6 12:39:22

（setq usernm（getenv“username”））
（setq ttdt（rtos（getvar“cdate”）2 4））
（setq年（substr ttdt 1 4））
（setq月（substr ttdt 5 2））
（setq日（substr ttdt 7 2））
（setq小时数（substr ttdt 10 2））
（setq mints（substr ttdt 12 2））
（setq小时（atoi小时））
（如果（>小时12）（setq houri（-小时12））（setq houri hourm））
（如果（>第12小时）（setq ampm“pm”）（setq ampm“am”））
（setq小时（itoa houri））
（setq alrtxt（strcat“Hello”usernm“\n“month”-“day”-“year”）
小时“：“mints ampm”）
（vlr蜂鸣反应）
（警报alrtxt）

autolisp 发表于 2022-7-6 12:42:19

（setq alrtxt（strcat“Hello”usernm“\n日期：“month”-“day”-“year”\n登录时间-“hour”：“mints ampm））

asos2000 发表于 2022-7-6 12:47:42

autolisp很棒
 
我们如何添加此复选框？

David Bethel 发表于 2022-7-6 12:53:18

您不能添加带有调用（警报）的复选框，您必须进行完整的DCL和良好的编码-大卫

查看完整版本: 启动警报框