用AutoLisp打开当前目录下的文件，当前目录的路径，用代码如何写

yanghao1

我这样写不对：
(setq wr(open app.path + "\\fromlsp.txt" "w"))

请问，如何写。谢谢！

caoyin

要看什么文件！

打开当前目录(startapp "explorer.exe" (getvar "dwgprefix"))

neoangelo

学习一下~~~

AMTONNY

来一个

;;;;-------------
;;插入文档路径
(defun C:KL()
(setq pt0 (getpoint "\n请指定插入位置点 :"))
 ;获取当前文档路径
  ;获得support目录
    (setq path (findfile "base.dcl"))
    (setq path (substr path 1 (- (strlen path) 8)))
  ;mnl文件名
    (setq mnlpath (getvar "menuname"))
  ;当前图纸文件名
    (setq nowdwg (getvar "dwgname"))
  ;当前图纸路径
    (setq wjqm (findfile nowdwg))
  ;当前文档名
    (setq date1 (getvar "dwgname"))
  ;当前图纸所在目录

    (setq  date0  (substr wjqm 1 (- (strlen wjqm) (- (strlen nowdwg) (strlen date1)))))

    (setq date1 (getvar "dwgname"));文档名ok
  ;(setq ss (progn date0  date1))
   ;(if ss
   (command "-text" pt0 "" 0 wjqm "")
 
(princ)
)
;;;;;****************----***************
;;;;-------------

aicr317

(open filename mode)

aicr317

你这样肯定不对(setq wr(open app.path + "\\fromlsp.txt" "w"))

 

应该是：(setq wr(open "C:\\FROMLSP.TXT" "w"))   ;;假设在C盘根目录下

 

如果路径是个变量，就你上面的APP.PATH的话，要这样写：

 

(setq wr(open (strcat app.path "\\fromlsp.txt") "w"))

 

 

这样说还不明白的话，无奈了。。。多看书吧！

zkyzzy

(setq txtyuan (strcat (GETVAR "DWGPREFIX") (VL-FILENAME-BASE (GETVAR "dwgname"))".txt"))

zhangrunze

命令栏输入：
显示当前文件路径：
(getvar "DWGPREFIX")
打开文件路径目录：
(startapp "explorer.exe" (getvar "dwgprefix"))