[密技]：动态提取当前时间做lsp命令名玩玩！

fsxm · 发表于 2006-6-3 19:08:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

自动生成用当前时间：点和分组成的命令名！
加载后见提示！时间变后又会生成新的命令名！

[php]
(defun dcl ()
  (alert (strcat "\n取得当前时间做命令名玩！\n这次定义了: "
   (vl-princ-to-string (create))
   "\n记好了吗?下次就可以用: "
   tm
   " 调用了哦！"
   )
  )
)
(defun create ()
  (fsxm-fun->create
(strcat
   "c:"
   (setq tm (substr (rtos (* (getvar "cdate") 10e+4) 2 4) 9 4))
)
""
"(dcl)"
  )
)
(dcl)
[/php]
子程式请在：
http://www.xdcad.net/forum/showthread.php?s=&threadid=564984
或到:http://free.ys168.com/?fsxm
下载。先加载:乾坤大挪移.fas(1.0K)
再加载上面的代码就行了！

hao3ren · 发表于 2006-6-3 21:17:30

有点意思，但不知道用来干什么

fsxm · 发表于 2006-6-4 09:55:03

只是用来说明一下动态定义lsp命令的可能与方法！用途不是主要的！
等遇到再说吧！

雨箭风刀 · 发表于 2006-6-4 11:04:52

原理大概是：
(setq nam "c:aaa" f "" b "(alert \"it really work\")")
(eval (read(apply 'strcat(list "(defun " nam "(" f ")" b")") )))

不过图层名做为命令名仅适用于图名较为简单的用户，而且图名中不能有空格（其他的符合也可能引起不适用）

fsxm · 发表于 2006-6-4 12:01:17

最初由雨箭风刀发布
[B]原理大概是：
(setq nam "c:aaa" f "" b "(alert \"it really work\")")
(eval (read(apply 'strcat(list "(defun " nam "(" f ")" b")") )))

不过图层名做为命令名仅适用于图名较为简单的用户，而且图名中不能... [/B]

好样的！
一眼就看出来了！！
的确我就是这样做的！
不过图名中的空格我是先处理过才用的.图名中复杂的字符呵呵！
那也没办法了！·
还有如果图名为“yer”也会出现定义失败！

qjcpj · 发表于 2006-6-4 15:44:50

好像看不出程序有什么用处！

fsxm · 发表于 2006-6-4 15:49:14

这个几是一个说明例子！的确是没什么用啦！
不过如果你用的合适用对了地方还是会有用的哦！！

GTJ116600 · 发表于 2013-5-28 07:06:55

看看到底实现什么功能，感觉挺有意思

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

[密技]：动态提取当前时间做lsp命令名玩玩！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子