[Frigate]

Всех с наступившим :-)

Прошу помочь знатоков.
Столкнулся с такой проблемой - при установкe флага multiple_select=true - количество одновременно выбранных строк не может превышать 256, т.е. значение list_box будет "0 1 2 ... 255"
Это реально так или я что-то не так делаю?
Про ограничение не сказано в справке, а список может содержать до 32768 записей.


очень грустно, если это ограничение нельзя преодолеть...

[Дима_]

Написал большой пост - а он не "записался" - ну и бог с ним.
p.s.

Важно не какой у меня компьютер, а какие компьютеры у пользователей.

А сколько стоит продукт для Ваших пользователей? Я думаю что за соответствующие деньги можно купить комьютер где уж, как минимум, вызов диалога будем точно "равнобыстр".

[gomer]

Сообщение от Дима_ А сколько стоит продукт для Ваших пользователей? Я думаю что за соответствующие деньги можно купить комьютер где уж, как минимум, вызов диалога будем точно "равнобыстр".

А можно просто поинтересоваться OpenDCL

[ShaggyDoc]

Я думаю что за соответствующие деньги можно купить комьютер где уж, как минимум, вызов диалога будем точно "равнобыстр".

Покупать всем новые компьютерЫ ради убыстрения медленных диалогов? Хороший совет! Типичный для программиста - мы разучились писать "маленькие" и быстрые программы, так вы заменяйте компьютеры.

А они и на старых прекрасно работают, потому что не гонятся за новейшими версиями программ "с рюшечками". Например, даже в AutoCAD-14 работают (кому 2D достаточно) и в AutoCAD-2008 (кто в 3D). Зачем отдавать деньги заморским дядям, если их можно оставить себе?

Вот даже Word (не такая уж ресурсоемкая программа) в современных версиях вдруг стал жаловаться на нехватку памяти при связках с Excell. Так что, ради его новых "сбоку бантик" менять компьютеры? "Просто память-то" не добавишь. Так просто не стали переходить на новый Word, а пользуются старым, который эту же работу делает не выкобениваясь.

А можно просто поинтересоваться OpenDCL

Поинтересоваться можно. И узнать, что для использования надо освоить "промежуточный" язык и быть при этом зависимым от дальнейшего развития продукта. Были уже такие системы, теперь забытые. Изучать надо что-то базовое, работающее без посредников. DotNet, например. Хотя почти все основные концепции, провозглашавшиеся при появлении .NET оказались ложными или извращенными.

[Дима_]

Сообщение от ShaggyDoc Например, даже в AutoCAD-14 работают (кому 2D достаточно) и в AutoCAD-2008 (кто в 3D)

Мэтр - ну Вы же прекрасно понимаете про что я говорю, кому 14-го хватает - тому и DCL за глаза будет, а на любом компьютере где 2008 будет работоспособен ощутимой разницы при вызове диалога не будет что при exe (теоритически самый медленный) что на Net (из вышеупомянутых типа самый быстрый - наверное на чистом object-arx еще быстрей - но на нем я не ничего неделал, потому в расчет не беру). Честное слово - было время когда я занимался байтое**ством и считал, что кроме ассемблера все остальное для криворуких программистов не умеющих "правильно" программы писать - дурь это полная. Чтобы разницу заметить надо "средний", около 10-ти летний давности компьютер.

p.s. Да если честно автокад 14 конечно еще могут использовать - из коммерческих соображений, а что все компьютеры с того-же (97-2000) года без апгрейта работают - в это я никогда не поверю (ну если только все - это 2 компа). Гнаться за самым новым я конечно не призываю (ничего кроме проблем от этой стратегии не будет), но компьютеры каждые 5-6 лет и так, и так, хочешь не хочешь, а обновления требуют - просто физически из строя выходят - да и что это за фирма которая за 3 года 10 т.р. на апгрейт "раскошелиться" не может.

[gomer]

Сообщение от ShaggyDoc Поинтересоваться можно. И узнать, что для использования надо освоить "промежуточный" язык и быть при этом зависимым от дальнейшего развития продукта.

