读取服务器上的数据库??

夜未眠 · 发表于 2005-5-1 11:08:00

本帖最后由作者于 2005-5-1 22:04:23 编辑

1楼的问题已经解决,看2楼. 对应的图层已经先建好过了。 (if (not *command-reactor*
(setq *command-reactor*
(vlr-command-reactor nil
'((:vlr-commandwillstaet . wcbyl)
(:vlr-commandended . ecbyl)) )))
(defun wcbyl (x)
(setq oldly (getvar "clayer")
y (if (= getvar "ctab" "Model") "" (getvar "ctab")))
(if (wcmatch x "Dim*")
(setvar "clayer" (strcat y "dim"))))
(defun ecbyl (x) (setvar "clayer" oldlay))

夜未眠 · 发表于 2005-5-1 11:13:00

另外，我看网上的高手做的还可以在程序外面写个ini配制文件，程序通过读取这个文件里的值来执行，修改时非常的方便，是如何实现的？read-line ？？

还有lisp能在客户机上读取服务器上的数据库文件或者别的可以用来指定程序参数的其他类型文件吗？这样只要在服务器上改一下，就全部都改了，省去了一个个客户机升级的麻烦。

最后，大家5.1愉快。唉~，偶这个可怜人去加班了。

夜未眠 · 发表于 2005-5-1 21:38:00

这么多人看都没人回答,问题自己搞定了,错了2个地方,首先wcbyl应该是2个参数,居然提示我参数多了,真是误导人嘛.第二个是(wcmatch x "Dim*")里面的x是个字符串组成的表,而不是字符串不能直接比较.

不过二楼的问题还是没想好,大家提点意见,看怎么弄啊.

龙龙仔 · 发表于 2005-5-2 08:23:00

;;最好把程序改用ActiveX重写!(if (not *COMMAND-REACTOR*)
(setq *COMMAND-REACTOR*
(vlr-command-reactor
NIL
'((:vlr-commandwillstart . WCBYL)
(:vlr-commandended . ECBYL)
)
)
)
)(defun WCBYL (X1 X)
(setq OLDLAY (getvar "clayer")
Y (if (= (getvar "ctab") "Model")
""
(getvar "ctab")
)
)
(if (wcmatch (car X) "DIM*")
(setvar "clayer" (strcat Y "dim"))
)
)(defun ECBYL (X1 X) (setvar "clayer" OLDLAY))

夜未眠 · 发表于 2005-5-2 11:11:00

楼上写的这个是修正了我1楼的错误吧??这个我昨天已经做好了,还加了个命令执行到一半时用户取消的回调,那个"ActiveX重写"什么意思?

spshchen · 发表于 2005-5-3 14:38:00

我看还是做作做个给到网络服务器去读取数据的,这样升级就更加方便,而且要加密什么的更加好,不知道你们有没有这种想法,

有的话大家可以一起讨论

夜未眠 · 发表于 2005-5-4 00:53:00

我在２楼的帖子就是这个意思啊，不过好像没什么人感兴趣。

spshchen · 发表于 2005-5-6 11:21:00

那你做好了吗? 我是做了个简单认证的数据也可以加密

夜未眠 · 发表于 2005-5-8 12:56:00

没有哦，一时没找到从哪入手，再加上手上还有其他的活给耽误了，你用什么方法实现的？

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