菜鸟求助

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

这么多好心人，谢了各位

账号		自动登录	找回密码
密码			注册

[已解答] 菜鸟求助

点评