如何将cad图形中的数据框选或者全选转到Excel表格
我现在采取一个一个将数据存入，要求能将cad图形中的数据框选或者全选存入到Excel表格？
谢谢！
(defun c:ZD()
(SETQ AA (OPEN "d:\\zd.csv" "a"))
(setq bh (cdr (assoc 1 (entget(car(entsel "\n编号："))))))
(setq yhm (cdr (assoc 1 (entget(car(entsel "\n用户名："))))))
(setq mj (cdr (assoc 1 (entget(car(entsel "\n面积："))))))
(WRITE-LINE (strcat bh "," yhm "," mj) AA)
(CLOSE AA)
)
一组一组的选择添加到文件
(defun c:ZD (/ AA SS I E BH YHM MJ *error*)
(defun *error* (s)
(close AA)
(princ s)
)
(SETQ AA (OPEN "d:\\zd.csv" "a"))
(while (and
(setq ss (ssget '((0 . "text") (8 . "名字,点号,mjm"))))
(= (sslength ss) 3)
)
(setq i 0)
(repeat 3
(setq e (entget (ssname ss i)))
(cond
((= "点号" (cdr (assoc 8 e)))
(setq bh (cdr (assoc 1 e)))
)
((= "名字" (cdr (assoc 8 e)))
(setq yhm (cdr (assoc 1 e)))
)
((= "mjm" (cdr (assoc 8 e)))
(setq mj (cdr (assoc 1 e)))
)
)
(setq i (1+ i))
)
(WRITE-LINE (strcat bh "," yhm "," mj) AA)
)
(CLOSE AA)
(princ)
) Gu_xl 发表于 2013-9-18 22:43 static/image/common/back.gif
一组一组的选择添加到文件
谢谢斑竹的关注，一组一组的选择添加或许有些麻烦，而且有一些难度，主要图形不规则，不好框选。
谢谢！
祝斑竹中秋节快乐！
页:
[1]