社区 › AutoLISP/Visual LISP 编程技术 › 用Lsp打开文件

lcy_8031 发表于 2008-11-27 11:47:00

用Lsp打开文件

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

sunny_8848 发表于 2020-5-30 09:59:15

nonsmall 发表于 2008-11-27 14:46
(defun cp()(setq dwg (getstring "文件名:"))(setq path "D:\\temp\\");你自己定义路径吧(if (and (/= " ...
请教，2010版本怎么打开指定文件后还另外新建了一个文件？

lcy_8031 发表于 2008-11-27 11:50:00

有没有人可以帮帮我呀？

lcy_8031 发表于 2008-11-27 11:57:00

Open？Getfiled？

phoenixdjq 发表于 2008-11-27 12:30:00

<p>(defun c:TEST()<br/>(startapp "notepad" "D:/TEST.lsp")<br/>)</p><p></p><p>打开d盘test.lsp </p>

lcy_8031 发表于 2008-11-27 12:42:00

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

16335181 发表于 2008-11-27 13:31:00

<p>(setvar "filedia" 0)</p><p>用OPEN 命令 输入xxx.dwg 就能直接打开搜索路径下文件了 </p>

lcy_8031 发表于 2008-11-27 14:14:00

<p>我是这样写的：</p><p>(defun C:MapManage()<br/>&nbsp; (setvar "Filedia" 0)<br/>&nbsp; (Command "_Open")</p><p>）</p><p>可是没反应啊，也没提示输入文件名！</p>

nonsmall 发表于 2008-11-27 14:46:00

<p>(defun c:op()</p><p>(setq dwg (getstring "文件名:"))</p><p>(setq path "D:\\temp\\");你自己定义路径吧</p><p>(if (and (/= "" dwg)(findfile (strcat path dwg ".dwg")))</p><p>(vla-open (vla-get-documents(vlax-get-acad-object)) (strcat path dwg ".dwg"))</p><p>(print "文件不存在")</p><p>)</p><p>)</p>

16335181 发表于 2008-11-27 14:50:00

<p>Filedia&nbsp; 系统变量设置为0</p><p>之后</p><p>直接输入OPEN 命令就可以了啊&nbsp;&nbsp;&nbsp;&nbsp; </p><p>不过遇到缺这缺那的图会比较郁闷</p><p>想恢复以前OPEN&nbsp; 是弹出框的那种&nbsp; 把变量设置成1</p>

lcy_8031 发表于 2008-11-27 15:15:00

<p>多谢！</p>

查看完整版本: 用Lsp打开文件