AutoLISP拆分逗号分割的字符串

在 AutoLISP 中，可以使用 `split-string` 函数将一个字符串按照指定的分隔符进行拆分。以下是一个示例代码，可以拆分逗号分隔的字符串：

(setq str "1,2,3,4,5")
(setq lst (split-string str ","))

(foreach item lst
  (princ item)
  (princ)
)

这个代码中，`split-string` 函数将字符串 `"1,2,3,4,5"` 按照逗号 `,` 进行拆分，并将拆分后的结果存储在一个列表 `lst` 中。然后，使用 `foreach` 循环遍历 `lst` 列表，并将每个元素输出到 AutoCAD 命令行窗口中。

如果您的字符串中包含其他的分隔符，可以将分隔符作为 `split-string` 函数的第二个参数进行指定。例如，如果您的字符串中包含空格和逗号两种分隔符，可以使用以下代码进行拆分：

(setq str "1, 2, 3, 4, 5")
(setq lst (split-string str "[, ]+"))

(foreach item lst
  (princ item)
  (princ)
)

这个代码中，`split-string` 函数的第二个参数使用了一个正则表达式 `"[, ]+"`，表示逗号和空格都可以作为分隔符，并且可以出现一次或多次。