嘎!新手失误,我的错。
将此添加到。lsp文件并重新加载。很抱歉
- (defun fb-string-delim(str del / runLst runStr newLst);
- (setq runLst (vl-string->list str)
- runStr ""
- newLst nil)
- (foreach forVar runLst
- (if (/= (ascii del) forVar)
- (setq runStr (strcat runStr (chr forVar)))
- (setq newLst (append newLst (list runStr)) runStr ""))
- )
- (setq newLst (append newLst (list runStr)))
- ); Parses a string into a list of strings given a certain delimiter
有趣的是,当我从批处理引擎中提取函数时,这部分出现了问题。
你不需要它,这只是一种方便的方法,我可以创建一个列表,列出我们在工作中使用的所有驱动器,而无需单独键入它们。我想变得怪异。只要“rotLst”包含一个目录列表,你就可以了。 |