aicr317 发表于 2009-10-30 09:12:00

(vl-file-copy)如何使用“通配符”

<!--Element not supported - Type: 8 Name: #comment--><!--Element not supported - Type: 8 Name: #comment-->&nbsp;假定<br/>(setq&nbsp;bb&nbsp;"d:\\")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;D盘下有4个txt文件，分别为1.TXT&nbsp;2.TXT&nbsp;3.TXT&nbsp;4.TXT<br/><br/>如何用(vl-file-copy)将4个文件复制到其他路径<br/><br/>(VL-FILE-COPY&nbsp;(STRCAT&nbsp;BB&nbsp;"*.txt") "d:\\CAD二次开发\\*.TXT")

aicr317 发表于 2009-10-30 10:57:00

<p>研究了一下还是有收获的</p><p>(SETQ LIST (VL-DIRECTORY-FILES BB "*.txt")) </p><p>(foreach n list (VL-FILE-COPY (STRCAT BB n) (STRCAT "D:\\CAD二次开发\\" n)))</p><p>&nbsp;</p>

我爱lisp 发表于 2014-4-18 08:17:18

foreach 也算是lisp精髓函数之一了，可是还没有敢用过
页: [1]
查看完整版本: (vl-file-copy)如何使用“通配符”