用Lsp打开文件

lcy_8031

我想自己写一个LISP程序，设置好路径，只要输入文件名就在CAD中打开！现求助大家的帮忙！

sunny_8848

nonsmall 发表于 2008-11-27 14:46
(defun cp()(setq dwg (getstring "文件名:"))(setq path "D:\\temp\\");你自己定义路径吧(if (and (/= " ...

请教，2010版本怎么打开指定文件后还另外新建了一个文件？

lcy_8031

有没有人可以帮帮我呀？

lcy_8031

Open？Getfiled？

phoenixdjq

(defun c:TEST()
(startapp "notepad" "D:/TEST.lsp")
)

打开d盘test.lsp

lcy_8031

可是我是想在CAD中打开一个DWG文件啊！

16335181

(setvar "filedia" 0)

用OPEN 命令 输入xxx.dwg 就能直接打开搜索路径下文件了

lcy_8031

我是这样写的：

(defun C:MapManage()
  (setvar "Filedia" 0)
  (Command "_Open")

）

可是没反应啊，也没提示输入文件名！

nonsmall

(defun c:op()

(setq dwg (getstring "文件名:"))

(setq path "D:\\temp\\");你自己定义路径吧

(if (and (/= "" dwg)(findfile (strcat path dwg ".dwg")))

(vla-open (vla-get-documents(vlax-get-acad-object)) (strcat path dwg ".dwg"))

(print "文件不存在")

)

)

16335181

Filedia  系统变量设置为0

之后

直接输入OPEN 命令就可以了啊    

不过遇到缺这缺那的图会比较郁闷

想恢复以前OPEN  是弹出框的那种  把变量设置成1

lcy_8031

多谢！