乐筑天下

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

[编程交流] 顺序函数

[复制链接]
svorgodne

55

主题

118

帖子

65

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
273
发表于 2022-7-6 07:18:45 | 显示全部楼层 |阅读模式
是否有可能自动生成顺序函数？
 
像这样的
 
  2. (defun (strcat "att" "1") () (alert "se realizo"))
  4. (defun (read (strcat "att" (itoa 1))) () (alert "se realizo"))
  6. (defun (read (eval (strcat "att" (itoa 1)))) () (alert "se realizo"))

 
没有工作。strcat的第二部分是要增加一个回路的部分
 
提前感谢
回复

使用道具 举报

Stefan BMR

0

主题

375

帖子

385

银币

限制会员

铜币
-7
发表于 2022-7-6 07:34:18 | 显示全部楼层
两种方式
  1. (setq i 1)
  2. ;**********
  3. (eval
  4.  (append
  5.    '(defun)
  6.    (list (read (strcat "att" (itoa i))) nil)
  7.    '((princ "\nSe realizo"))
  8.    '((princ))
  9.  )
  10. )
  12. ;**********
  13. (eval
  14.  (read
  15.    (strcat
  16.      "(defun att"
  17.      (itoa (setq i (1+ i)))
  18.      " nil (princ "\\nSe realizo")"
  19.      " (princ))"
  20.    )
  21.  )
  22. )
  1. _$ (att1)
  2. Se realizo
  3. _$ (att2)
  4. Se realizo
  5. _$
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 07:43:35 | 显示全部楼层
第三种变化：
  1. (eval
  2.    (list 'defun (read (strcat "att" (itoa i))) '()
  3.       '(princ "\nSe realizo")
  4.       '(princ)
  5.    )
  6. )
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 07:58:19 | 显示全部楼层
或者没有defun：
 
  2. (eval (list (read (strcat "(alert "se realizo")"))))

 
-大卫
回复

使用道具 举报

svorgodne

55

主题

118

帖子

65

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
273
发表于 2022-7-6 08:17:48 | 显示全部楼层
非常感谢大家。它总是很有帮助。它彻底解决了我的问题。我希望我也能回答一次问题。
 
干杯
塞尔吉奥
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 08:28:37 | 显示全部楼层
不客气，塞尔吉奥！
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 05:09 , Processed in 1.019880 second(s), 64 queries .

© 2020-2025 乐筑天下

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