需要帮助来保存我的数据

Michaels · 发表于 2022-7-6 09:44:50

你好

我想知道为什么这些代码工作不正常，并返回错误消息。

谢谢

pBe · 发表于 2022-7-6 09:54:54

至少用“\”表示分数的错觉

 
(setq a (if a b "1"))
(if (progn
(initget (+ 1 2 4) [color=blue]"1\\4 1\\2 2 1.5")[/color]
(setq a (cond
((getkword (strcat "\n Enter Inch Number [[color=blue]1\\4/1\\2/2/1.5][/color] <"
[color=blue]a[/color]" > :")))(T a))))
(setq b a)
)

为了获得更好的外观，请确保dynmode设置为1

不需要变量转换

顺便说一句：
http://lee-mac.com/promptwithdefault.html对于默认教程

Michaels · 发表于 2022-7-6 10:00:12

谢谢

但这并不能将给定的数据保存到变量a，变量a需要根据最后一个给定的数据进行更改。

我想这是因为不存在（atoi a 3 2）。

你怎么想。

pBe · 发表于 2022-7-6 10:09:58

啊。。。。我懂了

通过使用“\”不能将变量a转换为浮点数
但如果使用“/”，getkword无法将其识别为1/4
也许有一个逃生密码。。。嗯嗯

顺便说一句，使用distof代替，1/4是0.25，将1/4转换为整数将得到1，此外itoa没有模式参数

我会再打给你。。。坚持

Lee Mac · 发表于 2022-7-6 10:18:07

思考变量“a”指向的数据类型：

copy


(setq a (cond ( a ) ("1")))
(if
 (progn (initget "0.25 0.5 2 1.5")
   (setq a
     (cond
       (
         (getkword
           (strcat "\n Enter Inch Number [0.25/0.5/2/1.5] <" a "> :")
         )
       )
       ( a )
     )
   )
 )
 (princ (strcat "You have Selected: " a))
)