如何自动读取CAD图中图形的坐标数据表格到EXCEL

飞鹰158 · 发表于 2008-11-16 19:17:00

工程桩的CAD图中有很多桩，有没有程序能够自动读取CAD图的桩位相对于坐标原点的坐标值并自动转到生成EXCEL中。请多帮忙！！

wawbt · 发表于 2008-11-17 10:00:00

本帖最后由作者于 2008-11-17 18:37:25 编辑

初学LISP.如下,选择桩基,写于D:\ZZB.TXT文件中.

(defun c:zzb(/ os1 ss1 ss2 n n0 zbx zby str1 f1)
(setvar "cmdecho" 0)
(setq os1(getvar "osmode"))
(setvar "osmode" 0)
(princ "\n选取桩基:")
(setq ss1(ssget '((0 . "circle"))))
(setq n(sslength ss1))
(setq n0 0)
(setq f1(open "d:\\zzb.txt" "w"));打开一文本文件用于存放桩基坐标。
(while (< n0 n)
    (setq e1(ssname ss1 n0))
    (setq e2(entget e1))
    (setq zbx(cadr(assoc 10 e2)))
    (setq zby(caddr(assoc 10 e2)))
    (setq str1(strcat (itoa n0) " " (rtos zbx) " " (rtos zby)))
    (write-line str1 f1)
    (setq n0(+ 1 n0))
    )
(close f1)
(setvar "cmdecho" 1)
(setvar "osmode" os1)
(princ)
)

zml84 · 发表于 2008-11-17 22:00:00

本帖最后由作者于 2008-11-17 22:03:03 编辑

;;;功能：保存圆的圆心坐标到文本文件
(defun c:zzb (/ ss f1 i en ent pt x y str)
(setq filename "d:\\zzb.txt")
;;
(princ "\n选取圆...")
(if (and (setq ss (ssget '((0 . "circle"))))
;;写模式打开一文本文件，用于存放桩基坐标。
(setq f1 (open filename "w"))
)
(progn
(setq i 0)
(repeat (sslength ss)
(setq en (ssname ss i)
ent (entget en)
)
(setq pt (cdr (assoc 10 ent))
x (car pt)
y (cadr pt)
)
(setq i (1+ i))
;;输出
(setq str (strcat (itoa i)
"\t"
(rtos x 2 4)
"\t"
(rtos y 2 4)
)
)
(write-line str f1)
;;文本窗口显示
(princ (strcat "\n" str))
)
;;关闭文件
(close f1)
;;显示文件
(startapp "notepad.exe" filename)
)
)
;;静默退出
(princ)
)

lfx49 · 发表于 2008-11-19 10:59:00

忘记从哪里找的程序，试用一下吧

ding9736 · 发表于 2008-12-11 16:12:00

会覆盖原有的文件吧，假如需在原有的excel文件后面接着写，如何写

账号		自动登录	找回密码
密码			注册

如何自动读取CAD图中图形的坐标数据表格到EXCEL

2楼代码改进后，如下：

本帖子中包含更多资源