求助：怎么把getvar "DWGNAME"的xxx.dwg中的.dwg删掉？

iamhuangjinming · 发表于 2016-10-18 09:40:28

(defun c:facez()

(setq ss (getvar "DWGNAME"))

(alert ss))

出来的内容:建筑图.dwg。怎么只留下“建筑图”呢

vectra · 发表于 2016-10-18 10:05:41

(vl-filename-base (getvar "DWGNAME"))

iamhuangjinming · 发表于 2016-10-18 11:46:58

xufansw · 发表于 2016-10-18 16:40:01

(defun c:facez()
  (setq ss(vl-string-right-trim ".DWG" (getvar "dwgname")))
  (setq ss(vl-string-right-trim ".dwg" (getvar "dwgname")))
  (alert ss)
)

elitefish · 发表于 2016-10-19 08:46:53

(vl-filename-base (getvar "DWGNAME"))

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

[提问] 求助：怎么把getvar "DWGNAME"的xxx.dwg中的.dwg删掉？