两个小问题：

mandala

1、要把一个字符串形式的文件名更名，最简便的方法是什么？如将“abc.dwg”变成“abc.plt”，当然abc是不确定的。对了，还只能用alisp来实现，不能用(vl-string-subst ）。

2、有没有用以代替(vl-file-copy ) 的alisp函数？将一个文件拷贝到另一个地方……

出于某些原因，只能在cad14下运行以上两个函数，所以不能用vlisp，而且也不能用vlisp for cad14或doslib14。

fsxm

都啥年代了,还抱着alisp不放干嘛呢？

Andyhon

试试 DosLib 吧
http://www.google.com/search?q=%22DosLib14.arx

mandala

fsxm 发表于 2011-9-15 16:57
都啥年代了,还抱着alisp不放干嘛呢？

当然是有苦难言喽。不然谁愿意去舍近求远呢。

caoyin

1.(defun C:TTT (/ FNAME EXTION INT CHAR)
(setq FNAME  "abc.dwg"
      EXTION "plt"
      INT    1
)
(while (not (setq LST (member CHAR '("." ""))))
  (setq CHAR (substr FNAME INT 1)
        INT  (1+ INT)
  )
)
(if (/= (length LST) 1)
  (strcat (substr FNAME 1 (1- INT)) EXTION)
)
)
2.AuotLISP的只能考虑调用DOS等外部程序，譬如命令SHELL等等

mandala

caoyin 发表于 2011-9-15 19:18
1.(defun C:TTT (/ FNAME EXTION INT CHAR)
(setq FNAME  "abc.dwg"
      EXTION "plt"

谢谢版主！对shell的用法还不是很清楚，是否可以这样写：
(defun c:test(/ file)
(setq file (strcat (getvar "dwgprefix")(getvar "dwgname")))
(command "shell" (strcat "copy" “ ” file  “ ” "d:\\"))
(princ)
)

================

mandala

caoyin 发表于 2011-9-15 19:18
1.(defun C:TTT (/ FNAME EXTION INT CHAR)
(setq FNAME  "abc.dwg"
      EXTION "plt"

顺便请教一下版主：为什么你的TTT里用的是(member char '("." “”))，而不直接是(member char '("."))呢？

caoyin

mandala 发表于 2011-9-15 21:06
顺便请教一下版主：为什么你的TTT里用的是(member char '("." “”))，而不直接是(member char '("."))呢 ...

1.表长度为1就没有必要用member了，直接=就好了。
2.如果没有""，当你提供的文件名中没有"."不就死循环了

mandala

caoyin 发表于 2011-9-16 00:55
1.表长度为1就没有必要用member了，直接=就好了。
2.如果没有""，当你提供的文件名中没有"."不就死循环了 ...

明白了，谢谢版主！

mandala

caoyin 发表于 2011-9-16 00:55
1.表长度为1就没有必要用member了，直接=就好了。
2.如果没有""，当你提供的文件名中没有"."不就死循环 ...

再请教一下版主：
(command "shell" (strcat "copy" “ ” file  “ ” "d:\\"))
这个命令似乎永远是返回nil？能否通过返回来判断这个拷贝有没有成功呢？