visual lisp接受默认值

Bear31831 · 发表于 2022-7-6 15:09:38

这可能看起来很基本，但我在让一个简单的lisp例程接受默认值时遇到了问题。

当我输入以下代码时：
（setq dst1（getdist“\n输入柱间距：”）

然后接受默认值，我得到了响应：
; 错误：错误的参数类型：numberp:nil

我做错了什么？我知道这一定很简单，但我似乎在任何地方都找不到接受默认值的任何参考。

顺便说一句，我对这方面还不熟悉。你注意到了吗？

谢谢

乔B。

The Buzzard · 发表于 2022-7-6 15:28:05

（setq dst1“5'4.5”）

定义函数后

lpseifert · 发表于 2022-7-6 15:46:07

你可以试试这个，输入需要以英寸为单位

copy


(if (null dst)
(setq dst 64.5)
);if
(setq dst1 (getdist (strcat "\nEnter Post to Post spacing : <" (rtos dst 3 1) ">: "))
);setq
(if (not dst1)
(setq dst1 dst)
(setq dst dst1)
);if

CAB · 发表于 2022-7-6 15:57:32

这是我的版本：

copy

  (or dst (setq dst 64.5)) ; set default
 (and (setq ans (getdist (strcat "\nEnter Post to Post spacing : <" (rtos dst 3 1) ">: ")))
      (setq dst ans)
 )

Bear31831 · 发表于 2022-7-6 16:19:18

谢谢大家。。。我一直认为生活很简单。

[编程交流] visual lisp接受默认值

发表回复

精选推荐