kdc 发表于 2022-6-14 11:16:40

求助!各位大佬

本帖最后由 kdc 于 2024-7-10 11:40 编辑


biya 发表于 2022-6-14 20:33:07

用一个字 符串斜杠分割成字符串表,然后分别提取生成到表就行了

biya 发表于 2022-6-14 20:34:14

;字符串以指定字符分隔成字符串表
;(by-str-to-lst "Aa bb cc dd ee" " ")>>("Aa" "bb" "cc" "dd" "ee")
(defun by-str-to-lst(str zt / n nstr)
        (while (setq n (vl-string-search zt str))
                (setq        nstr (cons (substr str 1 n) nstr)
                        str(substr str (+ 1 (strlen zt) n))
                )
        )
        (reverse (cons str nstr))
)

kdc 发表于 2022-6-15 10:51:48

biya 发表于 2022-6-14 20:34


没有命令吗大佬

biya 发表于 2022-6-15 12:03:39

kdc 发表于 2022-6-15 10:51
没有命令吗大佬

这是核心函数,需要自己开发主函数

kdc 发表于 2022-6-15 16:55:48

biya 发表于 2022-6-15 12:03
这是核心函数,需要自己开发主函数

能否帮忙写一下大佬,我是正在学习的小白还不太懂
页: [1]
查看完整版本: 求助!各位大佬