再请教一个问题，关于文件路径！！

windfly

如何在CAD得到自己创建的一个文件的路径？？


任何目录先都希望能达到这个效果。

meflying

(setq fname (findfile filename))
再调用如下的函数，——摘于本站实用函数
(defun JustPath(cFileName / bsLoc)
(setq bsLoc (rat "\\" cfileName))
(if(> bsLoc 0)
(substr cFilename 1 (1- bsLoc))
""
) ;_ end of if
) ;_ end of defun

注：函数中所引用未知函数，可在本站实用函数中查到

王咣生

你想以什么方式得到文件路径?想达到什么效果?

windfly

我想用编程创建一个文件，

然后得到这个文件的路径

windfly

斑竹的函数我看不懂，能不能讲解一下

meflying

使用findfile后，可得出创建的文件的全路径（包括文件名）了，在用函数将后面的文件名删掉，即得出路径了

王咣生

你是用lisp程序创建文件吗?还是用其它程序创建？
如果不能定位该文件位置,只有findfile函数搜索该文件,得到文件路径了
下面的函数是否对你有用?
函数fnsplitl:
  (fnsplitl "C:\\Program Files\\ACAD2000\\111.dwg")返回
  ("C:\\Program Files\\ACAD2000\\" "111" ".dwg")
函数
  ;;
  ;;  Find dwg name from path name.
  ;;
  (defun parse_path( / a b c)
    (setq a 1)
    (while ( <= a (strlen path_name))
      (if (is_lead_byte(ascii (substr path_name a 1)))
        (progn
          (setq a (1+ a))
        )
        (progn
          (if (member (substr path_name a 1) '("/" "\\" ":"))
            (setq b a)
          )
          (if (member (substr path_name a 1) '("."))
            (setq c a)
          )
        )
      )
      (setq a (1+ a))
    )
    ;; Remove path
    (if b
      (setq blk_name (strcase (substr path_name (1+ b))))
      (setq blk_name (strcase path_name))
    )
    ;; Remove extension (the last period and the letters following it).
    (if (and c blk_name path_name)
      (progn
        ;; calculate c with respect to the blk_name rather than path_name.
        (setq c (- c (- (strlen path_name) (strlen blk_name))))
        (setq blk_name (strcase (substr blk_name 1 (- c 1))))
      )
    )
  );_defun

调用(parse_path "C:\\Program Files\\ACAD2000\\111.dwg")返回
        "111"

windfly

谢谢老王，我好好试一下你的程序再看看