乐筑天下

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

[编程交流] 从numrical更改变量

[复制链接]
CADdet

2

主题

2

帖子

0

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 09:56:39 | 显示全部楼层 |阅读模式
当从图形中检索信息到lisp时，我得到五个didget中的一个，每个didget代表一种材料。
 
  1. 1 for lead
  2. 2 = zinc
  3. 3 = ceramic
  4. 4 = concrete
  5. 5 = synthetic

 
 
这些值存储在变量中，并写入excel。
 
而不是让excel文件解决问题，我如何使用lisp引用/索引相应材料的数字？
 
因此，与其使用excel，不如使用：
 
  1. 1
  2. 1
  3. 2
  4. 1
  5. 3
  6. 1
  7. 4
  8. 2

 
我有一个excel文件，其中包含：
 
  1. Lead
  2. Lead
  3. Zinc
  4. Lead
  5. Ceramic
  6. Lead
  7. Concrete
  8. Zinc
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 10:25:29 | 显示全部楼层
关联列表对于这种类型的数据非常有用
  2. (setq matdata '(
  3. ("LEAD" . 1)
  4. ("ZINC" . 2)
  5. ("CERAMIC" . 3)
  6. ("CONCRETE" . 4)
  7. ("SYNTHETIC" . 5)
  8. ))

然后：
  2. (cdr (assoc value matdata))

 
但是，它们区分大小写。或者可以根据您的需要进行反转-大卫
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 10:29:34 | 显示全部楼层
在将值写入excel文件之前，请使用cond语句。
 
例子：
 
  2. ;; Get variable value
  3. (setq var 1)
  5. ;; Interpret value prior to write
  6. (cond
  7.  ((= 1 var)
  8.   (setq var "Lead"))
  9.  ((= 2 var)
  10.   (setq var "Zinc"))
  11.  ((= 3 var)
  12.   (setq var "Ceramic"))
  13.  ((= 4 var)
  14.   (setq var "Concrete"))
  15.  ;; ...etc.
  16.  )
  18. ;; Write variable to excel
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 10:42:03 | 显示全部楼层
 
 
也许这种格式更可取？
 
  2. (setq matdata '((1 . "LEAD")
  3.                (2 . "ZINC")
  4.                (3 . "CERAMIC")
  5.                (4 . "CONCRETE")
  6.                (5 . "SYNTHETIC")
  7.                ))
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 11:07:30 | 显示全部楼层
 
 
我无法从OP上判断他们需要数据的方式。。。。。
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-6 23:19 , Processed in 0.566347 second(s), 73 queries .

© 2020-2025 乐筑天下

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