[Макс Тал.]

Кто поможет воплотить идею в реальность?
Нужен лисп.
Охото чтобы команда спрашивала
1. Выберите числа, которые необходимо сложить.
2.После выделения запрос на место размещения результата.
3. Вставка результата.
Возникла необходимость в суммировании большого количества чисел и забивать каждое число в формулу очень нудно и долго.
У меня есть лисп который прибавляет к выделенным числам величину, которую указываешь в командной строке при запросе.

[water]

Жаль, что так никто и не отозвался ((

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

Почему же? А посты с 57 и дальше? Ты сама-то можешь сказать, чего тебе надо? Только не общими словами.
btw, сделать "одну большую красную кнопку" с надписью "чтоб было клево" тебе не удастся. Максимум - большая зеленая кнопка с надписью "тебе уже клево"
---
Добавлено: Поправил пост (обшибся с обращением).

[water]

Ну, значит хочу:
1- расстановку датчиков в соответстии с НПБ
2- расстановку оросителей с разводкой трубопровода в соответствии с НПБ
3- .... большую шоколадку и больше оперативки в мой рабочий комп

зы: как уже говорила, есть недоработанные решения, сама ничерта в етом не понимаю, но знаю где работает некорректно

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

Ыыыы... Что такое НПБ - лично я БМП. Могу обеспечить только п.3.1

[DEM]

Ну если
water
Ну, значит хочу:

1- расстановку датчиков в соответстии с НПБ 2- расстановку оросителей с разводкой трубопровода в соответствии с НПБ

то вам нужно СПМ по НПБ

[water]

НПБ- нормы пожарной безопасности, типа датчик от стены на 4,5 м , между датчиками 9 м , при высоте помещения 3,5 м, одним оросителем защищается площать 12 м2

я бы на вашем месте , уважаемый kpblc, с такое лёгкостью не утверждала по поводу пункта 3.1 , по почте шоколадки не всегда доходят

[Лентяй]

[quote="water"]НПБ- нормы пожарной безопасности, типа датчик от стены на 4,5 м , между датчиками 9 м , при высоте помещения 3,5 м, одним оросителем защищается площать 12 м2[quote]
Короче, девушка хочут заполучить решение системы УЛП средствами ЛИСП, которые, будучи интегрированы в САПР, эмулируются в большую розовую кнопку... Господа, тута ЛНП Канторович не пробегал?

[Apelsinov]

Сообщение от water НПБ- нормы пожарной безопасности, типа датчик от стены на 4,5 м , между датчиками 9 м , при высоте помещения 3,5 м, одним оросителем защищается площать 12 м2

На самом деле девушка подняла хорошую тему, вполне возможно, что расстановку спринклерных оросителей в плане по помещениям можно попытаться автоматизировать. Жаль только не смогла толком объяснить что же конкретно она хочет (ну с шоколадкой вроде разобрались).
water, попробуйте объяснить людям что конкретно вы хотите, подробно, с примерами и цитатами из нормативов, тогда, вас наверняка поймут и помогут. А еще интересно о каких имеющихся у Вас наработанных решениях идет речь, и что в них вас не устраивает.
А тему лучше переместить отсюда в отдельную, а то бардак.

[water]

Я не знаю как перевести тему в отдельную.
Попробую объяснить подробнее хотя бы по одному пункту что-же я хочу. Есть план помещений в нужном масштабе. Есть определённого вида блоки я рамкой выделяю площадь помещения и на этой площади блоки ставятся равномерно в нужном количестве. Блоки разные и требования к их расстановке тоже разные. Иногда есть необходимость ставить блоки попарно. Если кто-то может помочь подробно расскажу что и как должно стоять

[Олег К.]

>> water
В самом деле, вопрос поставлен интересный, попробуйте создать новую тему (в низу страницы есть кнопочка "Новая тема").

Если кто-то может помочь подробно расскажу что и как должно стоять

Вы, главное, объясните подробно, что нужно - больше народа думать будет. А там уж кто додумается, тот и поможет. Кстати, уточните: вам нужна расстановка только блоков датчиков/оросителей или еще и разводка электро/водопроводной сети (в начале вопрос был о сети).
Пожалуйста, напишите какими нормативами Вы пользуетесь, да и "наработанные решения" неплохо бы сюда закинуть, если объем позволяет.

[water]

см. тему "В помощь проектировщикам ОПС"

[Juss_00]

Удалил

[gomer]

INCDEC - http://dwg.ru/dnl/3716

[СерJант]

Сообщение от _Andre_ Вот так тогда Код: [Выделить все] (defun ed_wrdcount (/ descript fnam txtstr txtspace lst lstp tvst) (vl-load-com) (if (setq lst (ssget (list '(0 . "TEXT") (cons 410 (getvar "ctab"))))) (progn (setq txtspace (vla-objectidtoobject (vla-get-activedocument (vlax-get-acad-object)) (vla-get-ownerid (vlax-ename->vla-object (ssname lst 0)) ) ;_ end of vla-get-ownerid ) ;_ end of vla-ObjectIDToObject ) ;_ end of setq (setq lst (mapcar '(lambda (x) (cdr (assoc 1 (entget x)))) (vl-remove-if 'listp (mapcar 'cadr (ssnamex lst) ) ;_ end of mapcar ) ;_ end of vl-remove-if ) ;_ end of mapcar ) ;_ end of setq (foreach i lst (if (not (assoc i lstp)) (setq lstp (cons (list i (length (vl-remove-if-not '(lambda (x) (= i x)) lst ) ;_ end of vl-remove-if-not ) ;_ end of length ) ;_ end of list lstp ) ;_ end of cons ) ;_ end of setq ) ;_ end of if ) ;_ end of foreach (setq txtstr (apply 'strcat (mapcar '(lambda (x) (strcat (car x) " - " (itoa (cadr x)) "\\P") ) (vl-sort lstp '(lambda (y1 y2) (> (car y1) (car y2)))) ) ;_ end of mapcar ) ;_ end of apply ) ;_ end of setq (if (setq tvst (getpoint "\nSpecify start point of text:")) (vla-addmtext txtspace (vlax-3d-point tvst) 10000 txtstr) ) ;_ end of if ) ;_ end of progn ) ;_ end of if (princ) )

Все равно сортирует не корректно
например:
Кр40 - 1
Кр4 - 1
Кр39 - 1
***
Кр32 - 1
Кр31 - 1
Кр30 - 1
Кр3 - 1
Кр29 - 1
Кр28 - 1
***
Кр21 - 1
Кр20 - 1
Кр2 - 1
Кр19 - 1
Кр18 - 1
***
Кр12 - 1
Кр11 - 1
Кр10 - 1
Кр1 - 1

можно как то это исправить?

[Сергей812]

так и в любом другом языке отсортирует аналогично) Хотите корректно - либо выравнивайте разрядность (к примеру, вместо Кр4 формируйте Кр04), либо по другому храните данные - отдельно строки и числа

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

Есть еще как минимум три варианта:
- если префикс один и тот же, написать свой лиспик
- если префикс может отличаться, то писать свой парсер
- найти (например, на theswamp.org) готовый код (кажется, от Lee Mac)

[VVA]

Сообщение от Кулик Алексей aka kpblc найти (например, на theswamp.org) готовый код (кажется, от Lee Mac)

Здесь http://www.theswamp.org/index.php?topic=16564.0 и здесь http://www.cadtutor.net/forum/showth...nge-list/page2

Сообщение от СерJант можно как то это исправить?

Так

Код:

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

(defun ed_wrdcount (/ descript fnam txtstr txtspace lst lstp tvst)
  (vl-load-com)
  (if
    (setq lst (ssget (list '(0 . "TEXT") (cons 410 (getvar "ctab")))))
     (progn
       (setq txtspace (vla-objectidtoobject
			(vla-get-activedocument (vlax-get-acad-object))
			(vla-get-ownerid
			  (vlax-ename->vla-object (ssname lst 0))
			) ;_ end of vla-get-ownerid 
		      ) ;_ end of vla-ObjectIDToObject 
       ) ;_ end of setq 
       (setq lst (mapcar '(lambda (x) (cdr (assoc 1 (entget x))))
			 (vl-remove-if
			   'listp
			   (mapcar 'cadr
				   (ssnamex lst)
			   ) ;_ end of mapcar 
			 ) ;_ end of vl-remove-if 
		 ) ;_ end of mapcar 
       ) ;_ end of setq 
       (setq lst (SortStringWithNumberAsNumber  lst nil))
       (foreach	i lst
	 (if (not (assoc i lstp))
	   (setq lstp
		  (cons
		    (list i
			  (length
			    (vl-remove-if-not
			      '(lambda (x) (= i x))
			      lst
			    ) ;_ end of vl-remove-if-not 
			  ) ;_ end of length 
		    ) ;_ end of list 
		    lstp
		  ) ;_ end of cons 
	   ) ;_ end of setq 
	 ) ;_ end of if 
       ) ;_ end of foreach 
       (setq txtstr
	      (apply
		'strcat
		(mapcar
		  '(lambda (x)
		     (strcat (car x) " - " (itoa (cadr x))  "\\P")
		   )
		 ;;; (vl-sort lstp '(lambda (y1 y2) (> (car y1) (car y2))))
		 (reverse lstp)
		) ;_ end of mapcar 
	      ) ;_ end of apply 
       ) ;_ end of setq 
       (if
	 (setq tvst (getpoint "\nSpecify start point of text:"))
	  (vla-addmtext txtspace (vlax-3d-point tvst) 10000 txtstr)
       ) ;_ end of if 
     ) ;_ end of progn 
  ) ;_ end of if 
  (princ)
)
;;Published http://www.theswamp.org/index.php?topic=16564.0
;;By VVA --  05.20.07 mods by CAB
;;Usage (SortStringWithNumberAsNumber '("A9" "A1" "A10" "B11" "B2" "B05") nil)
;;With ignore case (SortStringWithNumberAsNumber '("A9" "A1" "A10" "B11" "B2" "B05") t)
;;  CAB added Ignore Case Flag as an argument
;;Return ("A1" "A9" "A10" "B2" "B05" "B11")
;;;ListOfString - список строк
;;; IgnoreCase - t (игнорировать) или nil (нет) регистр символов
(defun SortStringWithNumberAsNumber (ListOfString IgnoreCase / NorStrs count)
;;;Function Normalize (add 0 befor number) number in string
;;; Count normalize symbols set in variable count
;;; CAB added count as an argument
  (defun NormalizeNumberInString (str count / ch i pat ret buf)
    (setq i   0
          pat '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9")
          ret ""
    ) ;_ end of setq
    (while (/= (setq ch (substr str (setq i (1+ i)) 1)) "")
      (if (vl-position ch pat)
        (progn
          (setq buf ch) ;_ end of setq
          (while
            (vl-position (setq ch (substr str (setq i (1+ i)) 1)) pat)
             (setq buf (strcat buf ch))
          ) ;_ end of while
          (while (< (strlen buf) count) (setq buf (strcat "0" buf)))
          (setq ret (strcat ret buf))
        ) ;_ end of progn
      ) ;_ end of if
      (setq ret (strcat ret ch))
    ) ;_ end of while
    ret
  ) ;_ end of defun
  ;;-------------------------------------------------
  ;;  function to Count the longest number in string 
  ;;  CAB added to get the correct COUNT
  (defun getcount (lst / count pat)
    (setq count 0)
    (setq pat '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
    (mapcar
      '(lambda (str / i maxlen ch)
         (setq i 0 maxlen 0)
         (while (/= (setq ch (substr str (setq i (1+ i)) 1)) "")
           (if (vl-position ch pat) ; number
             (setq maxlen (1+ maxlen))
             (setq count  (max count maxlen) maxlen 0)
           )
         )
	 (setq count  (max count maxlen)) ;_<<< ADD 21.06.2007 by 
       )
      Lst
    )
    count
  )
  ;;===============================================
  (setq count   (GetCount ListOfString)
        NorStrs (mapcar '(lambda (x) (NormalizeNumberInString x count))
                        ListOfString)
  )
  (and IgnoreCase (setq NorStrs (mapcar 'strcase NorStrs)))
  (mapcar '(lambda (x) (nth x ListOfString)) (vl-sort-i NorStrs '<))
)

[СерJант]

VVA, спасибо большое!!! То что надо! Премного благодарен