[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

[Supermax]

Ну, извиняюсь я! Это давно было написано. Тогда я все время путал Алексея с Анатолием. Ща поправлю.

[VVA]

Сообщение от Елпанов Евгений зато, моя программа обогнала его программу!

Есть чуть побыстрее
Исходники

Код:

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

;; ColLetter - Given a number, returns a string that is the Excel
;; method of numbering columns.
;; 1="A", 2="B", ... 26="Z", 27="AA", 28 = "AB" ...
;;
(defun ColLetter (N			;Integer
		  /
		  Res			;resulting string
		  TMP			;work variable
		 )
  (setq Res "")
  (while (> N 0)
    (setq TMP (rem N 26)		;remainder of N divided by 26
	  TMP (if (zerop TMP)		;reset to "Z"
		(setq N	  (1- N)	;move under next order
		      TMP 26		;set to Z offset value
		) ;_ end of setq
		TMP
	      )				;use value as it is
	  Res (strcat			;Add character
		(chr (+ 64 TMP))	;Offset plus 64 ("A" = 65)
		Res
	      )				;existing string
	  N   (/ N 26)			;shift down an order
    ) ;_ end of setq
  ) ;_ end of while
  Res
) ;_ end of defun

; Number2Alpha - Converts Number into Alpha string
; Function By: Gilles Chanteau from Marseille, France
; Arguments: 1
;   Num# = Number to convert
; Syntax example: (Number2Alpha 731) = "ABC"
;-------------------------------------------------------------------------------
(defun Number2Alpha (Num# / Val#)
  (if (< Num# 27)
    (chr (+ 64 Num#))
    (if (= 0 (setq Val# (rem Num# 26)))
      (strcat (Number2Alpha (1- (/ Num# 26))) "Z")
      (strcat (Number2Alpha (/ Num# 26)) (chr (+ 64 Val#)))
    );if
  );if
);defun Number2Alpha

(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))
(defun conv(x)(if(< x 26)(chr(+ 65 x))(strcat(conv(1-(/ x 26)))(conv(rem x 26)))))
(defun convert-26 (x / ); Функция конвертирования числа в буквенное обозначение столбцов Экселя
(if (= (/ x 26) 0) (chr (+ x 65))
 (if (and (> (/ x 26) 0) (<= (/ x 26) 26)) 
  (strcat (chr (+ (1- (/ x 26)) 65)) 
          (chr (+ 65 (- x (* 26 (/ x 26))))))
  (if (and (> (/ (1- (/ x 26)) 26) 0) (<= x 16383)) 
   (progn (setq das_1 (1- (/ (1- (/ x 26)) 26)))
          (setq das_2 (+ 26 (- x (* (1+ (* (1+ das_1) 26)) 26))))
          (strcat (chr (+ das_1 65)) 
                  (chr (+ (1- (/ das_2 26)) 65))
                  (chr (+ 65 (- das_2 (* 26 (/ das_2 26))))
)))))))

Benchmark

Код:

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

(BENCHMARK '(
	     (convert-26 16380)
	     (VL-LIST->STRING (get-num 16380))
	     (conv 16380)
             (ColLetter 16380)
             (Number2Alpha 16380)
	     )
  )

Результат

Benchmarking ..................Elapsed milliseconds / relative speed for 32768 iteration(s): (NUMBER2ALPHA 16380)..................1469 / 1.23 <fastest> (CONV 16380)..........................1531 / 1.18 (CONVERT-26 16380)....................1594 / 1.14 (COLLETTER 16380).....................1609 / 1.13 (VL-LIST->STRING (GET-NUM 16380)).....1812 / 1 <slowest>

Огорчает одно: результат выполнения разный

Код:

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

(convert-26 16380)                ;_"XFA" 
(VL-LIST->STRING (get-num 16380)) ;_"XGA"
(conv 16380)                      ;_"XFA"
(ColLetter 16380)                 ;_"XEZ"
(Number2Alpha 16380)              ;_"XEZ"

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

Сообщение от VVA Есть чуть побыстрее

можно и обогнать, но потеряется красота программы.

Сообщение от VVA Огорчает одно: результат выполнения разный

я взял за шаблон разъяснение Supermax, из поста 653

(CONVERT-26 0) - вернет "А" (CONVERT-26 255) - вернет "IV" (CONVERT-26 16383) - вернет "XFD"

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

ускоренная версия

Код:

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

(defun conv1 (x)
 (cond
  ((< x 16384)
   (strcat (chr (+ 64 (/ x 676)))
           (chr (+ 64 (rem (/ x 26) 26)))
           (chr (+ 65 (rem x 26)))
   ) ;_  strcat
  )
  ((< x 702)
   (strcat (chr (+ 64 (/ x 26))) (chr (+ 65 (rem x 26))))
  )
  ((< x 26) (chr (+ 65 x)))
 ) ;_  cond
)

проверяем

Код:

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

(BenchMark '((Number2Alpha 16380) (conv 16380) (conv1 16380)))

получаем результат

Код:

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

Benchmarking ...................Elapsed milliseconds / relative speed for 65536 iteration(s):

    (CONV1 16380)............1545 / 1.16 <fastest>
    (NUMBER2ALPHA 16380).....1716 / 1.05
    (CONV 16380).............1794 / 1 <slowest>

[Supermax]

Значит так:
Я специально 2007 эксель поставил, чтобы цыфры сечь.
XEZ - это если считать с 0 16379, или если с 1 - 16380
следующий столбец, как сами понимаете, XFA
XFA - это 16380, если считать с 0 и 16381 если с 1.

От сюда вывод - то что красненьким и синеньким работает правильно, а черненькое - где-то ошибка.

Я чуток свой перл "упаковал" и немножко переименовал, чтобы сравнить можно было. Проверьте теперь.

Код:

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

(defun conv-26 (x / )
(setq das_0 (/ x 26))
(setq das_1 (/ (1- das_0) 26))
(setq das_3 (/ (setq das_2 (+ 26 (- x (* (1+ (* das_1 26)) 26)))) 26))
(if (= das_0 0) (chr (+ x 65))
 (if (and (> das_0 0) (<= das_0 26)) 
  (strcat (chr (+ (1- das_0) 65)) 
          (chr (+ 65 (- x (* 26 das_0)))))
  (if (and (> das_0 0) (<= x 16383)) 
   (strcat (chr (+ das_1 64)) 
           (chr (+ (1- das_3) 65))
           (chr (+ 65 (- das_2 (* 26 das_3))))
)))))

И хочу отметить, что у меня проверки по диапазону правильные. При выходе за него nil вернет и вываливаться с ошибкой переполнения списка не будет.

А Елпанова Евгения функция мне нравится. Красивая!

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

нет проблем...

Код:

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

(BenchMark '((Number2Alpha 16380) (conv1 16380)(conv-26 16380)))

Код:

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

Benchmarking ...................Elapsed milliseconds / relative speed for 65536 iteration(s):

    (CONV1 16380)............1592 / 1.17 <fastest>
    (NUMBER2ALPHA 16380).....1762 / 1.05
    (CONV-26 16380)..........1857 / 1 <slowest>

[Supermax]

Евгений! Твой последний перл - самый, самый, самый!
Оформляй и в библиотеку клади, а то потеряется в темах.

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

Сообщение от Supermax Евгений! Твой последний перл - самый, самый, самый! Оформляй и в библиотеку клади, а то потеряется в темах.

Мне, больше понравился предыдущий...
По поводу библиотеки - если хочешь - клади.

[Supermax]

Не, пока рано пиво пить.
Евгений!
(CONV1 0)
"@@A"
(CONV1 1)
"@@B"

и так далее. Чини.

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

Сообщение от Supermax Не, пока рано пиво пить. Евгений! (CONV1 0) "@@A" (CONV1 1) "@@B" и так далее. Чини.

Код:

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

(defun conv1 (x)
 (cond
  ((< 701 x 16384)
   (strcat (chr (+ 64 (/ x 676)))
           (chr (+ 64 (rem (/ x 26) 26)))
           (chr (+ 65 (rem x 26)))
   ) ;_  strcat
  )
  ((< 25 x 702)
   (strcat (chr (+ 64 (/ x 26))) (chr (+ 65 (rem x 26))))
  )
  ((< x 26) (chr (+ 65 x)))
 ) ;_  cond
)

Код:

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

Benchmarking ...................Elapsed milliseconds / relative speed for 65536 iteration(s):

    (CONV1 16380)............1591 / 1.14 <fastest>
    (NUMBER2ALPHA 16380).....1731 / 1.05
    (CONV-26 16380)..........1810 / 1 <slowest>

[Supermax]

Во! Вот теперь - классика!

[vn]

Сообщение от wetr Так получше будет: при вставке блока уже существуют поля с зависимостью внутри вхождения блока. Как всегда спасибо Kriegerу,

Wetr! Объясните темному, как поменять без взрыва например 5 на А в Вашем блоке.

[Supermax]

vn, прицепи к своему сообщению файл с блоком, тогда ясно будет что ты хочешь.
Всем,кто жаждит дополнительных Visibility Set-ов вот сюда:
http://dwg.ru/f/showthread.php?p=285705#post285705
Специально тему создал и там все расписал.

[wetr]

vn, никак. Все дело в том, что Nomber - это длина отрезка со всеми вытекающими. Если хочешь ставить букву, то без атрибута не обойтись. Блок с атрибутом лежит выше того, что ты указал

[Red Nova]

Пробежался по сообщениям за последние две недели. Отстал я от прогресса оказывается.
Тут у Supermax, программа была на прошлых страницах, называется move-properties.fas. Не пойму как ее использовать. Да и вообще что за расширение fas, не пойму? Просветите пожалуйста.

[Shoorup]

Red Nova, ну ёмаё!!! Что ж ты так!
Программа супер просто! Фас это скомпилированный лисп типа. А программа дает возможность менять местами параметры в окне свойств.

[Red Nova]

Shoorup,
Наверное ты неверно понял. Я имел ввиду что запустить не могу, а не то что программа не пригодная. Объясни как запустить.
Я ж не виноват что раньше с этим добром не встречался.

[Scribe]

Большое, большое СПАСИБО!!!

[Shoorup]

Red Nova, Supermax же все расписал как запускать. Мог бы и перечитать посты про эту прогу. Создаешь папку TMP в корне, потом пишешь к ней путь в настройках. Потом запускаешь ее (например простым перетаскиванием в окно акада) файла. Вот и все. А там разберешься.

[Red Nova]

Спасибо. Теперь понял. Получается это программа начинает работать при загрузке, да? А командой ее запустить нельзя как лисп?