CAD-EXCEL 源码

vlisp2012

多谢分享了！源码一定要支持！

sk8xiaobao

可惜我没有明经币。。。

lucas_3333

先发贴换币，看的出楼主是个刚正的人，精神上支持楼主！

sicky111

论坛是个学习的好地方，以和为贵，支持楼主分享。

springwillow

有没有CAD表格转EXCELL表格的源码？

香田里浪人

springwillow 发表于 2014-3-24 17:04
有没有CAD表格转EXCELL表格的源码？

虽然没有MagicTable那么好用，勉强用也是可以的。
(defun c:c2e ( /  hangdau)
(defun sosanh (e1 e2 / p1 p2)
(setq p1 (car e1)
p2 (car e2)
)
(if (equal (cadr p1) (cadr p2) fuzz)
(< (car p1) (car p2))
(< (cadr p2) (cadr p1))
)
)
(setq
ss (ssget '((0 . "TEXT")))
lst (ss2ent ss)
lst (mapcar '(lambda (e) (cons (cdr (assoc 10 (entget e))) (cdr (assoc 1 (entget e))))) lst)
lst (mapcar '(lambda (e) (if (= (cdr e) "*") (cons (car e) "") e)) lst)
caotext (cdr (assoc 40 (entget (ssname ss 0))))
fuzz (* caotext 1.0)
lst (vl-sort lst 'sosanh)
index 1
oldy nil
fn (getfiled "保存文件名" "" "csv" 1)
fid (open fn "w")
)
(foreach e lst
(if (equal oldy (cadr (car e)) fuzz)
(progn
(princ "," fid)
(setq index (1+ index))
)
(progn
(if hangdau
(progn
(setq index 1)
(princ "\n" fid)
)
(setq hangdau t)
)
)
)
(princ (cdr e) fid)
(setq oldy (cadr (car e)))
)
(close fid)
)
(defun ss2ent (ss / sodt index lstent)
(setq
sodt (if ss
(sslength ss)
0
)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)

springwillow

香田里浪人 发表于 2014-3-24 21:26
虽然没有MagicTable那么好用，勉强用也是可以的。
(defun c:c2e ( /  hangdau)
(defun sosanh (e1 e2 / ...

没有合并单元格的情况下还可能用用，要是有合并单元格的情况就不好用了。

ynhh

你的精神够朋友
请发扬光大
写一些机械方面的程序
让大家向你学习

llsheng_73

香田里浪人 发表于 2014-3-24 21:26
虽然没有MagicTable那么好用，勉强用也是可以的。
(defun c:c2e ( /  hangdau)
(defun sosanh (e1 e2 / ...

第一眼看见程序这么短小就能导出EXCEL，以为有高招了...
csv文件说白了就是一个TXT文件改了个后缀，和EXCEL文件它完全不一回事，设置不了单元格式，这就导致表格的导出相当受限，总不能要求人家都把表改到不需要合并单元格吧

安澜

楼主我下载了 ，希望成功啊 ~~