条件。。代码不起作用

bijoyvm · 发表于 2022-7-6 07:54:44

嗨，朋友们，请帮我更正此代码。。。

;;;;;;; 如果a是整数

（defun C:test（）
（setq a 01）

（条件
（（=（a型）STR）（警报“\n它是字符串”））
（（=（类型a）int）（警报“\n它是整数”））
)
（普林斯）
)

;;;;;;;;;; 如果a是字符串

（defun C:test（）
（setq a“PLOT-01”）

（条件
（（=（a型）STR）（警报“\n它是字符串”））
（（=（类型a）int）（警报“\n它是整数”））
)
（普林斯）
)

pBe · 发表于 2022-7-6 08:28:22

copy

 
(cond
((= (type a) 'STR) (alert "\nIT IS STRING")) 
((= (type a) 'int) (alert "\nIT IS INTEGER")) 
)

前一段时间你没有读过帖子上的其他回复吗？-->将实数转换为字符串

顺便说一句：添加代码标签-->代码发布指南

bijoyvm · 发表于 2022-7-6 08:38:03

非常感谢pBe
是的，我读过。。实际上，我正在尝试创建一个lisp，我需要添加这个条件，但它不起作用。。不，它工作得很好。

谢谢和问候
比乔伊

pBe · 发表于 2022-7-6 09:06:18

很高兴为您服务。

但您仍然需要添加代码标记-->代码发布准则

[编程交流] 条件。。代码不起作用

发表回复

精选推荐