[求助]：编译成VLX后不认内存中的变量

柔柔 · 发表于 2005-2-27 00:17:19

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

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

×

今天突然想做一件事：

一般来说，我会在程序中给出缺省值，如：(if (= xxx_height_xxx nil) (setq xxx_height_xxx 3.2))

尽管在程序中也设置了让用户来改变这个值，但至少一开机在用户设置前，3.2终归是缺省值。我希望这个缺省值也能变。于是，我这么做：

把某些设置值设为全局变量。再编一个源码lsp 程序，
其中有 (setq xxx_height_xxx 3.0) ，以便让用户可以修改，原程序嘛当然压缩到VLX内。

可是，实际结果它不认，内存中的那个变量明明已经是3.0了，运行程序，出来仍是3.2，非要程序本身设置才认，为何？实在想不通。

梦断江南 · 发表于 2005-2-27 00:30:19

编译vlx的时候用了独立空间?

zhynt · 发表于 2005-2-27 00:33:38

应该不会啊，我试了一下，没有这个现象。独立空间我也试了，正常！

柔柔 · 发表于 2005-2-27 10:40:14

编译vlx的时候用了独立空间，我这确实存在这个现象。如果不用独立空间，在调用别的vlx文件内的子程序时有时会出错（我需要调用外面的子程序，因为我要在外面放一个Licensing 式的程序，哈哈~~~）。

我猜想，通过编译，程序中的全局变量名被重新命名了，今天我又试验了一下，程序执行后，查它的变量值（用：！变量名），结果都显示空。

我想这么做是希望程序完美，比如下图这个程序，所有项都是可以由用户设置的，但实际上很少要设置。字体缺省为ROMAND，这是公司的规定，比例因子是程序自动识别的。所以，正常情况下用户不要作任何设置，拿起来就用。

如果某个工程客户要求用ROMANT，字高要5.0 了，如果是明码的话，只要在程序中改一下，一段时间内又不用设置了，问题是我不想给明码。

mmmm · 发表于 2005-2-27 11:37:26

你把那些变量运行时存进acad????.cfg中就可以。

eachy · 发表于 2005-2-27 12:07:54

这样的情况我一般用 vlax-ldata-* 保存和读取数据

独立变量空间和外部交换除了可以用 vlax-ldata-* 实用变量还可以用 vl-bb-set 和 vl-bb-ref 交换。

柔柔 · 发表于 2005-2-27 13:34:44

楼上的方法我倒是没用过，接下来试试。谢谢指导！原来为了照顾低版本而尽量不用Visual LISP （现在用vlx了也顾不到它了）。

当然，也可以用读文本文件数据来解决这个文件，也就是：如果变量值为空---〉如果找不到文本文件或者找到但没有读到所要的数据，则使用某缺省值。这样，即使编译后变量名变了也没影响。只是语句稍微麻烦一点。

eachy · 发表于 2005-2-27 18:11:52

1 vlax-ldata 写入的词典随 DWG 保存，每个图有自己的环境设定，14 以上通用
2 setcfg getcfg 及外部文件是通用的，多个文件共享一个设定

柔柔 · 发表于 2005-2-28 23:05:33

我用打开文本文件的方法解决了这个问题

1，在程序中用这个语句：

[FONT=courier new]
(if (= arrow_english_style_cyn nil)
(progn
(cyn_option "arrow_english_style_cyn")
(if value
(setq arrow_english_style_cyn value)
(setq arrow_english_style_cyn "ROMAND")
)
)
)
...
(if (= arrow_height_cyn nil)
(progn
(cyn_option "arrow_height_cyn")
(if value
(setq arrow_height_cyn (atof value))
(setq arrow_height_cyn 4.5)
)
)
)
[/FONT]

2，公用子程序：

[FONT=courier new]
(defun cyn_option (option / txtfile lin n linlen strn )
(setq value nil)
(if (setq txtfile (findfile "CYN2005.INI"))
(progn
(setq txtfile (open txtfile "r"))
(setq lin (read-line txtfile))
(while (and lin (= value nil))
(if (wcmatch lin (strcat "*" option "*"))
(progn
(setq n 1)
(setq linlen (strlen lin))
(while (< n linlen)
(setq strn (substr lin n 1))
(if (= strn "=")
(setq value (substr lin (+ n 1))
n linlen
)
)
(setq n (+ n 1))
)
)
)
(setq lin (read-line txtfile))
)
(close txtfile)
)
)
)
[/FONT]

3，文本文件：
文件名：CYN2005.INI
内容：

[FONT=courier new]
CYN2005.VLX内各程序的缺省设置 2005.2.27
----------------------------------------
标题标注程序西文字体
arrow_english_style_cyn=ROMANT
标题标注程序中文字体
arrow_chinese_style_cyn=SIMFANG
标题标注程序字体高度
arrow_height_cyn=5.0
标题标注程序字体比例
arrow_width_cyn=0.8
零件标注图层
part_layer_cyn=PART
......
[/FONT]

复制代码

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

[求助] [求助]：编译成VLX后不认内存中的变量

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

相关帖子