[Shoorup]

Прогресс и опыт не стоит на месте. А по этому хочу поделиться своим опытом по созданию динамических блоков и конечно посмотреть на чужой.
Динамические блоки очень мощный инструмент, а умело им пользоваться далеко не каждый умеет. Уверен большинство идей (ухищрений, модификаций, построений) можно применить и для своей работы тем самым свести к минимуму однотонную и трудоемкую работу => что я и предлагаю на данной теме.
---
Дополнительно (спасибо VVA):
В 2010-2011-2012 в редакторе блоков при настройках по умолчанию нельзя добавлять к операциям некоторые вещи, например к операции Flip добавить Strech и т.д.
Описание проблемы:
http://forum.dwg.ru/showpost.php?p=7...postcount=2666
Решение:
http://forum.dwg.ru/showpost.php?p=7...postcount=2679
----
Тема закрыта, продолжение: http://forum.dwg.ru/showthread.php?t=66721

[Кулик Алексей aka kpblc]

Это у тебя или у меня? У меня-то рекурсия чистой воды. У тебя - итерационный.
Хотя, возможно и другое название
P.S. Где и как ты будешь делать ограничения - я ж не лимитирую. Хочешь - внутри функции, хочешь - "снаружи". Я бы делал именно в вызывающей, поскольку в случае проверок внутри get-num скорость выполнения еще больше упадет.
---
Исправился

[Makswell]

Сообщение от Кулик Алексей aka kpblc Понимаешь, Евгений Елпанов в свое время показывал код обращения к xls-файлу вообще без Excel'a (через ADO, насколько я помню). Так что я бы поискал его решение и попытался с ним разобраться, чем свое рисовать.

Вот здесь вот это:
http://dwg.ru/f/showpost.php?p=73059&postcount=9

[Supermax]

И гдеж его искать? И какие это ключевые слова в поиске вставлять? И как собственно тема та называлась? Не проще у него самого спросить?
Доступ к экселю я делаю по Полищуковски. Дешево и сердито. Хотя и от ADO не откажусь, если кто подскажет где искать.

[Кулик Алексей aka kpblc]

Makswell, это не единственный вариант, вроде бы.
Supermax, попробуй искать по "ADODB"

[Supermax]

Во! Makswell меня опередил.
Ну nifigasebe код! Когда ж в нем разбираться? И в чем преимущество? Если нет офиса, то как таблицу составлять? Я ведь эксель->лукуп корректирую. Предполагается составление таблицы в экселе и перенос ее в лукуп. Чета не вижу +.

[Кулик Алексей aka kpblc]

#661 исправлен

[Supermax]

Долгожданный Эксель->лукуп (или лукап) готов!
Нате!
Работает при наличии папки C:\TMP
Код открытый, если надо, можете на свою папку переправить (в 4 местах).
До 16383 столбцов и любое количество строк (практически).
Также не критично к наличию большого количество столбцов в правой части.

[Supermax]

Kpblc,

.....У тебя - итерационный.

Тут ты батенька даже в словарь не заглянул.
Итерация - по латински - повторение. Результат повторного выполнения одной и тй же математической функции. В моем случае я определяю вес старшего разряда; вычитаю из исходного числа его значение и затем определяю вес следующего, более младшего разряда, но уже совсем по другой формуле! Следующий разряд вычисляется по третьей формуле. А вот у тебя в рекурсии самое натуральное итерационное вычисление, на чем рекурсия собственно и основана.
Конвейерный метод преобразования как раз и основан на определении веса старшего разряда и вычитании из исходных данных его значения. с последующей обработкой остатка. Тут есть повторение, но не действия, а принципа. А итерация это повторение действия.
В моем случае вообще все три буквы вычисляются самостоятельно (если не считать участие в их вычислении пары промежуточных значений).
Я их расположил в такой последовательности, чтобы они правильно склеивались в строку.

[VVA]

Вроде переправил. Теперь от папки TMP не зависит. Добавленные и исправленные строки помечены
;;; Add VVA 12.09.2008
;_Mod VVA 12.09.2008

[Supermax]

Глупость удалена автором.

[Supermax]

