利用excel数据生成CAD曲线

maiqi816

具体要求见附件，联系QQ：2401979811。

csharp

Excel 是固定区域还好，如果不是那就首先手动选定写起来才简单些

iLisp

csharp 发表于 2015-4-6 08:39
Excel 是固定区域还好，如果不是那就首先手动选定写起来才简单些

全都出来再处理

1. (defun GetUsedRangeData (fn / excel wks sheet range)
   
2.   (if (setq excel (vlax-get-or-create-object "Excel.Application"))
   
3.     (progn
   
4.       (setq wks          (vlax-get excel 'workbooks)
   
5.             wk          (vlax-invoke wks 'Open fn)
   
6.             sheet (vlax-get excel 'ActiveSheet)
   
7.             range (vlax-get sheet 'UsedRange)
   
8.             lst          (mapcar '(lambda (x)
   
9.                              (mapcar 'variant-value x)
   
10.                            )
    
11.                           (vlax-safearray->list (variant-value (vlax-get-property range 'value)))
    
12.                   )
    
13.       )
    
14.       (vlax-invoke wk 'Close)
    
15.       (cons (vl-remove nil (car lst))
    
16.             (cons (vl-remove nil (cadr lst))
    
17.                   (cons        (vl-remove nil (caddr lst))
    
18.                         (cddddr lst)
    
19.                   )
    
20.             )
    
21.       )
    
22.     )
    
23.   )
    
24. )

(defun GetUsedRangeData (fn / excel wks sheet range)<br />   (if (setq excel (vlax-get-or-create-object "Excel.Application"))<br />     (progn<br />       (setq wks          (vlax-get excel 'workbooks)<br />             wk          (vlax-invoke wks 'Open fn)<br />             sheet (vlax-get excel 'ActiveSheet)<br />             range (vlax-get sheet 'UsedRange)<br />             lst          (mapcar '(lambda (x)<br />                              (mapcar 'variant-value x)<br />                            )<br />                           (vlax-safearray->list (variant-value (vlax-get-property range 'value)))<br />                   )<br />       )<br />       (vlax-invoke wk 'Close)<br />       (cons (vl-remove nil (car lst))<br />             (cons (vl-remove nil (cadr lst))<br />                   (cons        (vl-remove nil (caddr lst))<br />                         (cddddr lst)<br />                   )<br />             )<br />       )<br />     )<br />   )<br /> )

maiqi816

期待解答，非常感谢！

maiqi816

有谁愿意帮忙编写一下，非常感谢？

maiqi816

问题没有解决！！！！

maiqi816

没有人应答呀！

maiqi816

始终没有人帮我解答呀！