输出函数问题

xsso

我想写一个可以直接运行或者将运行代码输出成文件的代码，本地运行正常，谁知输出文件时出状况，理想目的时文件输出内容为"(abc < 5)"，但实际输出"(#<USUBR @000002736415ce58 ABC> #<SUBR @000002734de6faa8 <> 5 )",我一口老血喷出，如果真要实现只要预设一下就可以，但是对于#<USUBR @000002736415ce58 ABC> 有没有好一点的方法。
源码如下：

1. (defun abc (a< nn)
   
2.   (if (a< 3 nn)
   
3.     (alert "oK")
   
4.   )
   
5. )
   
6. (defun test (tn / fi file ls01 path_name)
   
7.   (setq ls01 (list abc < 5))
   
8.   (if tn
   
9.     (eval ls01)        ;本地运行模式
   
10.     (progn        ;输出运行文件
    
11.       (setq path_name "c:\\1.txt")
    
12.       (if (open path_name "r")
    
13.   (princ "该文件已经存在")
    
14.   (progn (setq file (open path_name "w"))
    
15.          (close file)
    
16.   ) ;_ 结束progn
    
17.       )
    
18.       (if (findfile path_name)
    
19.   (progn
    
20.     (setq fi (open path_name "w"))
    
21.     (princ "(" fi)
    
22.     (foreach ii ls01
    
23.       (princ ii fi)
    
24.       (princ " " fi)
    
25.     )
    
26.     (princ ")" fi)
    
27.     (close fi)
    
28.   )
    
29.   (princ)
    
30.       )
    
31.     )
    
32.   )
    
33. )
    
34. (defun c:tt ()
    
35.   (test nil)
    
36. )

(defun abc (a< nn)<br />   (if (a< 3 nn)<br />     (alert "oK")<br />   )<br /> )<br /> (defun test (tn / fi file ls01 path_name)<br />   (setq ls01 (list abc < 5))<br />   (if tn<br />     (eval ls01)        ;本地运行模式<br />     (progn        ;输出运行文件<br />       (setq path_name "c:\\1.txt")<br />       (if (open path_name "r")<br />   (princ "该文件已经存在")<br />   (progn (setq file (open path_name "w"))<br />          (close file)<br />   ) ;_ 结束progn<br />       )<br />       (if (findfile path_name)<br />   (progn<br />     (setq fi (open path_name "w"))<br />     (princ "(" fi)<br />     (foreach ii ls01<br />       (princ ii fi)<br />       (princ " " fi)<br />     )<br />     (princ ")" fi)<br />     (close fi)<br />   )<br />   (princ)<br />       )<br />     )<br />   )<br /> )<br /> (defun c:tt ()<br />   (test nil)<br /> )

vectra

vl-princ-to-string
vl-prin1-to-string

xsso

vectra 发表于 2022-7-22 10:38
vl-princ-to-string
vl-prin1-to-string

同样输出为#<USUBR @000002736415ce58 ABC>，想输出成 abc

xsso

vectra 发表于 2022-7-22 10:38
vl-princ-to-string
vl-prin1-to-string

vl-princ-to-string用这个剪裁一下文本也能实现

baitang36

xsso 发表于 2022-7-22 11:13
同样输出为#，想输出成 abc

判断一下，如果是函数，用vl-symbol-name获取它的名字字符串(vl-symbol-name 'princ)

llsheng_73

(setq ls01 (list abc < 5))
改成(setq ls01 '(abc < 5))

输出的地方 直接 (princ (VL-PRIN1-TO-STRING ls01) fi)就完事了

1. (defun abc (a< nn)
   
2. (if (a< 3 nn)
   
3.   (alert "oK")
   
4. )
   
5. )
   
6. (defun test (tn / fi file ls01 path_name)
   
7. (setq ls01 '(abc < 5))
   
8. (if tn(eval ls01)  ;±&#190;μ&#216;&#212;&#203;DD&#196;￡ê&#189;
   
9.   (progn  ;ê&#228;3&#246;&#212;&#203;DD&#206;&#196;&#188;t
   
10.   (setq file (open "c:\\1.txt" "w"))
    
11.   (princ(VL-PRIN1-TO-STRING ls01)file)
    
12.   (close file)))
    
13. )
    
14. (defun c:tt(/ file ls01)
    
15. (test nil)
    
16.   (setq file(open "c:\\1.txt" "r"))
    
17.   (setq ls01(read(read-line file)))
    
18.   (close file)
    
19.   (eval ls01)
    
20. )

(defun abc (a< nn)<br /> (if (a< 3 nn)<br />   (alert "oK")<br /> )<br /> )<br /> (defun test (tn / fi file ls01 path_name)<br /> (setq ls01 '(abc < 5))<br /> (if tn(eval ls01)  ;±&#190;μ&#216;&#212;&#203;DD&#196;￡ê&#189;<br />   (progn  ;ê&#228;3&#246;&#212;&#203;DD&#206;&#196;&#188;t<br />   (setq file (open "c:\\1.txt" "w"))<br />   (princ(VL-PRIN1-TO-STRING ls01)file)<br />   (close file)))<br /> )<br /> (defun c:tt(/ file ls01)<br /> (test nil)<br />   (setq file(open "c:\\1.txt" "r"))<br />   (setq ls01(read(read-line file)))<br />   (close file)<br />   (eval ls01)<br /> )

xsso

baitang36 发表于 2022-7-22 19:09
判断一下，如果是函数，用vl-symbol-name获取它的名字字符串(vl-symbol-name 'princ)

感谢，对 ' 的认知双多了

xsso

llsheng_73 发表于 2022-7-22 20:59
(setq ls01 (list abc < 5))
改成(setq ls01 '(abc < 5))

这么偏门又不实用的技能你也会666，用 ' 坏处就是函数变固定了不能自定义

kkq0305

xsso 发表于 2022-7-23 13:55
这么偏门又不实用的技能你也会666，用 ' 坏处就是函数变固定了不能自定义

read函数可以规避