乐筑天下

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

[编程交流] 写这个的更聪明的方法（龙）

[复制链接]
Aftertouch

76

主题

312

帖子

254

银币

后起之秀

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

铜币
390
发表于 2022-7-5 16:34:01 | 显示全部楼层 |阅读模式
大家好，
我自己建立以下代码。。。
 
Fase01 Fase02等。。。都是我字典上的Xrecords。
我需要更改所有30个Xrecords的值。。。
这个代码可以写出来吗？这样它就可以通过代码行中的所有记录“循环”了吗？？
 
  2.                                                         (setq xrecordupdate (GetXrec "Fase00"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase00" (list (cons 1 xrecordupdate)))
  3.                                                         (setq xrecordupdate (GetXrec "Fase01"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase01" (list (cons 1 xrecordupdate)))
  4.                                                         (setq xrecordupdate (GetXrec "Fase02"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase02" (list (cons 1 xrecordupdate)))
  5.                                                         (setq xrecordupdate (GetXrec "Fase03"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase03" (list (cons 1 xrecordupdate)))
  6.                                                         (setq xrecordupdate (GetXrec "Fase04"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase04" (list (cons 1 xrecordupdate)))
  7.                                                         (setq xrecordupdate (GetXrec "Fase05"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase05" (list (cons 1 xrecordupdate)))
  8.                                                         (setq xrecordupdate (GetXrec "Fase06"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase06" (list (cons 1 xrecordupdate)))
  9.                                                         (setq xrecordupdate (GetXrec "Fase07"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase07" (list (cons 1 xrecordupdate)))
  10.                                                         (setq xrecordupdate (GetXrec "Fase08"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase08" (list (cons 1 xrecordupdate)))
  11.                                                         (setq xrecordupdate (GetXrec "Fase09"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase09" (list (cons 1 xrecordupdate)))
  12.                                                         (setq xrecordupdate (GetXrec "Fase10"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase10" (list (cons 1 xrecordupdate)))
  13.                                                         (setq xrecordupdate (GetXrec "Fase11"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase11" (list (cons 1 xrecordupdate)))
  14.                                                         (setq xrecordupdate (GetXrec "Fase12"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase12" (list (cons 1 xrecordupdate)))
  15.                                                         (setq xrecordupdate (GetXrec "Fase13"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase13" (list (cons 1 xrecordupdate)))
  16.                                                         (setq xrecordupdate (GetXrec "Fase14"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase14" (list (cons 1 xrecordupdate)))
  17.                                                         (setq xrecordupdate (GetXrec "Fase15"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase15" (list (cons 1 xrecordupdate)))
  18.                                                         (setq xrecordupdate (GetXrec "Fase16"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase16" (list (cons 1 xrecordupdate)))
  19.                                                         (setq xrecordupdate (GetXrec "Fase17"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase17" (list (cons 1 xrecordupdate)))
  20.                                                         (setq xrecordupdate (GetXrec "Fase18"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase18" (list (cons 1 xrecordupdate)))
  21.                                                         (setq xrecordupdate (GetXrec "Fase19"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase19" (list (cons 1 xrecordupdate)))
  22.                                                         (setq xrecordupdate (GetXrec "Fase20"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase20" (list (cons 1 xrecordupdate)))
  23.                                                         (setq xrecordupdate (GetXrec "Fase21"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase21" (list (cons 1 xrecordupdate)))
  24.                                                         (setq xrecordupdate (GetXrec "Fase22"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase22" (list (cons 1 xrecordupdate)))
  25.                                                         (setq xrecordupdate (GetXrec "Fase23"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase23" (list (cons 1 xrecordupdate)))
  26.                                                         (setq xrecordupdate (GetXrec "Fase24"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase24" (list (cons 1 xrecordupdate)))
  27.                                                         (setq xrecordupdate (GetXrec "Fase25"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase25" (list (cons 1 xrecordupdate)))
  28.                                                         (setq xrecordupdate (GetXrec "Fase26"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase26" (list (cons 1 xrecordupdate)))
  29.                                                         (setq xrecordupdate (GetXrec "Fase27"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase27" (list (cons 1 xrecordupdate)))
  30.                                                         (setq xrecordupdate (GetXrec "Fase28"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase28" (list (cons 1 xrecordupdate)))
  31.                                                         (setq xrecordupdate (GetXrec "Fase29"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase29" (list (cons 1 xrecordupdate)))
  32.                                                         (setq xrecordupdate (GetXrec "Fase30"))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "0000000" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 "Fase30" (list (cons 1 xrecordupdate)))
回复

使用道具 举报

Aftertouch

76

主题

312

帖子

254

银币

后起之秀

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

铜币
390
发表于 2022-7-5 17:13:24 | 显示全部楼层
很抱歉
我自己解决了我想。。。
  2. (foreach fasenr '("Fase01" "Fase02" "Fase03" "Fase04" "Fase05" "Fase06" "Fase07" "Fase08" "Fase09" "Fase10" "Fase11" "Fase12" "Fase13" "Fase14" "Fase15" "Fase16" "Fase17" "Fase18" "Fase19" "Fase20" "Fase21" "Fase22" "Fase23" "Fase24" "Fase25" "Fase26" "Fase27" "Fase28" "Fase29" "Fase30")
  3.                                                         (setq xrecordupdate (GetXrec fasenr))(setq xrecordupdate (strcat (substr xrecordupdate 1 11) "1111111" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 fasenr (list (cons 1 xrecordupdate)))
  4.                                                         )
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-5 17:23:35 | 显示全部楼层
您也可以尝试增量变量：
  2. (setq i 1)
  3. (repeat 30
  4.  (setq var (strcat "fasenr" (if (< i 10) "0" "") (itoa i)))        
  5.  (and
  6.    (setq xrecordupdate (GetXrec var))
  7.    (setq xrecordupdate (strcat (substr xrecordupdate 1 11) "1111111" (substr xrecordupdate 19)))(AddOrReplaceXrec dict1 var (list (cons 1 xrecordupdate)))
  8.   )
  9.  (setq i (1+ i)))

 
-大卫
回复

使用道具 举报

Grrr

66

主题

1552

帖子

1514

银币

后起之秀

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

铜币
325
发表于 2022-7-5 17:36:51 | 显示全部楼层
另一个：
  2. (mapcar '(lambda (x) (AddOrReplaceXrec dict1 fasenr (list (cons 1 (strcat (substr x 1 11) "1111111" (substr x 19))))))
  3.  (mapcar 'GetXrec (mapcar '(lambda (x) (strcat "Fase" x)) (cdr (Min2digitInteger 30))) )
  4. )
  6. ; (Min2digitInteger 30)
  7. (defun Min2digitInteger ( n / L )
  8.  (cond 
  9.    ( (and (eq 'INT (type n)) (not (minusp n)))
  10.      (repeat (setq n (1+ n))
  11.        (setq n (1- n))
  12.        (setq L (cons (cond ((< n 10) (strcat "0" (itoa n)) ) (T (itoa n)) ) L))
  13.      ); repeat
  14.      L
  15.    )
  16.  ); cond
  17. ); defun
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-14 15:46 , Processed in 0.818141 second(s), 61 queries .

© 2020-2025 乐筑天下

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