[必看]：在LSP中如何提供默认值？

lijiao · 发表于 2003-5-6 11:31:48

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

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

×

在LSP中，经常要求用户输入字符或数值，最好的是为用户提供一个默认值。
现在我想问一下，大家都是用什么方式提供这个默认值，讨论一下最好的方式是什么。

ll_j · 发表于 2003-5-6 15:31:56

(if (not 变量名) (setq 变量名 1))

cy956 · 发表于 2003-5-6 21:18:03

1：

(defun pri1 (a #p0 b c / x)
(princ (strcat b " <"))(princ c)(setq x (a #p0 ">:"))
(if (and x (/= x "")) x c)
)
(defun pri (a b c / x)
(princ (strcat b " <"))(princ c)(setq x (a ">:"))
(if (and x (/= x "")) x c)
)

试试：
(setq a(pri getdist "\输入。。。:" (if a a 123)))
(setq a(pri getreal "\输入。。。:" (if a a 123.0)))
(setq a(pri getint "\输入。。。:" (if a a 1)))

(setq p0'(0 0)
p0(pri getdist p0 "\输入。。。:" (if p0 p0 '(1 1))))

lijiao · 发表于 2003-5-7 08:36:08

谢谢二位。
但用这种方式提供的默认值是一个定值，用LL_J的例子来说，程序一旦作好，默认值就是1，每次调用程序时都是1，我希望这样：第一次调用时，默认值可以为1，用户认为不合适，输入5，第二次调用，默认值应该为5。
这样会不会好一些？

gchen · 发表于 2003-5-7 10:09:17

这个当然是不错，可是lisp一旦写好，编译了以后是不可以再改变了的。我想只有把这个资料写入图纸当中，在程序运行的时候读取它。可以用ACAD提供的15个用户变量中的10个。或是用扩展数据库或xrecord。
如果允许在第一次使用时再修改，则用一个全局变量就可以了。

hqd9639 · 发表于 2003-5-7 10:47:42

你是不是想这样：
(defun c:test ()
(cond ((null dia1_old) (setq dia1_old 1.0)))
(setq dia1 (getreal (strcat "请输入一个数<" (rtos dia1_old) ">")))
(if (not dia1)
(setq dia1 dia1_old)
(setq dia1_old dia1)
)
)

e2002 · 发表于 2003-5-7 11:46:26

如果需要记录用户的默认设置值,可以使用外部文件(如INI,CFG等)
不过最好使用Windows注册表

snsj · 发表于 2003-5-7 11:50:19

E2002能不能不你的方法具体说说，最好用例子说明

lijiao · 发表于 2003-5-7 13:06:40

最初由 hqd9639 发布
[B]你是不是想这样：
(defun c:test ()
(cond ((null dia1_old) (setq dia1_old 1.0)))
(setq dia1 (getreal (strcat "请输入一个数<" (rtos dia1_old) ">")))
(if (not dia1)
(setq dia1 dia1_ol... [/B]

你是用全局变量的方法，只要文档不关闭，这个变量将保持；但文档关闭后，重新打开，这个变量就会为NIL。
我认为较好的办法是将数据保存在文档中。

lsjjm · 发表于 2003-5-7 13:47:36

(if pre nil (setq pre 2))
  (princ "\nInput Precision Value:<")
  (princ pre)
  (setq pre0 (getstring ">:"))
  (if (/= pre0 "")(setq pre pre0))
  (princ "\nSelect Dimension:")
开机时默认值是2，如果你更改为3，下次默认值就是3。

hqd9639 · 发表于 2003-5-7 14:12:38

最初由 lijiao 发布
[B][QUOTE]最初由 hqd9639 发布
[B]你是不是想这样：
(defun c:test ()
(cond ((null dia1_old) (setq dia1_old 1.0)))
(setq dia1 (getreal (strcat "请输入一个数<" (rtos dia1_old) ">")))
(if... [/B]

有必要那样吗？其实我认为既是默认值，没必要每次都要改变。
不知道实际运用中哪里需要那样。

cy956 · 发表于 2003-5-7 18:32:53

最初由 lijiao 发布
[B]谢谢二位。
但用这种方式提供的默认值是一个定值，用LL_J的例子来说，程序一旦作好，默认值就是1，每次调用程序时都是1，我希望这样：第一次调用时，默认值可以为1，用户认为不合适，输入5，第二次调用，默认值应该... [/B]

可以。你看看原程序，第一次输入后就记住了。

但重入acad，初始值都是固定的；如果你想连
开机的初始值都要可变，你得找个地方记录。

ll_j · 发表于 2003-5-7 18:56:32

三种方法我都用过，现在一般使用全局变量，必要时只要根据使用要求小作修改（服务）即可。
使用Acad保留变量只能使用10个（USERI1-5、USERR1-5，而USERS1-5不保存），经常使用就会忘记，出现冲突。
我在下载中心的“电力线路计算程序”中使用了文件记录的形式保存线路型号，这是对于需要保留的值比较多时才适合使用，并在程序中对没有记录文件的情况进行处理，我的程序是根据对话框文件位置判断记录文件位置的，没有对话框时，可能需要指定合适的路径，否则记录文件可能会很乱。

eachy · 发表于 2003-5-7 19:16:08

最初由 snsj 发布
[B]E2002能不能不你的方法具体说说，最好用例子说明 [/B]

可以用Vlax-ldata-put记录数据，是随图保存的。

(if (null #yb_bl)
(setq #yb_bl (getreal "\n出图比例<1>: "))
)
(if (or (= #yb_bl "")
(= #yb_bl nil)
)
(setq #yb_bl 1.0)
)

lijiao · 发表于 2003-5-8 08:57:56

1、eachy的方法不错，还可以保存到XRECORD中
2、ACAD中有许多命令也提供默认值，比如圆角，你输入圆角半径25后，重新打开文档，默认值仍为25，不知ACAD是用什么方式保存的。

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

[必看]：在LSP中如何提供默认值？

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

相关帖子