В чем ошибка: Неправильно организован цикл или (getkword)???

Kostinok · 06.10.2008, 09:44

Здравствуйте, подскажите пожалуйста в чем ошибка, сам не могу понять. Попытался переделать функцию VVA NUM_Y – но ничего не получилось

.

Код:

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

(defun C:NUM_Y ( / ss start i lst ed str )
  (vl-load-com)
  (and
  (setq start (getint "\nНачальный номер <выход>: "))
       (setq ss (ssget "_:L" '((0 . "*TEXT"))));; Набор текстовых примитивов
       (setq lst nil i '-1)
       (repeat (sslength ss)
	 (setq lst (cons (ssname ss (setq i (1+ i))) lst))
	 );; В lst список текстовых примитивов типа (<Entity name: 78d80fb0> ...)
       (setq lst (vl-sort lst '(lambda (e1 e2)
				 (> (caddr(assoc 10 (entget e1)))(caddr(assoc 10 (entget e2))))
				 )
			  )
	     );; Теперь этот список отсортирован по оси Y
  )
       (initget 1 "Добавить Нумеровать Вставить _Add Num Ins")
       (cond (= (getkword "\nВыберите операцию? [Добавить/Нумеровать/Вставить] <Добавить>: ") "Add")
	        (foreach e1 lst
		(setq ed (entget e1))
		(setq str (cdr(assoc 1 ed)));; Значение текстового примитива, к примеру "1"
		(setq ed (subst (cons 1 (strcat str "." (itoa start))); К значению добавлен стартовый номер
				(assoc 1 ed)
				ed)
		      )
		(entmod ed)
		(setq start (1+ start))
	      );;; end of progn
	     (= (getkword "\nВыберите операцию? [Добавить/Нумеровать/Вставить] <Добавить> : ") "Нумеровать")
	        (foreach e1 lst
		(setq ed (entget e1))
		(setq str (cdr(assoc 1 ed)));; Значение текстового примитива, к примеру "1"
		(setq ed (subst (cons 1 (itoa start)); Сам стартовый номер
				(assoc 1 ed)
				ed)
		      )
		(entmod ed)
		(setq start (1+ start))
		)
	     (= (getkword "\nВыберите операцию? [Добавить/Нумеровать/Вставить] <Добавить> : ") "Вставить")
	      (setq start (getstring T "Введите строку:"))
	      (foreach e1 lst
		(setq ed (entget e1))
		(setq str (cdr(assoc 1 ed)));; Значение текстового примитива, к примеру "1"
		(setq ed (subst (cons 1 (itoa start)); Выбраный текст
				(assoc 1 ed)
				ed)
		      )
		(entmod ed)
		)
	     );;; end of cond
       
  (princ)
  )

Alaspher · 07.10.2008, 09:06

Похоже (если я правильно понял заложеную логику), должно быть как-то так:

Код:

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

(vl-load-com)
(defun c:num_y (/ ss start i lst ed str kword)
 (and (setq start (getint "\nНачальный номер <выход>: "))
      (setq ss (ssget "_:L" '((0 . "*TEXT"))))
      ;; Набор текстовых примитивов
      (setq i -1)
      (repeat (sslength ss) (setq lst (cons (ssname ss (setq i (1+ i))) lst)))
      ;; В lst список текстовых примитивов типа (<Entity name: 78d80fb0> ...)
      (setq lst
            (vl-sort lst
                     '(lambda (e1 e2) (> (caddr (assoc 10 (entget e1))) (caddr (assoc 10 (entget e2)))))
            )
      )
      ;; Теперь этот список отсортирован по оси Y
      (progn (initget "Добавить Нумеровать Вставить _Add Num Ins")
             (or (setq kword (getkword "\nВыберите операцию [Добавить/Нумеровать/Вставить] <Добавить>: "))
                 (setq kword "Add")
             )
      )
      (cond ((= kword "Add")
             (foreach e1 lst
              (setq ed (entget e1))
              (setq str (cdr (assoc 1 ed)))
              ;; Значение текстового примитива, к примеру "1"
              (setq ed (subst (cons 1 (strcat str "." (itoa start)))
                                        ; К значению добавлен стартовый номер
                              (assoc 1 ed)
                              ed
                       )
              )
              (entmod ed)
              (setq start (1+ start))
             )
            )
;;; end of progn
            ((= kword "Num")
             (foreach e1 lst
              (setq ed (entget e1))
              (setq str (cdr (assoc 1 ed)))
              ;; Значение текстового примитива, к примеру "1"
              (setq ed (subst (cons 1 (itoa start)) ; Сам стартовый номер
                              (assoc 1 ed)
                              ed
                       )
              )
              (entmod ed)
              (setq start (1+ start))
             )
            )
            ((= kword "Ins")
             (setq start (getstring t "Введите строку: "))
             (foreach e1 lst
              (setq ed (entget e1))
              (setq str (cdr (assoc 1 ed)))
              ;; Значение текстового примитива, к примеру "1"
              (setq ed (subst (cons 1 start) ; Выбраный текст
                              (assoc 1 ed)
                              ed
                       )
              )
              (entmod ed)
             )
            )
      )
;;; end of cond
 )
 (princ)
)

Kostinok · 08.10.2008, 09:48

Alaspher,
Спасибо большое!!! Теперь понятно, что в таких случаях делать. Вроде все просто, а сам бы не догадался, степень профессионализма…

Еще раз спасибо.

Alaspher · 08.10.2008, 10:08

Не за что.

В программке, на мой взгляд, заложена некоторая неоптимальность - при сеё старте выдаётся запрос на начальный номер, потом выбор примитивов, но позже, при использовании опции "Вставить", выдаётся повторный запрос на ввод строки. Т.е., если пользователь чразу собирается "Вставлять", то он на превый вопрос должен ввести любую цифру, не имеющую никакого смысла. Лучше было-бы сделать так, что сначала происходил-бы выбор примитивов, затем, выбор вида действия, а затем, в зависимости от действия и делать запрос на ввод либо числа, либо строки.

Kostinok · 09.10.2008, 07:39

Alaspher,
ДА, это так! ) Переделал сразу, только:
1. Это выбор действия;
2. Select objects:
3. Убрал переопределение номера, при вставке, т.е. просто (itoa start)
А можно и так:

Код:

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

(vl-load-com)
(defun c:num_y (/ ss start i lst ed str kword)
 (and (setq ss (ssget "_:L" '((0 . "*TEXT"))))
      ;; Набор текстовых примитивов
      (setq i -1)
      (repeat (sslength ss) (setq lst (cons (ssname ss (setq i (1+ i))) lst)))
      ;; В lst список текстовых примитивов типа (<Entity name: 78d80fb0> ...)
      (setq lst
            (vl-sort lst
                     '(lambda (e1 e2) (> (caddr (assoc 10 (entget e1))) (caddr (assoc 10 (entget e2)))))
            )
      );; Теперь этот список отсортирован по оси Y
      (progn (initget "Добавить Нумеровать Вставить _Add Num Ins")
             (or (setq kword (getkword "\nВыберите операцию [Добавить/Нумеровать/Вставить] <Добавить>: "))
                 (setq kword "Add")
             )
      )
            (cond ((= kword "Add")
		   (progn (setq start (getint "\nНачальный номер <выход>: "))
             (foreach e1 lst
              (setq ed (entget e1))
              (setq str (cdr (assoc 1 ed)))
              ;; Значение текстового примитива, к примеру "1"
              (setq ed (subst (cons 1 (strcat str "." (itoa start)))
                                        ; К значению добавлен стартовый номер
                              (assoc 1 ed)
                              ed
                       )
              )
              (entmod ed)
              (setq start (1+ start))
             )
            );;; end of progn
		   )
            ((= kword "Num")
	     (progn (setq start (getint "\nНачальный номер <выход>: "))
             (foreach e1 lst
              (setq ed (entget e1))
              (setq str (cdr (assoc 1 ed)))
              ;; Значение текстового примитива, к примеру "1"
              (setq ed (subst (cons 1 (itoa start)) ; Сам стартовый номер
                              (assoc 1 ed)
                              ed
                       )
              )
              (entmod ed)
              (setq start (1+ start))
             )
            )
	     )
            ((= kword "Ins")
             (progn (setq start (getstring T "\nТекст для вставки <выход>: "))
             (foreach e1 lst
              (setq ed (entget e1))
              (setq str (cdr (assoc 1 ed)))
              ;; Значение текстового примитива, к примеру "1"
              (setq ed (subst (cons 1 start) ; Выбраный текст
                              (assoc 1 ed)
                              ed
                       )
              )
              (entmod ed)
             )
            )
      ))
;;; end of cond
 )
 (princ)
)

Пожалуйста, ЕЩЁ замечания. А то так хочеться научиться делать правильно.

Кулик Алексей aka kpblc · 09.10.2008, 08:02

Первое, что лично мне бросается в глаза - нет отлова ошибок (в частности, нажатия пользователем Esc в любой момент).

Alaspher · 09.10.2008, 08:12

Kostinok
Если не придираться специально, то замечаний совсем немного, точнее одно серьёзное, но повторённое трижды и подчистка забытой мелочи после копипаста (изменения помечены красным, мои примечания - зелёным):

Код:

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

(vl-load-com)
(defun c:num_y (/ ss start i lst ed str kword)
 (and (setq ss (ssget "_:L" '((0 . "*TEXT"))))
      ;; Набор текстовых примитивов
      (setq i -1)
      (repeat (sslength ss) (setq lst (cons (ssname ss (setq i (1+ i))) lst)))
      ;; В lst список текстовых примитивов типа (<Entity name: 78d80fb0> ...)
      (setq lst
            (vl-sort lst
                     '(lambda (e1 e2) (> (caddr (assoc 10 (entget e1))) (caddr (assoc 10 (entget e2)))))
            )
      )
      ;; Теперь этот список отсортирован по оси Y
      (progn (initget "Добавить Нумеровать Вставить _Add Num Ins")
             (or (setq kword (getkword "\nВыберите операцию [Добавить/Нумеровать/Вставить] <Добавить>: "))
                 (setq kword "Add")
             )
      )
      (cond ((= kword "Add")
             (and (setq start (getint "\nНачальный номер <выход>: "))
;; progn тут не нужен, а вот без and или if (в данном случае без разницы)
;; нажатие пользователем на Энтер приведёт не к выходу, а к сбою
                  (foreach e1 lst
                   (setq ed (entget e1))
                   (setq str (cdr (assoc 1 ed)))
                   ;; Значение текстового примитива, к примеру "1"
                   (setq ed (subst (cons 1 (strcat str "." (itoa start)))
                                        ; К значению добавлен стартовый номер
                                   (assoc 1 ed)
                                   ed
                            )
                   )
                   (entmod ed)
                   (setq start (1+ start))
                  )
             )
;;; end of progn
            )
            ((= kword "Num")
             (if (setq start (getint "\nНачальный номер <выход>: "))
;; аналогично предыдущему, но для примера не с end, а с if
              (foreach e1 lst
               (setq ed (entget e1))
               ;; (setq str (cdr (assoc 1 ed)))
;; не используется далее
               ;; Значение текстового примитива, к примеру "1"
               (setq ed (subst (cons 1 (itoa start)) ; Сам стартовый номер
                               (assoc 1 ed)
                               ed
                        )
               )
               (entmod ed)
               (setq start (1+ start))
              )
             )
            )
            ((= kword "Ins")
             (if (setq start (getstring t "\nТекст для вставки <выход>: "))
              (foreach e1 lst
               (setq ed (entget e1))
               ;; (setq str (cdr (assoc 1 ed)))
;; не используется далее
               ;; Значение текстового примитива, к примеру "1"
               (setq ed (subst (cons 1 start) ; Выбраный текст
                               (assoc 1 ed)
                               ed
                        )
               )
               (entmod ed)
              )
             )
            )
      )
;;; end of cond
 )
 (princ)
)

Есть ещё достаточно большая тема безопасного ввода данных, но она сильно превышает рамки разработки одной утилиты. В других темах форума она не раз обуждалась, это можно посмотреть отдельно.

Kostinok · 12.10.2008, 12:15

Alaspher, Кулик Алексей aka kpblc, Простите за задерку с ответом. Немного попрактикуюсь и выложу более грамотный вариант. Если получиться... НО!, нашел очень сильное подспорье: "САПР на базе AutoCAD - как это делается"... Думаю разберусь.
Спасибо за комментарии и замечания.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
LISP. Вставка в таблицу поля, соотвествующего площади примитива	Profan	Готовые программы	272	06.06.2021 23:12
Сейсмозащита и сейсмоизоляция существующих, построенных зд.	IANationalInformAgentstvo	Прочее. Архитектура и строительство	216	20.01.2015 16:51
Чем пользоваться СП или СНиП свайные фундаменты?	sanndima	Основания и фундаменты	10	29.02.2008 20:37
ошибка текста или мое недопонимание?	Дрюха	Конструкции зданий и сооружений	7	16.10.2007 13:54
Ошибка в "нагрузках и воздействиях" или просто БРЕ	Марьев Павел	Прочее. Программное обеспечение	3	08.09.2006 17:21

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск