[求助]：如何实现类似全局变量的功能?

oldstone

如何实现类似全局变量的功能?即每次打开cad,到关闭它,实现同一lisp调用此变量初始值不为零.

XDSoft

最初由 oldstone 发布
[B]如何实现类似全局变量的功能?即每次打开cad,到关闭它,实现同一lisp调用此变量初始值不为零. [/B]

就设置一个不会被覆盖的变量名就行

比如默认值的：

2. 
   
3. [FONT=courier new]
   
4. 
   
5. (if (not $yourApp_val)
   
6.    (setq $yourApp_val 100)
   
7. )
   
8. 
   
9. (if (setq a (getint (strcat "\n输入值<" (itoa $yourApp_val) ">:")))
   
10.    (setq $yourApp_val a)
    
11. )
    
12. .............................
    
13. 
    
14. [/FONT]

<br /> [FONT=courier new]<br /> <br /> (if (not $yourApp_val)<br />    (setq $yourApp_val 100)<br /> )<br /> <br /> (if (setq a (getint (strcat "\n输入值<" (itoa $yourApp_val) ">:")))<br />    (setq $yourApp_val a)<br /> )<br /> .............................<br /> <br /> [/FONT]

以后的代码如果用到输入值，就用$yourApp_val 这个变量的值。

Qlin

在AutoCAD 2000以后版本的多图档环境中，可以用
vl-propagate函数输出变量值，使之可以跨图档有效。

lijiao

NO NO NO！！！
我想oldstone 的意思是一旦设置了这个变量的值，无论什么时侯打开该文档，该变量不用重新输入，对否？
我认为：1、可以在文档中生成一个实体，将变量的值放在该实体中，然后将该实体隐藏。
        2、在ACAD.LSP中检查该实体，若实体存在，则读取变量值，若实体不存在，进行第1条。

newer

最初由 lijiao 发布
[B]NO NO NO！！！
我想oldstone 的意思是一旦设置了这个变量的值，无论什么时侯打开该文档，该变量不用重新输入，对否？
我认为：1、可以在文档中生成一个实体，将变量的值放在该实体中，然后将该实体隐藏。
      ... [/B]

我想他的意思还是说程序启动后，自动读入默认值，如果交互过程有修改，能保存起来。下次程序再启动，读入新的默认值。

hxg_888

新值写入注册表内，下次读出即可

青马

这个问题很有意思，但写入注册表不好把

XDSoft

大家有必要在每次打开一个新的DWG文件，都要读以前操作过的默认值吗？

我想在一个回话期内，能保存，读出就很方便用户了。