条件。。代码不起作用
嗨，朋友们，请帮我更正此代码。。。;;;;;;; 如果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它是整数”））
)
（普林斯）
)
(cond
((= (type a) 'STR) (alert "\nIT IS STRING"))
((= (type a) 'int) (alert "\nIT IS INTEGER"))
)
前一段时间你没有读过帖子上的其他回复吗？-->将实数转换为字符串
顺便说一句：添加代码标签-->代码发布指南 非常感谢pBe
是的，我读过。。实际上，我正在尝试创建一个lisp，我需要添加这个条件，但它不起作用。。不，它工作得很好。
谢谢和问候
比乔伊
很高兴为您服务。
但您仍然需要添加代码标记-->代码发布准则
页:
[1]