Уже сейчас можно добиться приемлемых результатов с odcl... в рукад ведь тоже свой диалект... ну, да, ничто не вечно (кроме лиспа) в любом случае придется что-то менять, совершенствоваться... Я бы опасался говорить, что, мол, какой-то метод универсальный. Гарантию дают только мошенники или самоуверенные неудачники (с)
насчет байто-чего-то там... есть такой micro paint размером на порядок меньше, чем mspaint а по функционалу такой же, ну или почти

[kserg]

> ShaggyDoc

А где можно (если можно...) посмотреть эту
ru-dlg-show-check-list
?

[ShaggyDoc]

в рукад ведь тоже свой диалект...

А я и не знал

что это за фирма которая за 3 года 10 т.р. на апгрейт "раскошелиться" не может.

Конечно может. Но зачем? Вот на НГ прогуляли по 10 т.р. на человека - это понятно. А зачем на компьютеры? Да ишшо на Висту, Win7, ежегодный новый Автокад и прочее? Если все и так отлажено и работает? Да и апгрейд уже не так просто делать. Комплектующие исчезают быстро. Уже не просто обновить надо, а маму менять, все IDE винчестеры выбрасывать, память и прочее. Проще новый покупать - дело не в деньгах.

Сообщение от kserg А где можно (если можно...) посмотреть эту ru-dlg-show-check-list

Здесь и посмотри:

