[求助]princ KEY_LST file 函数使用

wangqin

(defun dat_gx(/ file)
  (vl-load-com)
  (setq file (strcat (vla-get-path (vlax-get-acad-object)) "\\JWWHZ.DAT")
 file (open file "w"))
  (setq KEY_LST '("changdu" "kuandu" "X_val" "Y_val" "jiaodu" "bili")
  (princ KEY_LST file)
  (close file)))

;;;打开“JWWHZ.DAT”文件写入的是"(changdu kuandu X_val Y_val jiaodu bili)"而不是
;;;   "("2200" "810" "94680" "85180" "110" "6")"文本

;;;是什么原因造成的，要将("2200" "810" "94680" "85180" "110" "6")写入文件如何实现？？

;;;以上输入出现错误，原意是写入JWWHZ.DAT”文件的是"(changdu kuandu X_val Y_val jiaodu bili)"而不是
;;;   ("changdu" "kuandu" "X_val" "Y_val" "jiaodu" "bili")

;;;是什么原因造成的，要将("changdu" "kuandu" "X_val" "Y_val" "jiaodu" "bili")写入文件如何实现？？

xianaihua

2. (defun dat_gx (/ file)
3.   (vl-load-com)
4.   (setq KEY_LST  '(changdu kuandu X_val Y_val jiaodu bili)
5. data_LST (list "2200" "810" "94680" "85180" "110" "6")
6. val_lst  (list changdu kuandu X_val Y_val jiaodu bili)
7.   )
8.   (mapcar 'set KEY_LST data_LST)
9.   (setq filename (strcat (vla-get-path (vlax-get-acad-object)) "\\JWWHZ.DAT")
10. file (open filename "w")
11.   )
12.   (princ val_lst file)
13.   (close file)
14. )

(defun dat_gx (/ file)   (vl-load-com)   (setq KEY_LST  '(changdu kuandu X_val Y_val jiaodu bili) data_LST (list "2200" "810" "94680" "85180" "110" "6") val_lst  (list changdu kuandu X_val Y_val jiaodu bili)   )   (mapcar 'set KEY_LST data_LST)   (setq filename (strcat (vla-get-path (vlax-get-acad-object)) "\\JWWHZ.DAT") file (open filename "w")   )   (princ val_lst file)   (close file) )

wangqin

谢谢你的回复,但写入到"JWWHZ.DAT中的仍然是(2200 810 94680 85180 110 6)而不是("2200" "810" "94680" "85180" "110" "6")

也就是说(setq val_lst  '("2200" "810" "94680" "85180" "110" "6"))

(setq  file  (open (strcat (vla-get-path (vlax-get-acad-object))    "\\JWWHZ.DAT"   ) "w"))

  (princ val_lst file)
  (close file)

写入的是(2200 810 94680 85180 110 6)

 

xianaihua

  (setq data_LST (list "\"2200\"" "\"810\"" "\"94680\"" "\"85180\"" "\"110\"" "\"6\""))
  (princ data_LST file)