打开当前编辑文件所在文件夹

TGSJ

• （初学，，请高手指导，，打开当前编辑文件所在文件夹，，哪里不对？）
• (setq NHYU(getvar "DWGPREFIX"))
• (command "shell" "start (NHYU)")
  

ㄘ丶转裑ㄧ灬

1. (defun c:HT_904 ()
   
2.   (princ "打开当前图档所在的文件夹")
   
3.   (if (= (getvar "DWGTITLED") 0)
   
4.     (alert "请先保存文件")
   
5.     (startapp (strcat "explorer /select, "
   
6.           (getvar "dwgprefix")
   
7.           (getvar "dwgname")
   
8.           ", /e"
   
9.         )
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )

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

TGSJ

不知道哪里错误了？

gaomingabc456

(setq NHYU(getvar "DWGPREFIX"))
(startapp "EXPLORER.EXE" "MHYU")

TGSJ

gaomingabc456 发表于 2021-6-9 08:30
(setq NHYU(getvar "DWGPREFIX"))
(startapp "EXPLORER.EXE" "MHYU")

还是没行，谢谢你

TGSJ

ㄘ丶转裑ㄧ灬 发表于 2021-6-9 08:54

多谢，，高手指点，非常感谢

断面CAD

加油！

xiangganglv

(defun c:Tt ()
??(startapp (strcat "explorer /e,\"" (getvar 'dwgprefix) "\""))
??(princ)
)

tigcat

(defun c:fl();将“fl”更改为您要使用的任何命令
(startapp "explorer"(getvar "dwgprefix"))
(PRINC)
)