read函数读取文本不全

bh89757

命令: !lst
"(CKD01-01 大于95.6  3  5)"
命令: (read lst)
(CKD01-01 大于95 3 5)
由95.6变为95的原因可能是”.“被认为是点对，所以只读取第一个元素。我想问一下该怎么修改才能读取完全。实在找不到该怎么修改了。

XDSoft

你想要做什么？

bh89757

XDSoft 发表于 2020-5-25 22:23
你想要做什么？

我其实是想读取文本文档数据，再cad中插入属性块，但是文本文档中数据不光只有数字，还有中文，像我发的贴子那样，我的程序读取后发现有大于号的的属性，只显示点之前的，我想应该是read读取的原因，只读取第一个元素。
(defun c:cs ()
  (vl-load-com)
  (setvar "DIMZIN" 0)
  (setq strPath "D:/" );定义默zd认路径
  (setq f1 (getfiled "选择数据文件" strPath "txt" 0));显示选择文件窗口并专得到文件路径
   (setq fp (open f1 "r")
         lst '() )    ; 文件
  (setq blockent     (entsel "\n请选择要插入交点的图块：")
        blockentname (car blockent)
         blkname (cdr (assoc 2 (entget blockentname))))
      (if (not (setq BL (getreal "\n插入比例<1.0>")))
    (setq BL 1.0)
  )
     (while (setq str (read-line fp))
     (setq lst  (read (strcat "(" str ")")))
     (princ lst)
  (setq mc  (vl-symbol-name (car lst))
        tc  (vl-princ-to-string(cadr lst))
       x(nth 2 lst)
        y(nth 3 lst)
        pt(list  x y))
    ; (princ pt)
         (command "insert"  blkname  "non" pt BL BL mc tc)   
   )
   (close fp)

)

marting

你去看下帮助，read函数是做什么的？read函数作用是把字符串变成符号名（变量名)，不是做你想要的那个

newer

bh89757 发表于 2020-5-25 22:28
我其实是想读取文本文档数据，再cad中插入属性块，但是文本文档中数据不光只有数字，还有中文，像我发的 ...

你要想把字符串，变成表，搜索下 xdrx_string_split ，前几天刚讨论的，里面有LISP函数源码

newer

bh89757 发表于 2020-5-25 22:28
我其实是想读取文本文档数据，再cad中插入属性块，但是文本文档中数据不光只有数字，还有中文，像我发的 ...

你要想做字符串查找，分隔，替换，你就去理解一个函数，就足够了
搜索 xd::string:regexps

命令: (xd::string:regexps "[^, ]+" "abc,def cfg" "")
("abc" "def" "cfg")

上面作用，把逗号和空格做分隔符，分隔字符串变成表

原地踏步

(setq lst "(\"CKD01-01\" \"大于95.6\"  3  5)")
(read lst)

原地踏步

你在配置文件中直接写成：
("CKD01-01"  "大于95.6"  3  5)
程序读取后直接 read，连括号都不用加了

bh89757

原地踏步 发表于 2020-5-26 09:23
你在配置文件中直接写成：
("CKD01-01"  "大于95.6"  3  5)
程序读取后直接 read，连括号都不用加了

这个要多整理一道数据呀，我想的是一劳永逸

bh89757

newer 发表于 2020-5-25 23:28
你要想做字符串查找，分隔，替换，你就去理解一个函数，就足够了
搜索 xd::string:regexps

谢谢版主

jiang__jin

学 xd::string:regexps