把属性层的单行文字图元的XYZ及内容存入CSV文件

清风明月10

与大家共享一套自己写的代码，顺便问一个问题，就是CSV格式文件是以逗号为分隔的，但如果TEXT图元中本身就有这样的逗号，会出现错误结果吗？如果避免错误结果呢？

(defun c:把属性层的单行文字图元的XYZ及内容存入CSV文件()
  (setq fle "F:/0接口.csv")
  (setq ff(open fle "W"));;如何写作“(setq f(open fle "a"))”，"a"则是保存原内容，"w"是不保存，在最行一行的下行追加
   (setq ss (ssget "X" '((0 . "TEXT")(8 . "0000用于图元属性快速输出利用（简称“属性”图层）"))))
   (setq i 0)
  (repeat (sslength ss)
        (setq ent (ssname ss i))
        (setq 内容 (CDR (assoc 1 (SETQ 组码表 (entget ent)))))
       (setq XYZ (assoc 10 组码表))
       (setq X (CADR XYZ))
      (setq Y (CADDR XYZ))
      (setq Z (CADDDR XYZ))
      (setq s (strcat  (vl-princ-to-string 内容) "," (rtos X 2 3) "," (rtos Y 2 3) "," (rtos Z 2 3)))
       (write-line s ff)
    (setq i (1+ i))
  )
  (close fle)
  (SETQ FLE NIL)
  )

newer

楼主，编辑下帖子，把代码格式化下，用添加代码按钮发下帖子吧。