aytxq 发表于 2011-3-21 14:59:28

回复 仲文玉 的帖子

能不能具體的講一下，尤其是怎麼把字符寫入對應的csv欄位和列位.謝謝

yshf 发表于 2011-3-21 22:40:28


(defun c:test()
   (if (setq ssa (ssget "x" '((0 . "text"))))
       (progn
            (setq name (open "d:\\test.csv" "w")
                  n    (sslength ssa)
                  i    0
          )
          (repeat n
                (setq ent (ssname ssa i)
                      zfc (cdr (assoc 1 (entget ent)))
                      i   (1+ i)
                )
                (if (= (read zfc) (atof zfc))
                  (princ (strcat zfc "\n") name)
                )
          )
          (close name)
   
       )
   )
   (princ)
)

yoyoho 发表于 2018-3-23 16:04:38

谢谢! yshf 分享实用程序!!!!

773786668 发表于 2023-6-2 14:16:50

yshf 发表于 2011-3-21 22:40


感谢分享程序
页: 1 [2]
查看完整版本: 如何把CAD里面的每个数字导出到EXCEL?