请教怎么打开DWG文件的上一级文件夹下的子文件夹(有点绕有图示意)

hooboxu

(defun c:dk () (prinC "打开当前图档所在的文件夹")
  (if (= (getvar "dwgtitled") 0)
    (alert "请先保存文件")
    (startapp (strcat "explorer /select, " (getvar "dwgprefix") (getvar "dwgname") ", /e"))
  ) (princ))

这是现在用的打开当前的文件LISP(也是明经淘的)
麻烦老大们出手一下

muwind

方案1 获取当前目录str ，从str尾巴开始 查到str的第一个“\“ 然后 再获取 这个"\"之前的字符串。再组合心得文件夹“04.pdf“
方案2 获取当前目录str ，按“\”分割为表，去除最后一个元素，再转变为str 加上“04.pdf“

hooboxu

muwind 发表于 2022-11-9 21:47
方案1 获取当前目录str ，从str尾巴开始 查到str的第一个“\“ 然后 再获取 这个"\"之前的字符串。再组合心 ...

感谢指导

hooboxu

(DEFUN C:dk ()
(vlax-invoke
  (vlax-create-object "Shell.Application")
  'open
  "G:\\BaiduYunDownload\\C"
)
)

hooboxu

(command ".Shell" "explorer.exe \042G:\\BaiduYunDownload\\C\042")

hooboxu

;;这是文件目录;;D:\工作目录-xuhb\2022年项目\2022.09.15XXXXX办公\1_Current_工作进程图纸\01.CAD\01.平面图
(defun c:pdf (/ s a ab ac)
  (setq a (getvar "dwgprefix")) ;_取得当前文档路径
  (setq ab "01.CAD")
  (setq ac "04.PDF")
  (setq nPos(vl-string-search ab a))
  (setq XPath (strcat (substr a 1 nPos) ac));保留前面
  (vl-load-com)
  (setq s (vlax-create-object "shell.application"))
  (vlax-invoke s 'open XPath)
  (vlax-release-object s)
(prinC "打开项目PDF文件夹")
(princ))



在论坛里搜了个遍，终于拼出来一个。感谢muwind思路

hooboxu

已经解决了，感谢