lisp怎么打开文件夹

kcad2010 · 发表于 2013-7-30 23:19:13

提示: 作者被禁止或删除内容自动屏蔽

Lispboy · 发表于 2013-7-30 23:56:46

命令: !getfiled
#<SUBR @1e206ab8 GETFILED>

Free-Lancer · 发表于 2013-7-31 04:37:32

startapp explore dir来自: Android客户端

kcad2010 · 发表于 2013-7-31 08:02:24

提示: 作者被禁止或删除内容自动屏蔽

1993063 · 发表于 2013-7-31 08:13:18

(startapp "explorer" "C:\\")

1993063 · 发表于 2013-7-31 08:19:07

(defun opendir (dir) (startapp "explorer" dir)(princ))
(defun c:tt nil (opendir "c:\\"))

Lisphk · 发表于 2013-7-31 08:26:27

kcad2010 发表于 2013-7-31 08:02
(startapp "explore" "C:\\") 不行啊。我是要打开文件夹。

getfiled 可以啊，你没试吗

(setq dfil (getfiled "Directory Listing" "" "" 2))

1993063 · 发表于 2013-7-31 08:28:02

(defun opendir (dir) (startapp "explorer" dir)(princ))
;;; (opendir (findfile"SUPPORT"))
;;;(opendir 路径)

kcad2010 · 发表于 2013-7-31 20:27:32

提示: 作者被禁止或删除内容自动屏蔽

Highflybird · 发表于 2013-8-1 16:48:04

本帖最后由 Highflybird 于 2013-8-1 16:52 编辑

来个高级点的，运行命令:ttt。这段代码可以采用windows 自身的文件夹选择对话框来选择文件夹。可以返回路径。
[pcode=lisp,true]

  ;;; 由文件夹对象获取其路径
  (defun GetPath (folder / file path title parent)
(if folder
   (if (setq file (vlax-invoke (vlax-invoke folder 'items) 'item 0))
      (strcat (vl-filename-directory (vlax-get file 'path)) "\\")
      (progn
      (setq title (vlax-get folder 'title))
      (setq path (strcat title "\\"))
      (setq parent folder)
      (while
         (and
            (setq parent (vlax-get parent 'PARENTFOLDER))
            (setq title  (vlax-get parent 'title))
            (not (wcmatch title "*:*"  ))
         )
         (setq path (strcat title "\\" path))
      )
      (setq title (substr title (- (strlen title) 2) 2))
      (setq path  (strcat title "\\" path))
      )
   )
)
  )

  ;;;通过文件夹选择对话框获取文件夹路径
  (defun c:ttt (/ *SHELL folder path)
(setq *SHELL (vlax-create-object "Shell.Application"))
(setq folder (vlax-invoke *SHELL 'BrowseForFolder  0 "我的电脑" 63 0))
(if (setq path (GetPath folder))
   (princ (strcat "\n你获的目录是:" path))
)
(vlax-release-object *SHELL)
(princ)
  )

[/pcode]

sicky111 · 发表于 2013-8-2 16:20:24

高大师出手，就是不同凡响。

jyzas · 发表于 2013-8-11 09:10:10

有高手相助就是不一样;P

ucuc2003 · 发表于 2013-8-11 10:03:33

本帖最后由 ucuc2003 于 2013-8-11 10:04 编辑

我不知道了
(defun c:ttt ()
(if (= (getvar "dwgtitled") 0)
(alert "请先保存文件")
(startapp (strcat "explorer /select, "
            (getvar "dwgprefix")
            (getvar "dwgname")
            ", /e"
      )
)
  )
  (princ)
)

清风明月10 · 发表于 2013-8-11 13:28:57

谢谢各位楼主的分享！很有意思的代码，收藏备用。

1993063 · 发表于 2013-8-11 16:43:58

Highflybird 发表于 2013-8-1 16:48
来个高级点的，运行命令:ttt。这段代码可以采用windows 自身的文件夹选择对话框来选择文件夹。可以返回路径 ...

老大,这个函数有个bug,就是在运行命令:TTT后,如果没有点在这个对话框上,鼠标都看不见了哦!不看状态栏,还以为电脑死机了

账号		自动登录	找回密码
密码			立即注册

kcad2010 kcad2010 当前离线 UID 677304 积分 391 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-6-7 最后登录 1970-1-1 窥视卡雷达卡已领礼包: 182个财富等级: 日进斗金	发表于 2013-7-30 23:19:13 \| 显示全部楼层 \|阅读模式【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报提升卡置顶卡沉默卡变色卡千斤顶

kcad2010 kcad2010 当前离线 UID 677304 积分 391 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-6-7 最后登录 1970-1-1 窥视卡雷达卡已领礼包: 182个财富等级: 日进斗金	楼主\| 发表于 2013-7-31 08:02:24 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

kcad2010 kcad2010 当前离线 UID 677304 积分 391 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-6-7 最后登录 1970-1-1 窥视卡雷达卡已领礼包: 182个财富等级: 日进斗金	楼主\| 发表于 2013-7-31 20:27:32 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[求助] lisp怎么打开文件夹

点评

浏览过的版块