明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3214|回复: 13

如何用 lsp(和Ctrl+o的效果) 打开指定的文件夹

  [复制链接]
发表于 2011-6-24 23:03:47 | 显示全部楼层 |阅读模式
本帖最后由 669423907 于 2011-6-26 20:39 编辑

我在工作中要经常打开不同目录下的文件夹,能不能用 lsp 程序(调用open)实现呢?
如:

E:\=图纸\=夹具
E:\=图纸\=其他
C:\Documents and Settings\Administrator\桌面\临时
网上邻居的:\\Jishu_01\技术部正式文档

哪位高手帮帮忙,不胜感激啊!
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2011-6-24 23:59:20 | 显示全部楼层
方法很多种:如
(startapp "explorer.exe" "E:\\=图纸\\=夹具")
 楼主| 发表于 2011-6-25 01:02:27 | 显示全部楼层
本帖最后由 669423907 于 2011-6-25 01:05 编辑

(defun c:proe()
(startapp "explorer.exe" "E:\\=图纸\\=夹具")
)

我是 lsp 个菜鸟,不会改啊!还望大师指教!
 楼主| 发表于 2011-6-25 13:34:43 | 显示全部楼层
自己顶一下
发表于 2011-6-25 14:44:40 | 显示全部楼层
本帖最后由 simon8001 于 2011-6-25 14:48 编辑

你查下资料就知道了,“\”在用“C:\”里的文件必须用“\\”或者“/” 形如:“C:\\”或者“C:/”
如果是调用里面的一个文件,可按如下方式:
看是否对你哟帮助!!

  1. (command "insert" "E:\\阶段性工作(进行中)\\v0.8\\AD\\B\\QJ.dwg" sa-pt 1 1 0)
  2. ;或者
  3. (setq o-tm "E:\\阶段性工作(进行中)\\v0.8\\AD\\B\\QJ.txt")
  4. (setq f-tj (open o-tm "r"));
 楼主| 发表于 2011-6-25 20:41:15 | 显示全部楼层
回复 simon8001 的帖子

不会啊!我只想要打开文件夹,不是打开文件。
希望你再次帮忙啊!
谢谢!
发表于 2011-6-25 21:26:50 | 显示全部楼层
二楼就是用WINDOWS的资源管理器打开指定的文件夹
 楼主| 发表于 2011-6-25 21:42:37 | 显示全部楼层
回复 ZZXXQQ 的帖子

非常 if 和 ZZXXQQ 版主。程序可以了。
只是不明白,文件夹名不能带 “=” 符号?
“是用WINDOWS的资源管理器打开”,那就意味着可以打开好多程序啦!
是在是非常感谢大师们的热心帮助!
 楼主| 发表于 2011-6-26 12:27:00 | 显示全部楼层
回复 ZZXXQQ 的帖子

用WINDOWS的资源管理器打开文件夹后不能自动关闭。请问版主,怎样以 open 的方式打开呢?
发表于 2011-6-26 13:30:10 | 显示全部楼层
也许外部程序DOSlib可以帮助你:
dos_getdir
显示Windows"浏览文件夹"对话框. dos_getdir也有能力创建文件夹.


--------------------------------------------------------------------------------

语法
(dos_getdir [title [path [message [T]]]])

参数
title

对话框标题.



path

指定一个存在的目录. 如果指定nil则使用当前目录.



message

可选消息.



T

显示"新建文件夹"按钮.

返回
如果成功, 返回用户选择目录的完整路径.

nil 取消或出错时.

示例
Command: (dos_getdir "Browse for folder" "C:\\Program Files\\AutoCAD 2002\\" "Select a folder to use" T)

"C:\\Program Files\\AutoCAD 2002\\Support\\"

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-5-26 05:17 , Processed in 0.187665 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表