将所选文本导出到Exc

CafeJr · 发表于 2022-7-5 20:22:33

伙计们，

我需要一个帮助，有人知道一个Lisp，我可以在AutoCad上获得文本（文字），并将其按选择顺序导出到Excel上的单元格。。。

例如：如果我有10个单词，我会选择它，完成后，这些单词将导出到单元格（可能是cels）到Excel。

提前感谢。。。

Tharwat · 发表于 2022-7-5 20:29:13

你能举例说明你的目标吗？
是否要逐个选择以使其保持导出到Excel的相同顺序？

BIGAL · 发表于 2022-7-5 20:34:54

Getexecl。lsp它是一个excel和autocad双向函数库。
获取Excel。拉链

CafeJr · 发表于 2022-7-5 20:35:59

在这些图片中试图阐明任务。

Tharwat，选择是一个接一个的，因为我有一个包含大量信息的大图形，我需要按照名称选择它，然后按选择顺序导出。为了展示我放了A和B的例子，但这只是为了举例说明，不需要使用两个COLLMN或两行单元格，只需要获取单词并按选择顺序将其导出到Excel，这会有很大帮助。

CafeJr · 发表于 2022-7-5 20:41:58

谢谢比格尔，我也会试试的。

BIGAL · 发表于 2022-7-5 20:45:39

你的要求是两个部分，实际上写excel是很容易的一点，并考虑提供你总是使用C C等它可以做到。

现在想想，如果你只是做一个文本列表（a-1 B-1 B-3 a-2等），你可以取第一个字符，检查它是否是a B C D等，并设置列（asc（text））最后一个数字a-23=23+行偏移量=单元格行，因此如果有一些缺失，将跳过空白。B-23=单元格2,27

多亏了李·麦克，它会给出一个数字作为答案。

copy


; use say nth of your list of text selected (setq nthtext (nth x testlist))
; to use (setq cellnum (Lm:parsenumbers nthtext))
;;-------------------=={ Parse Numbers }==--------------------;;
;;                                                            ;;
;;  Parses a list of numerical values from a supplied string. ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  s - String to process                                     ;;
;;------------------------------------------------------------;;
;;  Returns:  List of numerical values found in string.       ;;
;;------------------------------------------------------------;;
(defun LM:ParseNumbers ( s )
 (
   (lambda ( l )
     (read
       (strcat "("
         (vl-list->string
           (mapcar
             (function
               (lambda ( a b c )
                 (if
                   (or
                     (< 47 b 58)
                     (and (= 45 b) (< 47 c 58) (not (< 47 a 58)))
                     (and (= 46 b) (< 47 a 58) (< 47 c 58))
                   )
                   b 32
                 )
               )
             )
             (cons nil l) l (append (cdr l) (list nil))
           )
         )
         ")"
       )
     )
   )
   (vl-string->list s)
 )
)

CafeJr · 发表于 2022-7-5 20:48:38

对不起，Bigal，AutoCad中的文本，不是Excel的特定地址，它是任何类型的文本，要在“任意”单元格中导出到Excel。我没有注意我写的AutoCad文本。。。类似Excel单元格地址。。。

pBe · 发表于 2022-7-5 20:54:32

酷炫lisp rouitne

CafeJr · 发表于 2022-7-5 20:58:54

Bigal，我不知道为什么，但我加载了Getexcl lisp，但它不工作，命令无法识别。我用了两个AutoCad软件，2012和2013版本。。。

Tharwat · 发表于 2022-7-5 21:05:00

GetExcel。lsp是一个函数，用于处理2003年之后发布的Excel文件及其扩展文件的格式。xls和xlsx。。。因此，仅此功能无法帮助您完成任何操作。

无论如何，我计划编写一个带有对话框的程序，以获取选定的文本字符串，然后再将其导出为txt格式或Excel格式的文件。csv。这适合你的需要吗？

我现在很忙，但会写它，因为我认为这将是一个方便的程序一般。

塔瓦特

[编程交流] 将所选文本导出到Exc

发表回复

精选推荐