[密技]：menucmd调用DIESEL方法取得系统日期时间.

梦断江南

;;menucmd调用DIESEL方法取得系统日期时间.
(menucmd "M=$(edtime,$(getvar,date),YYYY\"年\"M\"月\"D\"日\"H\"时\"MM\"分\"SS\"秒\")")
;;->"2004年8月30日3时54分32秒"

urljit

我不熟悉mnl，它是加载每个文档的时候都加载么？如果R2000最好是加在acaddoc.lsp中。

它山之石

不错，有意思。
那你打算将它用在什么地方呢？
我将它放在了状态栏上。
可是不能实时显示时间，怎么才能象个真正的电子表呢？

(setvar "MODEMACRO"(menucmd "M=$(edtime,$(getvar,date),YYYY\"年\"M\"月\"D\"日\"H\"时\"MM\"分\"SS\"秒\")"))

梦断江南

电子表的软件多的是，干嘛要用cad来做？这又不是画图。
非要做可以考虑用反应器，但是会占用资源，得不偿失。
下面是我以前学vb的时候自己做的一个电子表（可惜是半桶水，水平很臭，后来没有继续自学。哈哈）
可以拖动位置，空闲自动收缩，鼠标碰到自动展开，可以锁定，锁定后一直都是展开的，解锁（即收缩成一条线）显示毫秒（让自己更紧张：））

它山之石

支持一下斑主。我下了一个你的电子表。
我说的电子表只是一个好玩的想法。在CAD的状态栏不停的显示时间，催人奋进啊！
也许是不可能实现的吧。太占系统资源？做不了别的事情了。
用作反应器，当闹钟用。到点运行。嘻嘻。

urljit

他山之石：给你看看偶的设置，是在你发命令的时候更新时间的。

1. 
   
2. (setvar
   
3.       "modemacro"
   
4.       (strcat
   
5.         "$(edtime, $(getvar,date),HH:MM)"
   
6.         " "
   
7.         "$(getvar,clayer)"
   
8.         )
   
9.     )
   

复制代码

武陵山人

很有趣的东东，但我用Ctrl+Tab切换图形文件后显示的时间就会消失，怎么才能将它固定下来？

urljit

山人：是说的我么？你把语句放到自动加载的文件里面，让打开任何一个文件的时候都执行一遍，这样就解决你的问题了。

武陵山人

最初由 urljit 发布
[B]山人：是说的我么？你把语句放到自动加载的文件里面，让打开任何一个文件的时候都执行一遍，这样就解决你的问题了。 [/B]

呵呵，是说你的程序呢。
我加到mnl中了，打开文件都会自动加载，可是只要在两个已打开的文件间一切换，时间就消失了。

武陵山人

mnl是加载每个文档的时候都加载的。
我是R2005，加在acaddoc.lsp中也出现同样的问题。搞不明白了~~~~

抓了一张图

urljit

我用的2000，就是放在acaddoc.lsp下面的，很正常

它山之石

最初由 urljit 发布
[B]他山之石：给你看看偶的设置，是在你发命令的时候更新时间的。

1. 
   
2. (setvar
   
3.       "modemacro"
   
4.       (strcat
   
5.         "$(edtime, $(getvar,date),HH:MM)"
   
6.         " "
   
7.         "$(getvar,clayer)"
   
8.         )
   
9.     )
   

复制代码

[/B]

俺的设置是这样的，只显示俺自己的名号，很简单。

1. (setvar "MODEMACRO"
   
2.   (strcat
   
3.      "它山之石图形工作室"
   
4. ;　   " <当前图层>:" "$(substr,$(getvar,CLAYER),1,8)"   ;显示层名
   
5. 
   
6.   )
   
7.   )
   
8. 
   

复制代码

俺本来也想象你那样显示时间，但不能每秒更新一次。也就作罢。

另外，点你真的会抖，是如何做到的。

urljit

无非是学了一些雕虫小技，见笑。