求 获得当前文档目录的上级目录

tranney

有高手在么？
能不能帮我处理个问题呢
经常修改图纸，想按时间建立文件夹，自己改的有点问题，只能建立在打开文件的同级目录里面，
想修改成建立在当前文档的上级目录中，请大神们不吝赐教。
比如
D:\tangent\TwtT20V3\sys18x64\下的dwg文件
运行程序后就能在
D:\tangent\TwtT20V3\ 下建立个时间文件夹
我的代码如下，欢迎修改
(defun c:xrq ( / path)
(setq path (getvar "dwgprefix"))
(setq date (menucmd "M=$(edtime,$(getvar,date),MO.DD)")) ;[YY年MO月DD日][HH-MM-SS]
(vl-mkdir (strcat path "\\"date))
(princ (strcat "\n  文件夹的路径是："path))
(princ)
)

Andyhon

(setq DwgDir "D:\\tangent\\TwtT20V3\\sys18x64\\")

(split DwgDir "\\")
===>
("D:" "tangent" "TwtT20V3" "sys18x64" "")

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

http://www.cadtutor.net/forum/sh ... -Based-on-Delimiter

2. 
   
3. ;; Usage: (split (getenv "ACADPrefix") ";")
   
4. (defun split (sExpression sDelimiter / len val sList)
   
5.   ; Get the length of the first item from the expression based
   
6.   ; on delimiter position
   
7.   (setq len (vl-string-position (ascii sDelimiter) sExpression))
   
8. 
   
9.   ; Loop until there are no more instances of the delimiter
   
10.   ; in the expression
    
11.   (while (numberp len)
    
12.     ; Get the item from the expression
    
13.     (setq val (substr sExpression 1 len))
    
14. 
    
15.     ; Append the item to the list
    
16.     (setq sList (cons val sList))
    
17. 
    
18.     ; Get the remaining part of the expression
    
19.     (setq sExpression (substr sExpression (+ 2 len)))
    
20. 
    
21.     ; Get the length of the next item from the string based
    
22.     ; on delimiter position
    
23.     (setq len (vl-string-position (ascii sDelimiter) sExpression))
    
24.   )
    
25. 
    
26.   ; Add the last value to the list
    
27.   (if (/= sExpression nil)
    
28.     (setq sList (cons sExpression sList))
    
29.   )
    
30. 
    
31.   ; Reverses the elements in the list and return the list
    
32.   (reverse sList)
    
33. )
    

<br /> ;; Usage: (split (getenv "ACADPrefix") ";")<br /> (defun split (sExpression sDelimiter / len val sList)<br />   ; Get the length of the first item from the expression based<br />   ; on delimiter position<br />   (setq len (vl-string-position (ascii sDelimiter) sExpression))<br /> <br />   ; Loop until there are no more instances of the delimiter<br />   ; in the expression<br />   (while (numberp len)<br />     ; Get the item from the expression<br />     (setq val (substr sExpression 1 len))<br /> <br />     ; Append the item to the list<br />     (setq sList (cons val sList))<br /> <br />     ; Get the remaining part of the expression<br />     (setq sExpression (substr sExpression (+ 2 len)))<br /> <br />     ; Get the length of the next item from the string based<br />     ; on delimiter position<br />     (setq len (vl-string-position (ascii sDelimiter) sExpression))<br />   )<br /> <br />   ; Add the last value to the list<br />   (if (/= sExpression nil)<br />     (setq sList (cons sExpression sList))<br />   )<br /> <br />   ; Reverses the elements in the list and return the list<br />   (reverse sList)<br /> )<br />

yaojing38

Andyhon 发表于 2017-8-29 18:15
(setq DwgDir "D:\\tangent\\TwtT20V3\\sys18x64\\")

(split DwgDir "\\")

谢谢！用上了