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

visual lisp接受默认值

这可能看起来很基本，但我在让一个简单的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

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

(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

这是我的版本：
(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

谢谢大家。。。我一直认为生活很简单。
页: [1]
查看完整版本: visual lisp接受默认值