[LISP程序]：由全路径和文件名返回不带扩展名的文件名

jtybzl

各位帮忙调试下列程序，为什么运行不正确，请帮忙修改或调试，谢谢！

  

;;;==================================================================
;;; (JustStem cFileName)
;;;                由全路径和文件名返回不带扩展名的文件名。
;;;------------------------------------------------------------------
;;; 参数:
;;;                cFileName                str 要检查的完整路径
;;;------------------------------------------------------------------
;;;        返回:
;;;                [STR]       
;;;                示例:         (setq a "C:\\MyFolder\\MyFile.txt")
;;;                                        (JustStem a) ; 返回 "MyFile"
;;;------------------------------------------------------------------
(defun JustStem        (cFileName / fName DotLoc)
        (setq fName (justFName cFileName))
        (setq DotLoc (rat "." fName))
        (if        (> DotLoc 0)
                (substr fName 1 (1- DotLoc))
                fName
        ) ;_ end of if
) ;_ end of defun

cy956

去看看doslib的帮助或者vl的帮助，找找看什么现成的。

函数中的rat是什么？试试strcat

jtybzl

我不想用DOSLIB，能否请CY956帮忙把程序修改一下，然后实现此功能？

YueFeng

RAT肯定是另外一个程序。你的程序没有贴全或是也有API的存在。

杨少

最初由 YueFeng 发布
[B]RAT肯定是另外一个程序。你的程序没有贴全或是也有API的存在。 [/B]

还有个 "justFName" 也不知是什么东东?

杨少

;;;FOR R14
;;;usage: (mm "c:\\file.txt")
;;;usage: (mm "c:\\folder")
(defun MM (A / N1 N2 N3 AA)
  (defun DO_IT (BB /)
    (setq N2 BB)
    (while (/= "\\" (substr A N2 1))
      (setq N2 (1- N2))
    )
    (setq AA (substr A (+ N2 1) (- BB N2)))
  )
  (setq N1 (strlen A))
  (setq N3 N1)
  (while (and (/= N1 0) (/= "." (substr A N1 1)))
    (setq N1 (1- N1))
  )
  (if (/= N1 0)
    (DO_IT (- N1 1))
    (DO_IT N3)
  )
)

XDSoft

XDRX_API里面的函数XDRX_SPLPATH可以方便的做，示例：

命令: (xdrx_splpath "c:\\program files\\acad.exe")
("c:" "\\program files\\" "acad" ".exe")

剩下，需要哪个，用STRCAT连接起来就可以了。

XDRX_API里面有函数600多个，面向应用。可以说是现在世界上最好的几个API之一。

XDRX_API中的字符串处理函数，实现了MFC库中所有的功能最强的字符串处理，大家可以看看API的帮助手册。

使用XDRX_API编写LISP程序是件惬意的工作。

jtybzl

您的API我到现在还不太了解，是个很大的函数库吧？都是用什么工具编写的？好象都是ARX程序吧，我现在只会点lisp开发语言，所以，我想尽量自己来开发一些东西，这样也好在老板面前展示一下自己的能力，至于其他开发方法，我以后是肯定要学的，但现在能力有限啊，连编个很小的程序都要到这里来让大家帮忙，我还要继续努力下去，以后麻烦大家的事多着呢，大家可别嫌我烦哦，这里真是个学习的好地方。除了周末，我基本每天都挂在这里。

XDSoft

最初由 jtybzl 发布
[B]您的API我到现在还不太了解，是个很大的函数库吧？都是用什么工具编写的？好象都是ARX程序吧，我现在只会点lisp开发语言，所以，我想尽量自己来开发一些东西，这样也好在老板面前展示一下自己的能力，至于其他开发方... [/B]

XDRX_API是用ARX语言开发的供LISP程序员使用的面向应用的函数库，你不需要ARX知识，就如你写普通的LISP程序一样，调用ADESK提供的LISP函数，你只要给函数的参数，函数就会有返回值给你一样。

API里面有详细的CHM帮助手册，里面可以查找每个函数的用法。

用它，就当是ACAD自身的LISP语言的扩展，你还需要自己写LISP代码，只是使用API，可以大大节省你开发的时间，不影响你在老板面前暂时自己的能力。

jtybzl

好，我明白了，晓东版主。在本主页上可以找到XDAX及API吧？

XDSoft

最初由 jtybzl 发布
[B]好，我明白了，晓东版主。在本主页上可以找到XDAX及API吧？ [/B]

网站的首页，下载中心更新的里面，就有630版本的下载链接。

安装“晓东工具箱”后，也会有。

以后有API方面的问题，请直接到“XDRX_API技术支持”论坛发贴吧。

jtybzl

好的，我就去下载

linyangxiaodong

(vl-filename-base  filename)  这个函数就能搞定啊