用AutoLisp打开当前目录下的文件，当前目录的路径，用代码如何写
<p>我这样写不对：<br/>(setq wr(open app.path + "<a href="file://\\fromlsp.txt">\\fromlsp.txt</a>" "w"))</p><p>请问，如何写。谢谢！<br/></p> <p>要看什么文件！</p><p>打开当前目录(startapp "explorer.exe" (getvar "dwgprefix"))</p> 学习一下~~~ <p>来一个</p><p><font face="Verdana">;;;;-------------<br/>;;插入文档路径<br/>(defun C:KL()<br/>(setq pt0 (getpoint "\n请指定插入位置点 :")) <br/> ;获取当前文档路径<br/> ;获得support目录<br/> (setq path (findfile "base.dcl"))<br/> (setq path (substr path 1 (- (strlen path) 8)))<br/> ;mnl文件名<br/> (setq mnlpath (getvar "menuname"))<br/> ;当前图纸文件名<br/> (setq nowdwg (getvar "dwgname"))<br/> ;当前图纸路径<br/> (setq wjqm (findfile nowdwg))<br/> ;当前文档名<br/> (setq date1 (getvar "dwgname"))<br/> ;当前图纸所在目录</font></p>
<p><font face="Verdana"> (setq date0 (substr wjqm 1 (- (strlen wjqm) (- (strlen nowdwg) (strlen date1)))))</font></p>
<p><font face="Verdana"> (setq date1 (getvar "dwgname"));文档名ok<br/> ;(setq ss (progn date0 date1))<br/> ;(if ss<br/> (command "-text" pt0 "" 0 wjqm "")<br/> <br/>(princ)<br/>)<br/>;;;;;****************----***************<br/>;;;;-------------</font></p> (open filename mode) <p>你这样肯定不对(setq wr(open app.path + "<a href="file://fromlsp.txt/" target="_blank"><font color="#000099">\\fromlsp.txt</font></a>" "w"))</p>
<p> </p>
<p>应该是：(setq wr(open "C:\\FROMLSP.TXT" "w")) ;;假设在C盘根目录下</p>
<p> </p>
<p>如果路径是个变量，就你上面的APP.PATH的话，要这样写：</p>
<p> </p>
<p>(setq wr(open (strcat app.path "<a href="file://\\fromlsp.txt" target="_blank">\\fromlsp.txt</a>") "w"))</p>
<p> </p>
<p> </p>
<p>这样说还不明白的话，无奈了。。。多看书吧！</p> <font face="Verdana">(setq txtyuan (strcat (GETVAR "DWGPREFIX") (VL-FILENAME-BASE (GETVAR "dwgname"))".txt"))</font> 命令栏输入：
显示当前文件路径：
(getvar "DWGPREFIX")
打开文件路径目录：
(startapp "explorer.exe" (getvar "dwgprefix"))
页:
[1]