TGSJ 发表于 2021-6-9 00:06:03

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


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

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

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

TGSJ 发表于 2021-6-9 00:06:42

不知道哪里错误了？

gaomingabc456 发表于 2021-6-9 08:30:48

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

TGSJ 发表于 2021-6-9 09:07:20

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

还是没行，谢谢你

TGSJ 发表于 2021-6-9 12:48:27

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


多谢，，高手指点，{:1_1:}非常感谢

断面CAD 发表于 2021-6-9 18:47:52

加油！

xiangganglv 发表于 2021-6-10 10:42:11

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

tigcat 发表于 2021-6-13 16:56:50

(defun c:fl();将“fl”更改为您要使用的任何命令
(startapp "explorer"(getvar "dwgprefix"))
(PRINC)
)
页: [1]
查看完整版本: 打开当前编辑文件所在文件夹