请问如何得到相对路径里的字符串

glowz · 发表于 2012-3-4 21:03:35

想把参照的绝对路径改为相对路径，-xref "p" 发现".\filename.dwg"怎么都得不到
我的办法 (strcat "." "\\" "filename.dwg")得到 ".\\filename.dwg" 不能用，怎么得到个单斜杠的 ".\filename.dwg"？

Gu_xl · 发表于 2012-3-6 19:19:08

;;绝对路径改相对路径
(defun c:tt (/ EN ENL CODE ELIST BLKDEF PATH)
(cond ((not (setq en (car (entsel "\n选择参照块:")))))
((/= "INSERT" (cdr (assoc 0 (setq enl (entget en))))))
((= (logand (setq code
(cdr
(assoc
70
(setq
elist (entget (tblobjname "block" (cdr (assoc 2 enl)))
)
)
)
)
)
4
)
4
)
(setq blkdef (vlax-ename->vla-object (cdr (assoc 330 elist))))
(setq path (vla-get-path blkdef))
(setq path (vl-filename-base path))
(vla-put-path blkdef (strcat ".\\" path ".dwg"))
)
)
(princ)
)

;;绝对路径改相对路径 
(defun c:tt (/ EN ENL CODE ELIST BLKDEF PATH) 
  (cond        ((not (setq en (car (entsel "\n选择参照块:"))))) 
        ((/= "INSERT" (cdr (assoc 0 (setq enl (entget en)))))) 
        ((= (logand (setq code 
                           (cdr 
                             (assoc 
                               70 
                               (setq 
                                 elist (entget (tblobjname "block" (cdr (assoc 2 enl))) 
                                       ) 
                               ) 
                             ) 
                           ) 
                    ) 
                    4 
            ) 
            4 
         ) 
         (setq blkdef (vlax-ename->vla-object (cdr (assoc 330 elist)))) 
         (setq path (vla-get-path blkdef)) 
         (setq path (vl-filename-base path)) 
         (vla-put-path blkdef (strcat ".\\" path ".dwg")) 
        ) 
  ) 
  (princ) 
)

VBALISPER · 发表于 2012-3-4 21:59:41

能否用字符串截取函数去掉一个\呢?

glowz · 发表于 2012-3-5 10:32:57

试过了好像不行

glowz · 发表于 2012-3-5 10:34:17

没有搞过相对路径吗？

glowz · 发表于 2012-3-5 18:43:55

自己顶顶急需帮助

glowz · 发表于 2012-3-5 22:07:33

居然还是没有人知道吗？

glowz · 发表于 2012-3-6 16:34:33

各位高手，给点提示吧。。。[em0]

glowz · 发表于 2012-3-6 20:27:36

Gu_xl 版主你的眼神太帅了

，非常感谢。

puzb2001 · 发表于 2012-3-7 08:33:34

又长知识了，经常串门有好处的

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

请问如何得到相对路径里的字符串

相关帖子