[kpectoff]

Добрый день, коллеги. В программировании не силён, только начал осваивать lisp. Если задаю тупой вопрос - прошу дать ссылку на информацию, т.к. целый день убил на поиск проблемы и её решения. Суть в следующем.
Необходимо, чтобы после запуска лиспа, он спрашивал 3 (три) цифирных значения (только целые, положительные, ненулевые) и подставлял их в MTEXT с заранее заложенным текстом. Далее просил указать, куда вставить мтекст. далее увеличивал число "номер зоны" и "номер участка" на 1 и просил повторить вставку мтекста. Когда "Номер зоны" доходит до 16, следующий шаг - выдавать "номер зоны" 1, но при этом "номер БОСа" увеличить на 1 и так далее, пока юзер не прервет лист. Так же необходимо чтобы МТЕКСТ выравнивался по центру, был со скрытием заднего плана в виде фона с коэф-ом 1.3.
Проблема в том, что после ввода 3 (трех) переменных лисп отказывается работать. Прошу указать место в коде, где находится ошибка. Спасибо.

Код:

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

 (defun c:zones (/ bos zone osm site ts)
  (initget 7) 
  (setq bos (getint "Введите номер БОСа:"))
  (setq zone (getint "Введите номер зоны:"))
  (setq site (getint "Введите номер участка:"))
  (setq osm (getvar "OSMODE"))
  (setq ts (getvar "TEXTSIZE"))
  (repeat 99
    (while (<= zone 16)
      (entmake
	(list
	  (cons 0 "MTEXT")
	  (cons 100 "AcDbEntity")
	  (cons 100 "AcDbText")
	  (list 1 "\\pxqc;Участок " (itoa site) "100м\\P " (itoa bos) "." (itoa zone))
	  (cons 67 0)
	  (cons 40 (itoa ts))
	  (list 41 (* ts 12.8))
	  (cons 46 0)
	  (cons 71 1)
	  (cons 72 5)
	  (cons 42 27.0907)
	  (cons 43 6.76387)
	  (cons 50 0)
	  (cons 73 1)
	  (cons 44 1)
	  (cons 90 3)
	  (cons 63 256)
	  (list 45 1.3)
	  (cons 441 0)
	  (list 10 (getpoint))
	); конец list
      ); конец entmake
    (setq zone (1+ zone))
    (setq site (1+ site))
    ); конец while
  (setq bos (1+ bos))
  ); конец repeat
); конец defun

[VVA]

Пробуй

Код:

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

 
(defun c:zones (/ bos zone site pt mtext)
  (vl-load-com)   
  (initget 7) 
  (setq bos (getint "Введите номер БОСа: "))
  (initget 7) 
  (setq zone (getint "Введите номер зоны: "))
  (initget 7) 
  (setq site (getint "Введите номер участка: "))
  (while (setq pt (getpoint "\nТочка участка <выход>: "))
      (setq mtext (M-TEXT (trans pt 1 0)(strcat "\\pxqc;Участок " (itoa site) " (100м)\\P " (itoa bos) "." (itoa zone))))
      (mip-mtext-mask mtext t 1.3)
      (setq site (1+ site) zone (1+ zone))
      (if (> zone 16)(setq zone 1 bos (1+ bos)))
    )
); конец defun
(defun M-Text (pt str)
  (entmakex (list (cons 0 "MTEXT")         
                  (cons 100 "AcDbEntity")
                  (cons 100 "AcDbMText")
                  (cons 10 pt)
                  (cons 1 str)))
  )
(defun mip-mtext-mask (ent OnOff k / ed)
;;; Включает/отколючает маскировку mtext  
;;; ent -mtext ename
;;; OnOff - t - включить nil - отключить
;;; k - коэффициент перектытия
(vl-load-com)     
  (setq ed (vl-remove-if
             '(lambda (x) (member (car x) '(90 63 421 45 441)))
             (entget ent)
           ) ;_ end of vl-remove-if
  ) ;_ end of setq
  (if OnOFF
;;;Включить
    (setq ed (append ed
                     (list '(90 . 3)
                       '(63 . 9)
                       '(421 . 13158600)
                       (cons 45 k ) ;_коэфф перехлеста
                       '(441 . 6042092)
                      )
             ) ;_ end of append
    ) ;_ end of setq
    (progn
      (setq ed (append ed '((90 . 2))))
      (vla-put-BackgroundFill (vlax-ename->vla-object ent) :vlax-false)
      )
  ) ;_ end of if
  (entmod ed)
  (entupd ent)
) ;_ end of defun

[kpectoff]

Спасибо большое! все работает. Теперь буду разбираться в коде, учиться новому.
Такой ещё вопрос, а можно сделать так, чтобы в любой момент проставки МТЕКСТа, при нажатии на энтр, номер зоны становился равным 1, номер БОСа увеличивался на 1, но при этом номер участка продалжал нумироваться. Спасибо.

[VVA]

Например так

Код:

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

 
 
(defun c:zones (/ bos zone site pt mtext)
  (vl-load-com)   
  (initget 7) 
  (setq bos (getint "Введите номер БОСа: "))
  (initget 7) 
  (setq zone (getint "Введите номер зоны: "))
  (initget 7) 
  (setq site (getint "Введите номер участка: "))
  (initget "Сброс")
  (while (setq pt (getpoint "\nТочка участка [Сброс зоны] <выход>: "))
    (if (eq pt "Сброс")
      (setq zone 1 bos (1+ bos))
      (progn
      (setq mtext (M-TEXT (trans pt 1 0)(strcat "\\pxqc;Участок " (itoa site) " (100м)\\P " (itoa bos) "." (itoa zone))))
      (mip-mtext-mask mtext t 1.3)
      (setq site (1+ site) zone (1+ zone))
      (if (> zone 16)(setq zone 1 bos (1+ bos)))
      )
      )
    (initget "Сброс")
    )
); конец defun
(defun M-Text (pt str)
  (entmakex (list (cons 0 "MTEXT")         
                  (cons 100 "AcDbEntity")
                  (cons 100 "AcDbMText")
                  (cons 10 pt)
                  (cons 1 str)))
  )
(defun mip-mtext-mask (ent OnOff k / ed)
;;; Включает/отколючает маскировку mtext  
;;; ent -mtext ename
;;; OnOff - t - включить nil - отключить
;;; k - коэффициент перектытия
(vl-load-com)     
  (setq ed (vl-remove-if
             '(lambda (x) (member (car x) '(90 63 421 45 441)))
             (entget ent)
           ) ;_ end of vl-remove-if
  ) ;_ end of setq
  (if OnOFF
;;;Включить
    (setq ed (append ed
                     (list '(90 . 3)
                       '(63 . 9)
                       '(421 . 13158600)
                       (cons 45 k ) ;_коэфф перехлеста
                       '(441 . 6042092)
                      )
             ) ;_ end of append
    ) ;_ end of setq
    (progn
      (setq ed (append ed '((90 . 2))))
      (vla-put-BackgroundFill (vlax-ename->vla-object ent) :vlax-false)
      )
  ) ;_ end of if
  (entmod ed)
  (entupd ent)
) ;_ end of defun