如何将cad图形中的数据框选或者全选转到Excel表格

461045462

  我现在采取一个一个将数据存入，要求能将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)
)

Gu_xl

一组一组的选择添加到文件

1. (defun c:ZD (/ AA SS I E BH YHM MJ *error*)
   
2.   (defun *error* (s)
   
3.     (close AA)
   
4.     (princ s)
   
5.     )
   
6.   (SETQ AA (OPEN "d:\\zd.csv" "a"))
   
7.   (while (and
   
8.            (setq ss (ssget '((0 . "text") (8 . "名字,点号,mjm"))))
   
9.            (= (sslength ss) 3)
   
10.          )
    
11.     (setq i 0)
    
12.     (repeat 3
    
13.       (setq e (entget (ssname ss i)))
    
14.       (cond
    
15.         ((= "点号" (cdr (assoc 8 e)))
    
16.          (setq bh (cdr (assoc 1 e)))
    
17.         )
    
18.         ((= "名字" (cdr (assoc 8 e)))
    
19.          (setq yhm (cdr (assoc 1 e)))
    
20.         )
    
21.         ((= "mjm" (cdr (assoc 8 e)))
    
22.          (setq mj (cdr (assoc 1 e)))
    
23.         )
    
24.       )
    
25.       (setq i (1+ i))
    
26.     )
    
27.     (WRITE-LINE (strcat bh "," yhm "," mj) AA)
    
28.   )
    
29.   (CLOSE AA)
    
30.   (princ)
    
31. )

(defun c:ZD (/ AA SS I E BH YHM MJ *error*)<br />   (defun *error* (s)<br />     (close AA)<br />     (princ s)<br />     )<br />   (SETQ AA (OPEN "d:\\zd.csv" "a"))<br />   (while (and<br />            (setq ss (ssget '((0 . "text") (8 . "名字,点号,mjm"))))<br />            (= (sslength ss) 3)<br />          )<br />     (setq i 0)<br />     (repeat 3<br />       (setq e (entget (ssname ss i)))<br />       (cond<br />         ((= "点号" (cdr (assoc 8 e)))<br />          (setq bh (cdr (assoc 1 e)))<br />         )<br />         ((= "名字" (cdr (assoc 8 e)))<br />          (setq yhm (cdr (assoc 1 e)))<br />         )<br />         ((= "mjm" (cdr (assoc 8 e)))<br />          (setq mj (cdr (assoc 1 e)))<br />         )<br />       )<br />       (setq i (1+ i))<br />     )<br />     (WRITE-LINE (strcat bh "," yhm "," mj) AA)<br />   )<br />   (CLOSE AA)<br />   (princ)<br /> )

461045462

Gu_xl 发表于 2013-9-18 22:43
一组一组的选择添加到文件

谢谢斑竹的关注，一组一组的选择添加或许有些麻烦，而且有一些难度，主要图形不规则，不好框选。
谢谢！
祝斑竹中秋节快乐！