求打开当前图纸所在文件夹

ㄘ丶转裑ㄧ灬

theisland 发表于 2015-12-4 17:28
感谢你献出的宝贵时间，不过这程序跟我在论坛里找到的一个一样，会反复打开同一个文件夹，导致任务栏出现 ...

重复文件夹确实没找到好办法，
如果只是嫌任务栏选取麻烦的话，可以用Clover，如截图

819534890

theisland 发表于 2015-12-4 17:28
感谢你献出的宝贵时间，不过这程序跟我在论坛里找到的一个一样，会反复打开同一个文件夹，导致任务栏出现 ...

把"/e" 去掉就不会出现多个文件夹了：

(defun c:T1 () ;不会出现多个窗口
  (startapp (strcat "explorer ,\"" (getvar 'dwgprefix) "\""))
  (princ)
)

jltx123456

theisland 发表于 2015-12-4 17:28
感谢你献出的宝贵时间，不过这程序跟我在论坛里找到的一个一样，会反复打开同一个文件夹，导致任务栏出现 ...

这个问题很好解决啊

1. (startapp "explorer" (getvar "dwgprefix"))

(startapp "explorer" (getvar "dwgprefix"))

theisland

819534890 发表于 2015-12-4 17:57
把"/e" 去掉就不会出现多个文件夹了：

(defun c:T1 () ;不会出现多个窗口

非常感谢！不知道是不是win7系统的缘故，还是不行唉，还是会重复打开文件夹

theisland

jltx123456 发表于 2015-12-4 18:50
这个问题很好解决啊

管理员大人，文件夹重复问题还是没有解决，是不是因为win7系统的原因？我是CAD2010+win7系统

lincctw_ccl

;;開檔回歸圖檔目錄
  (defun C:QO (/ dwg)
  (setq dwg (getfiled "Select drawing" (getvar "DWGPREFIX") "dwg" 0))
  (if dwg
(vla-activate
(vla-open(vla-get-documents (vlax-get-acad-object))dwg)
)
  )
  (princ)
(princ "\nQOPEN QO1 ")
)

;;開啟資料夾
(defun c:QF(/ )
(setvar "cmdecho" 0)
(startapp "explorer.exe" (getvar "dwgprefix"))
(setvar "cmdecho" 1)
(princ "\nQOPEN QF ")
(princ)
)

共2個指令
QO 為開現在所開DWG檔同一個資夾
QF 為檔案總管

海盗曹

多谢jltx123456，学习了，正好需要

注册

路过，感谢分享~

freehand8008

老铁漂亮依旧！

依然小小鸟

不错的帖子