把属性层的单行文字图元的XYZ及内容存入CSV文件
本帖最后由 清风明月名字 于 2013-8-22 13:05 编辑与大家共享一套自己写的代码，顺便问一个问题，就是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)
)
页:
[1]