VVA, снимаю шляпу! Я не прав. Файлы все время образуются в папке Temp, где правда и так всего дофига, но там им и место!
Я переправлю во всех макросах по обработке динамических блоков на такой способ вызова файлов.
Почему у меня с путем не кушало? Не пойму

[Supermax]

Ну и обратный процесс. Перенос данных из лукапа (или лукупа) в эксель.
С попраками VVA.

[Supermax]

В данлоадсе поменял файлы. И приписочки по поводу изменений внес.
Но кто обэтом узнает? Только если сюда заскочат все 400 с лишним посетителей ... После обновления ранее выложенная программа в титулах не появляется, а жаль.

[Елпанов Евгений]

Сообщение от Кулик Алексей aka kpblc Можно эту "математику" сделать рекурсией. Правда, в скорости выигрыш вряд ли будет Код: [Выделить все] (defun get-num (code / tmp val) (cond ((minusp code) nil ) ((<= code 26) (list (+ code 65)) ) (t (setq tmp (/ code 26) val (expt 26 2) ) ;_ end of setq (append (get-num (if (<= code val) (1- tmp) tmp ) ;_ end of if ) ;_ end of get-num (get-num (- code (* tmp 26) (if (<= code val) 1 0 ) ;_ end of if ) ;_ end of - ) ;_ end of get-num ) ;_ end of append ) ) ;_ end of cond ) ;_ end of defun ; Пример применения: (vl-list->string(get-num 16380))

У тебя ошибка в вычислениях..
(vl-list->string(get-num 26))
возвращает "[" а должен возвращать "AA"

[Кулик Алексей aka kpblc]

Исправленный вриант кода:

Код:

[Выделить все]

(defun get-num (code / tmp val)
  (cond
    ((minusp code)
     nil
    )
    ((< code 26)
     (list (+ code 65))
    )
    (t
     (setq tmp (/ code 26)
           val (expt 26 2)
     ) ;_ end of setq
     (append
       (get-num
         (if (<= code val)
           (1- tmp)
           tmp
         ) ;_ end of if
       ) ;_ end of get-num
       (get-num (- code
                   (* tmp 26)
                ) ;_ end of -
       ) ;_ end of get-num
     ) ;_ end of append
    ) ;_ end of cond
  ) ;_ end of cond
) ;_ end of defun

; Пример применения: (vl-list->string(get-num 16380))

[Елпанов Евгений]

Кулик Алексей aka kpblc,
поправил твою программу, теперь работает правильно.
Правда, появилось два изменения:
1. возвращает сразу строку - не надо в дальнейшем конвертировать список в текст.
2. нет ограничения на длину числа, т.е. нет ограничения на размер результирующей строки.

Код:

[Выделить все]

(defun conv(x)(if(< x 26)(chr(+ 65 x))(strcat(conv(1-(/ x 26)))(conv(rem x 26)))))

[Елпанов Евгений]

ну вот, Алексей меня обогнал...

[Кулик Алексей aka kpblc]

Результаты замера скорости выполнения:

Код:

[Выделить все]

(BENCHMARK '((convert-26 16380) (get-num 16380) (conv 16380)))
Benchmarking ..................Elapsed milliseconds / relative speed for 32768 iteration(s):

    (CONV 16380)...........1813 / 1.17 <fastest>
    (CONVERT-26 16380).....1953 / 1.09
    (GET-NUM 16380)........2125 / 1 <slowest>

(BENCHMARK '((convert-26 16380) (VL-LIST->STRING (get-num 16380)) (conv 16380)))
Benchmarking ..................Elapsed milliseconds / relative speed for 32768 iteration(s):

    (CONV 16380)..........................1016 / 1.15 <fastest>
    (CONVERT-26 16380)....................1094 / 1.07
    (VL-LIST->STRING (GET-NUM 16380)).....1171 / 1 <slowest>

[Елпанов Евгений]

зато, моя программа обогнала его программу!

[Елпанов Евгений]

Сообщение от Supermax Ну и обратный процесс. Перенос данных из лукапа (или лукупа) в эксель. С попраками VVA.

поправь файлик с программой:

; Выражаю глубочайшую признательность Полещуку Н.Н. и Кулик Анатолию (Kpblc) за внесенный вклад в данную программу.

Кулик Алексей aka kpblc имеет имя Алексей, а не Анатолий...