启动警报框

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 "[color=red][b]Your Companyname[/b][/color]"); 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）