乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 78|回复: 6

[编程交流] setq2

[复制链接]

23

主题

56

帖子

33

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
115
发表于 2022-7-6 11:11:55 | 显示全部楼层 |阅读模式
大家好,
 
真奇怪!我以前用BASIC编程,它更明智!
 
无论如何,还有一件奇怪的事:
 
(定义c:prac2(/a)
(setq a Y)
(提示“\nTanks”)
 
)
 
我得到:
 
命令:PRAC2
Thanksnil公司
“零”代表什么?
 
在我放弃之前请帮帮我:眨眼:
 
提前感谢
 
阿里
回复

使用道具 举报

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 11:25:53 | 显示全部楼层
与您的其他帖子中的问题相同:
 
  1. (defun c:prac2 ( / a)
  2. (setq a Y)
  3. (prompt "\nThanks")
  4. (princ)
  5. )

 
还要注意Y变量可能没有值(全局变量),因此a将设置为nil(因为它是局部变量,以前没有赋值,所以它已经为nil)。
 
当做
回复

使用道具 举报

23

主题

56

帖子

33

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
115
发表于 2022-7-6 11:40:20 | 显示全部楼层
 
谢谢,伙计,我明白了!
 
现在我有另一个问题:
 
我写道:
 
我得到:
 
 
我怎样才能把Y放在下一行?
 
 
谢谢
回复

使用道具 举报

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 11:48:12 | 显示全部楼层
所有stings都返回到prompter上的同一行–尝试切换到新行以将其分离:
 
  1. (defun c:prac2( / a)
  2. (setq a "Y")
  3. (prompt "\nThanks")
  4. (prompt "\n")
  5. (prompt a)
  6. (princ)   
  7. )


  1. (defun c:prac2( / a)
  2. (setq a "Y")
  3. (prompt "\nThanks")
  4. (prompt (strcat "\n" a))
  5. (princ)   
  6. )

 
当做
回复

使用道具 举报

15

主题

209

帖子

121

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
163
发表于 2022-7-6 11:52:04 | 显示全部楼层
  1. (defun c:prac2( / a)
  2. (setq a "Y")
  3. (prompt "\nThanks[color="Red"]\n[/color]")
  4. (prompt a)
  5. (princ)   
  6. )
回复

使用道具 举报

5

主题

194

帖子

193

银币

初来乍到

Rank: 1

铜币
24
发表于 2022-7-6 12:06:55 | 显示全部楼层
  1. (defun c:prac2( / a)
  2. (setq a "Y")
  3. (write-line "Thanks")
  4. (write-line a)
  5. (princ)
  6.   
  7. )

 
只是一种替代方法。Prin1、princ、print可能是更典型的选择
回复

使用道具 举报

23

主题

56

帖子

33

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
115
发表于 2022-7-6 12:12:23 | 显示全部楼层
谢谢大家真的很感激。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-6 11:44 , Processed in 0.590246 second(s), 66 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表