社区 › Auto Lisp › 从csv导入文本（X、Y、代码

ichavarria 发表于 2022-7-5 17:37:48

从csv导入文本（X、Y、代码

您好，我想在每个点的坐标上从csv文件（X，Y，code）导入代码（或描述）。
 
我可以在excel中完成，但我正在寻找一种简单的方法。
 

 

 
该层可以是当前层，高度2，旋转0。我可以稍后更改这个属性，所以没问题。
 
 
请原谅我英语有限，欢迎改正。
 
 
非常感谢。

Lee Mac 发表于 2022-7-5 18:06:49

写得很快：
(defun c:txtin ( / csv des ins lst str )
   (if (and (setq csv (getfiled "Select CSV File" "" "*" 0))
            (setq des (open csv "r"))
       )
       (progn
         (while (setq str (read-line des))
               (while (vl-string-position 44 str)
                   (setq str (vl-string-subst "\"\"" "," str))
               )
               (if (and (setqlst (read (strcat "(\"" str "\")")))
                        (setqins (mapcar 'distof lst '(2 2)))
                        (caddr lst)
                   )
                   (entmake (list '(0 . "TEXT") '(40 . 2.0) (cons 10 ins) (cons 1 (caddr lst))))
               )
         )
         (close des)
       )
   )
   (princ)
)

ichavarria 发表于 2022-7-5 18:18:05

非常感谢李·麦克
 
这正是我一直在寻找的。非常感谢你的帮助。

Lee Mac 发表于 2022-7-5 18:57:43

不客气-很高兴这有帮助。

查看完整版本: 从csv导入文本（X、Y、代码