ㄘ丶转裑ㄧ灬 发表于 2015-12-4 17:39:17

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


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

819534890 发表于 2015-12-4 17:57:11

本帖最后由 819534890 于 2015-12-4 18:02 编辑

theisland 发表于 2015-12-4 17:28 static/image/common/back.gif
感谢你献出的宝贵时间，不过这程序跟我在论坛里找到的一个一样，会反复打开同一个文件夹，导致任务栏出现 ...
把"/e" 去掉就不会出现多个文件夹了：

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

jltx123456 发表于 2015-12-4 18:50:09

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

这个问题很好解决啊
(startapp "explorer" (getvar "dwgprefix"))

theisland 发表于 2015-12-4 19:33:45

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

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


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

theisland 发表于 2015-12-4 19:34:56

jltx123456 发表于 2015-12-4 18:50 static/image/common/back.gif
这个问题很好解决啊

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

lincctw_ccl 发表于 2015-12-9 16:55:05

;;開檔回歸圖檔目錄
(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 為檔案總管

海盗曹 发表于 2018-3-26 14:50:46

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

注册 发表于 2018-3-27 09:16:07

路过，感谢分享~

freehand8008 发表于 2018-3-27 16:38:53

老铁漂亮依旧！

依然小小鸟 发表于 2018-12-5 12:58:18

不错的帖子
页: 1 [2] 3
查看完整版本: 求打开当前图纸所在文件夹