qyming 发表于 2014-8-14 20:02:52

菜鸟求助

(setq dwglst("q.dwg""w.dwg" "d.dwg" …))

怎么才能生成去掉dwg后缀的表

ZZXXQQ 发表于 2014-8-14 20:21:47

(setq dwglst (mpcar '(lambda (a) (strcat a 1 (- (length a) 2)) dwglst))

77077 发表于 2014-8-14 21:16:32

本帖最后由 77077 于 2014-8-14 21:20 编辑

楼主兄弟,你自己都已经说出答案了,还来求助?
发一个会出错的迷惑下楼主,嘿嘿~
(mapcar '(lambda(x)(vl-string-subst "" ".dwg" x)) '("q.dwg""w.dwg" "d.dwg"))
==>("q" "w" "d")
(mapcar '(lambda(x)(vl-string-subst "" ".dwg" x)) '("123.dwg""456.dwg" "789.dwg"))
==>("123" "456" "789")

xyp1964 发表于 2014-8-14 21:22:41

(mapcar 'vl-filename-base dwglst)

77077 发表于 2014-8-14 21:23:09

我的思路是,用空数据替换掉.wdg也算是删除.wdg吧!

qyming 发表于 2014-8-14 22:24:41

这么多好心人，谢了各位
页: [1]
查看完整版本: 菜鸟求助