将所选文本导出到Exc
伙计们，我需要一个帮助，有人知道一个Lisp，我可以在AutoCad上获得文本（文字），并将其按选择顺序导出到Excel上的单元格。。。
例如：如果我有10个单词，我会选择它，完成后，这些单词将导出到单元格（可能是cels）到Excel。
提前感谢。。。 你能举例说明你的目标吗？
是否要逐个选择以使其保持导出到Excel的相同顺序？ Getexecl。lsp它是一个excel和autocad双向函数库。
获取Excel。拉链
在这些图片中试图阐明任务。
Tharwat，选择是一个接一个的，因为我有一个包含大量信息的大图形，我需要按照名称选择它，然后按选择顺序导出。为了展示我放了A和B的例子，但这只是为了举例说明，不需要使用两个COLLMN或两行单元格，只需要获取单词并按选择顺序将其导出到Excel，这会有很大帮助。
谢谢比格尔，我也会试试的。 你的要求是两个部分，实际上写excel是很容易的一点，并考虑提供你总是使用C C等它可以做到。
现在想想，如果你只是做一个文本列表（a-1 B-1 B-3 a-2等），你可以取第一个字符，检查它是否是a B C D等，并设置列（asc（text））最后一个数字a-23=23+行偏移量=单元格行，因此如果有一些缺失，将跳过空白。B-23=单元格2,27
多亏了李·麦克，它会给出一个数字作为答案。
; 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)
)
)
对不起，Bigal，AutoCad中的文本，不是Excel的特定地址，它是任何类型的文本，要在“任意”单元格中导出到Excel。我没有注意我写的AutoCad文本。。。类似Excel单元格地址。。。
酷炫lisp rouitne
Bigal，我不知道为什么，但我加载了Getexcl lisp，但它不工作，命令无法识别。我用了两个AutoCad软件，2012和2013版本。。。
GetExcel。lsp是一个函数，用于处理2003年之后发布的Excel文件及其扩展文件的格式。xls和xlsx。。。因此，仅此功能无法帮助您完成任何操作。
无论如何，我计划编写一个带有对话框的程序，以获取选定的文本字符串，然后再将其导出为txt格式或Excel格式的文件。csv。这适合你的需要吗？
我现在很忙，但会写它，因为我认为这将是一个方便的程序一般。
塔瓦特
页:
[1]
2