cad表格 --> wps / office Excel 表格

1291500406 · 发表于 2019-1-3 20:37:40

本帖最后由 1291500406 于 2019-5-1 18:36 编辑

cad --> csv 表格，数据提取，立即打开，wps，office Excel表格

1291500406 · 发表于 2019-1-3 21:47:03

依然小小鸟发表于 2019-1-3 21:43
希望有excel表格导入CAD的程序

http://bbs.mjtd.com/forum.php?mo ... amp;highlight=excel

1028695446 · 发表于 2019-6-26 22:57:33

;;在原本的基础上优化了了,打开文件故障的问题
(defun c:c2e (/ hangdau @dclfiledame)
  (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
@dclfiledame (vl-filename-mktemp nil nil ".csv")
fid (open @dclfiledame "w")
  )
  (vlax-invoke
(vlax-get-or-create-object "Wscript.Shell")
'RUN
@dclfiledame ;;(任意已经建立关联程序的文件)
)
  (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)
)

1291500406 · 发表于 2019-5-1 18:37:43

消失的天空发表于 2019-5-1 18:32
楼主下载文件哪儿有，没看到呢。

(defun c:bb ( / 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
fid (open "d:\\xls数据文件.csv" "w"))
(command "start" "d:\\xls数据文件.csv")
(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))

H-浩浩-H · 发表于 2019-1-3 20:51:24

沙发坐一下...

taoyi0727 · 发表于 2019-1-3 21:28:11

还不会操作表格来学习下

依然小小鸟 · 发表于 2019-1-3 21:43:18

希望有excel表格导入CAD的程序

前生 · 发表于 2019-1-4 01:36:39

如果是写成CSV的话，无非是按线计算点，空格加,

429014673 · 发表于 2019-1-4 08:14:10

里面有一个空格试试

烟盒迷唇 · 发表于 2019-1-4 08:42:11

这个比较简单

longer1000 · 发表于 2019-1-4 08:54:12

选择对象: 未知命令“START”。按 F1 查看帮助。
未知命令“CSV”。按 F1 查看帮助。

cad2016+office2010

ll_j · 发表于 2019-1-4 11:08:13

似乎简单了一点

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

[源码] cad表格 --> wps / office Excel 表格

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

评分