Код:

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

 
(defun ru-dlg-show-check-list (dlg_caption lst_names lst_values	lst_enabled help_file topic_id / count i lst_s result s	srv is_edit)
			      ;|
Пример вызова				  
(ru-dlg-show-check-list
  "Проверка"
  (list "Переменная 1" "Переменная 2" "Переменная 3")
  (list T NIL NIL)
  (list T T T)
) ;_ end of ru-dlg-user-show-check-list
|;

  (if (setq srv (vlax-get-or-create-object "ruCheckListSrv.CheckList"))
    (progn
		(if (listp lst_enabled)
				(if (null lst_enabled)(setq is_edit 0))
				(setq is_edit (ru-conv-value-to-wordbool lst_enabled))
		)
		(setq i 0 lst_s '()) 
		(repeat (length lst_names)
			(setq lst_s
				(cons 	(strcat (ru-conv-bool-to-str (nth i lst_values))
						;; здесь заменим возможные =
						(ru-string-replace (nth i lst_names) "=" " ")
						) ;_ end of strcat
						lst_s
				) ;_ end of cons
			  i	    (1+ i)
			) ;_ end of setq
      ) ;_ end of repeat
      (setq lst_s (reverse lst_s))
      (vlax-invoke-method srv "Create")
      (vlax-put-property srv 'Caption dlg_caption)
      (if help_file	(vlax-put-property srv 'HelpFile help_file))
      (if topic_id 	(vlax-put-property srv 'HelpTopicID topic_id))
      (setq i -1)
      (foreach s lst_s
		(setq i (1+ i))
		(vlax-invoke-method srv  "AddItem" 
			s
			(if (and (listp lst_enabled) lst_enabled)
				(ru-conv-value-to-wordbool (nth i lst_enabled))
				is_edit
			) ;_ end of if
		) ;_ end of vlax-invoke-method
      ) ;_ end of foreach
      (setq result
	     (vlax-variant-value (vlax-invoke-method srv "Execute"))
      ) ;_ end of setq
      (if (= result :vlax-true)
		(if (and (listp lst_enabled) lst_enabled)
			(progn
				(setq count	     (vlax-get-property srv 'ItemsCount)
					lst_values '()
					i	     0
				) ;_ end of setq
				(repeat count
					(setq s "")
					(vlax-invoke-method srv "GetItem" i 's)
					(setq lst_values (cons (ru-conv-str-to-bool s) lst_values)
						i (1+ i)
					) ;_ end of setq
				) ;_ end of repeat
				(setq result (reverse lst_values))
			) ;_ end of progn
			(setq result lst_values)
		) ;_ end of if
		(setq result nil)
      ) ;_ end of if
      (vlax-invoke-method srv "Free") 
      (vlax-release-object srv)
      (setq srv nil)
    ) ;_ end of progn
    (ru-msg-alert "Не удалось запустить CheckList")
  )
  result
) ;_ end of defun

Заодно Дима_ за голову схватится - нет его любимых конструкций, а переменные есть, и циклы убогие.

[gomer]

Сообщение от ShaggyDoc (setq srv (vlax-get-or-create-object

вот тут и тормозит по первой

[VVA]

Сообщение от Дима_ а что все компьютеры с того-же (97-2000) года без апгрейта работают - в это я никогда не поверю

У меня в соседней конторе стоит компьютер порядка 386 машины или Pentium-I. На нем DOS и 10-й (не путать с 2010) Автокад. Не нем крутится задача, которую в то время местные умельцы склепали, скомпилировали, привязали к машине и благополучно свалили в Америку. Так они всей конторой молятся, чтобы в нем ничего не загнулось.

[Дима_]

[ShaggyDoc]

вот тут и тормозит по первой

Да. Потом Windows держит COM-объект в памяти, ведет учет обращений к нему, и если их долго нет - выгружает.

На нем DOS и 10-й (не путать с 2010) Автокад

Вот на таком же компьютере на автобусном заводе работает моя программа уже 20 лет. Продал за $55000 еще в 1990 году. Много раз предлагал поменять бесплатно на самую свежую версию - не хотят. Привыкли, и есть все, что надо.

[Дима_]

Сообщение от ShaggyDoc Да. Потом Windows держит COM-объект в памяти, ведет учет обращений к нему, и если их долго нет - выгружает.

Так у Вас же он при каждом обращении в конце выгружается (стр. 69-71) - повторно конечно загружать быстрей будет - т.к. из кеша.

Заодно Дима_ за голову схватится - нет его любимых конструкций, а переменные есть, и циклы убогие.

Провокация?

[Salt]

почти все основные концепции, провозглашавшиеся при появлении .NET оказались ложными или извращенными.

Вот тут бы поподробнее, если не затруднит.

[ShaggyDoc]

Так у Вас же он при каждом обращении в конце выгружается

Нет, в Windows объект остается. (vlax-release-object srv) - это для Lisp. А метод Free - внутри самого приложения.

Вот тут бы поподробнее, если не затруднит

Подробнее - слишком много. Но вот недавно перечитывал одну из самых первых книг издательства Microsoft Press - Дэвид С. Платт "Знакомство с Microsoft .NET". Чтоб сравнить обещания с результатом. Там уже в предисловии автор пишет "Microsoft не позволит мне рассказать историю по-своему и заставит придерживаться линии партии".

Главное, с чего начинается - ".NET - это продукт, который обещает широко распахнуть мир Интернета". ".NET - готовая инфраструктура для решения общих проблем Интернет-приложений". Ну, и распахнули? На каких продуктах большая часть Интернет сделана? Да хотя бы этот форум? Или хотя бы сайты у самих поклонников .NET?

А мы обсуждаем про приложения для AutoCAD на .NET. Можно и создание калькулятора на .NET обсудить.

А "многоплатформенность"? А совместимость версий самой .NET? Хотя бы для AutoCAD.

Конечно, в .NET есть и много достоинств. Но не зря все слышнее стоны программистов, связавшихся с этой платформой.

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

Сообщение от ShaggyDoc все слышнее стоны программистов, связавшихся с этой платформой.

И каковы рекомендации? В какую сторону смотреть-та (с)?

[ShaggyDoc]

Сообщение от Кулик Алексей aka kpblc И каковы рекомендации? В какую сторону смотреть-та (с)?

По сторонам не смотреть. Шаг в сторону - приравнивается к побегу. Следует следовать генеральной линии партии.

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

Offtop:

Сообщение от ShaggyDoc Следует следовать генеральной линии партии.

- Может ли змея сломать себе хребет?
- Может, если будет ползти точно по генеральной линии партии

[gomer]

больше всего бесят приложения на нет с диалогом "в три кнопки", которые просто не запускаются на "старых" компутерах... и, вот, есть, например, такой micro paint на ассемблере, который при весе на порядок меньше mspaint имеет такой же функционал

[kserg]

> ShaggyDoc

Здесь и посмотри:

Спасибо.
Но предложенный Вами пример вызова выдает
"; ошибка: слишком мало аргументов"

[ShaggyDoc]

Но предложенный Вами пример вызова выдает "; ошибка: слишком мало аргументов"

Разумеется. Я же не документирую функцию. Аргументы приведены в описании. Но запускать-то все равно бесполезно - внутри используется много моих библиотечных функций, да и COM-сервера у вас нет.