Autolisp子程序循环生成的多组重量值如何存储供主程序调用

核心思路 #

在AutoLisp中，要保存多组生成的重量值，最实用的方式是用**列表（List）或关联列表（Association List）**存储所有值，要么通过全局变量让主程序直接读取，要么让子程序返回列表给主程序接收。

具体实现方法 #

方法1：使用全局列表变量 #

1. 定义一个全局列表变量（AutoLisp中全局变量习惯用星号包裹），初始化为空列表。
2. 子程序每次生成重量值后，将值添加到这个全局列表中。
3. 主程序直接访问该全局列表即可获取所有重量值。

示例代码：

; 定义全局列表，存储所有重量值
(setq *weight-list* '())

; 子程序：生成n组重量值
(defun c:sub-program (/ n i wt)
  ; 每次运行子程序前清空旧数据
  (setq *weight-list* '())
  (setq n (getint "\n请输入生成重量值的组数："))
  (repeat n
    (setq i (1+ i))
    ; 替换为你的实际重量生成逻辑
    (setq wt (rtos (* (random 100) 0.1) 2 1))
    ; 将重量值以(标识 数值)的格式添加到列表
    (setq *weight-list* (append *weight-list* (list (list (strcat "WT" (itoa i)) wt))))
  )
  (princ (strcat "\n已生成" (itoa n) "组重量值"))
  (princ)
)

; 主程序：调用存储的重量值进行计算
(defun c:main-program (/ item)
  (if *weight-list*
    (progn
      (princ "\n所有重量值：")
      (foreach item *weight-list*
        (princ (strcat "\n" (car item) ": " (cadr item)))
        ; 这里添加你的后续计算逻辑，比如用(cadr item)获取数值运算
      )
    )
    (princ "\n没有可用的重量值，请先运行子程序！")
  )
  (princ)
)

方法2：子程序返回列表给主程序 #

如果不想用全局变量，可让子程序直接返回生成的重量列表，主程序调用时接收该返回值。

示例代码：

; 子程序：生成n组重量值并返回列表
(defun generate-weights (/ n i wt weight-list)
  (setq n (getint "\n请输入生成重量值的组数：")
        weight-list '()
  )
  (repeat n
    (setq i (1+ i))
    ; 替换为你的实际重量生成逻辑
    (setq wt (rtos (* (random 100) 0.1) 2 1))
    (setq weight-list (append weight-list (list (list (strcat "WT" (itoa i)) wt))))
  )
  weight-list ; 返回生成的重量列表
)

; 主程序：调用子程序获取重量列表并处理
(defun c:main-program (/ weight-list item)
  (setq weight-list (generate-weights))
  (if weight-list
    (progn
      (princ "\n所有重量值：")
      (foreach item weight-list
        (princ (strcat "\n" (car item) ": " (cadr item)))
        ; 后续计算逻辑
      )
    )
    (princ "\n未生成任何重量值！")
  )
  (princ)
)

额外提示 #

• 用关联列表格式(("WT1" 值) ("WT2" 值))时，可通过assoc函数快速查找特定条目，比如(assoc "WT3" *weight-list*)能直接获取WT3的对应数据。
• 使用全局变量时，记得在子程序开头清空列表，避免旧数据干扰新的计算。

内容的提问来源于stack exchange，提问作者R SRINIVASAN Srinivasan