|
Тема |
Re: Предложение [re: Pink] |
|
Автор | StSt (Нерегистриран) | |
Публикувано | 03.06.06 14:43 |
|
|
Като програма това изглежда така:
Маркираш нужните текстове и ги присвояваш на една променлива със
(setq nab (ssget))
Правиш цикъл с
(REPEAT (sslength nab))
вадиш елементите един по един
(setq element (ssname nab i) i(1+ i))
където i е брояч
вадиш съдържанието на текста
(setq text (cdr(assoc 1 (entget element))))
обединяваш текстовете в един ред като слагаш ;(точка и запетейка)
(setq alltext (strcat alltext ";" text))
тука може да се правят и други гимнастики с координатите, така, че да се подредят текстовете по редове и колони и да се запазят в един списък. В него всеки ред представлява отделен елемент(string), а колоните са разделени с ;.
Накрая отваряш текстов файл
(setq file (open "filename" "w"))
правиш цикъл
(foreach i spis
записваш във файла реда
(write-line i file)
край на цикъла
)
затваряш файла
(close file)
След това от експлорера с десен бутон върху файла
Open With... Microsoft Excel
и таблицата ти се отваря с редове и колони.
Това е на LISP.
С VBA създаваш XLS таблица, превърташ избраните текстове и я попълваш. Записваш я и след това я отваряш с Excel.
|
| |
|
|
|