教程这个文件怎么改

QUAN2518

LSP教程

写文件练习的文件后面该怎么修改才可以运行（在没这个文件时知道新建立一个文本文件保存数据）

Andyhon

(setq entype (cdr (assoc 0endata)))
==>
(setq entype (cdr (assoc 0 endata)))

QUAN2518

这里我该了但是还不能运行呢

好像写文件那个地方 变量设置吗操作数有问题。

我改过2楼的位置依然不能写出文件。

等带那个兄弟的高见

jaminth

修改好了，帮你加了一个＂自动打开＂的功能，希望对你有启发＾＿＾

2. (defun c:10test3()
3. ;以下文件由使用者选取
4. (setq ss (ssget))
5. (setq n 0)
6. (setq n_cir 0 n_line 0 n_arc 0)
7. (repeat (sslength ss)
8. (setq en (ssname ss n))
9. (setq endata(entget en))
10. (setq entype (cdr (assoc 0 endata)))
11. (cond  ((= entype "CIRCLE") (setq n_cir (1+ n_cir)))
12. ((= entype "LINE") (setq n_line(1+ n_line)))
13.   ((= entype "ARC") (setq n_arc(1+ n_arc)))
14. )
15. (setq n (1+ n))
16. )
17. (sub_write_data)  
18. (prin1)
19. )
20. (defun sub_write_data()
21. (setq dat_file (getfiled  "写文件练习"  "c:\\lsptools\\numtest1\"  "num"  1))
22. (setq ff (open dat_file "w"))
23. (write-line "对象类别  数量" ff)
24. (write-line (strcat "CIRCLE     " (itoa n_cir)) ff)
25. (write-line (strcat "LINE        " (itoa n_line)) ff)
26. (write-line (strcat "ARC        " (itoa n_arc)) ff)
27. (close ff)
28. (command "notepad" dat_file)
29. )
30. (prompt "<< 10TEST3>>对象数量统计写文件程序")
31. (prin1)

(defun c:10test3() ;以下文件由使用者选取 (setq ss (ssget)) (setq n 0) (setq n_cir 0 n_line 0 n_arc 0) (repeat (sslength ss) (setq en (ssname ss n)) (setq endata(entget en)) (setq entype (cdr (assoc 0 endata))) (cond  ((= entype "CIRCLE") (setq n_cir (1+ n_cir))) ((= entype "LINE") (setq n_line(1+ n_line)))   ((= entype "ARC") (setq n_arc(1+ n_arc))) ) (setq n (1+ n)) ) (sub_write_data)   (prin1) ) (defun sub_write_data() (setq dat_file (getfiled  "写文件练习"  "c:\\lsptools\\numtest1\"  "num"  1)) (setq ff (open dat_file "w")) (write-line "对象类别  数量" ff) (write-line (strcat "CIRCLE     " (itoa n_cir)) ff) (write-line (strcat "LINE        " (itoa n_line)) ff) (write-line (strcat "ARC        " (itoa n_arc)) ff) (close ff) (command "notepad" dat_file) ) (prompt "<< 10TEST3>>对象数量统计写文件程序") (prin1)

QUAN2518

谢谢先请教下

(setq dat_file (getfiled  "写文件练习"  "c:\\lsptools\\numtest\\"  "num"  1))

1 好像只能新建把， 设置多少可以在没有的时候新建 有的时候覆盖。

还有我想写到指定路径的指定文件内 如何写可以在（要求后台自动执行 不需用户操作）

      1：没路径的时候创建路径和文件

      2：有路径无文件时创建文件

      3：有路径文件时覆盖。

谢谢了。 

jaminth

(setq folder "c:\\lsptools\\numtest\\")
(if (= (vl-file-directory-p folder) nil)
(vl-cmdf "shell" (strcat "md " folder))
)