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

1291500406

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

1028695446

;;在原本的基础上优化了了,打开文件故障的问题
(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-1-3 21:43
希望有excel表格导入CAD的程序

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

H-浩浩-H

沙发  坐一下...

taoyi0727

还不会操作表格  来学习下

依然小小鸟

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

前生

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

429014673

里面有一个空格试试

烟盒迷唇

这个比较简单

longer1000

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


cad2016+office2010

ll_j

似乎简单了一点