[Tugodum-ka]

Во время отрисовки чертежа по заданным параметрам постоянно выскакивает окно загрузки приложения, и приходится нажимать на кнопку "Закрыть" столько раз, сколько команд входит в программу. Как сделать, чтобы это окошко не появлялось?

[Sleekka]

выкладывай лисп - надо смотреть.

[Tugodum-ka]

Выкладываю

Код:

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

(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setvar "dimtad" 1); текст над размерной линией
(setvar "DIMGAP" 5); отступ текста от размерной линии
(setvar "dimsoxd" 1); текст между выносными линиями
(setvar "dimtsz" 0); изображение стрелки, а не засечки
(setvar "dimasz" 30); размер стрелки
(setvar "dimtxt" 30); размер текста
(command "ortho" "on" "" "")
(command "osnap" "off" "" "")
; ВВОД ИСХОДНЫХ ДАННЫХ
(setq A (getint "Введите значение толщины плиты ДСП (стенки ящика):")
      Afas (getint "Введите значение толщины материала фасада ящика:")
      Bbok (getint "Введите значение высоты боковой стенки изделия:")
      Bfas (getint "Введите значение высоты фасада:")
      Cb (getint "Введите значение ширины изделия по боковым стенкам:")
      Cfas (getint "Введите значение ширины фасада ящика:")
      Dbok (getint "Введите значение глубины ящика (без фасада):")
      DNOtype (getint "если дно ящика будет выполнено из ДВП - введите 1, если из ДСП - введите 2" )
      sv 2
      svn 15
      svv 25
      )
(setq x3d0 0
      y3d0 0
      z3d0 0
      bp3d0 (list x3d0 y3d0 z3d0); опорная точка для построения трёхмерной модели объекта
      )
(setq x3d1 (+ x3d0 Cfas)
      y3d1 (+ y3d0 bfas)
      z3d1 (+ z3d0 afas)
      bp3d1 (list x3d1 y3d1 z3d1); вторая точка фасада ящика
      x3d21 (+ x3d0 (/ (- Cfas Cb) 2))
      y3d21 (+ y3d0 svn)
      z3d21 z3d1
      bp3d21 (list x3d21 y3d21 z3d21); первая точка левой боковой стенки ящика        
      x3d22 (+ x3d21 a)
      y3d22 (+ y3d21 Bbok)
      z3d22 (+ z3d1 Dbok)
      bp3d22 (list x3d22 y3d22 z3d22); вторая точка левой боковой стенки ящика
      x3d31 (- x3d1 (/ (- Cfas Cb) 2))
      y3d31 (+ y3d0 svn)
      z3d31 z3d1
      bp3d31 (list x3d31 y3d31 z3d31); первая точка правой боковой стенки ящика        
      x3d32 (- x3d31 a)
      y3d32 (+ y3d31 Bbok)
      z3d32 (+ z3d1 Dbok)
      bp3d32 (list x3d32 y3d32 z3d32); вторая точка правой боковой стенки ящика
      x3d41  x3d22
      y3d41 (+ y3d0 svn)
      z3d41 z3d1
      bp3d41 (list x3d41 y3d41 z3d41); первая точка передней стенки ящика        
      x3d42  x3d32
      y3d42 (+ y3d21 (- Bbok 2))
      z3d42 (+ z3d1 a)
      bp3d42 (list x3d42 y3d42 z3d42); вторая точка передней стенки ящика
      x3d51  x3d22
      y3d51 (+ y3d0 svn)
      z3d51 (- z3d32 2)
      bp3d51 (list x3d51 y3d51 z3d51); первая точка задней стенки ящика        
      x3d52  x3d32
      y3d52 (+ y3d21 (- Bbok 2))
      z3d52 (- z3d51 a)
      bp3d52 (list x3d52 y3d52 z3d52); вторая точка задней стенки ящика
        )
(cond ((= DNOtype 1) (setq x3d61 (+ x3d21 0.5)
      y3d61 y3d21
      z3d61 (+ z3d21 0.5)
      bp3d61 (list x3d61 y3d61 z3d61)
      x3d62 (- x3d31 0.5)
      y3d62 (- y3d61 4)
      z3d62 (- z3d51 0.5)
      bp3d62 (list x3d62 y3d62 z3d62)))
      ((= DNOtype 2) (setq x3d61  x3d22 
      y3d61 y3d21
      z3d61 z3d21
      bp3d61 (list x3d61 y3d61 z3d61)
      x3d62  x3d32
      y3d62 (+ y3d61 a)
      z3d62  z3d52 
      bp3d62 (list x3d62 y3d62 z3d62)))
      )
(command "box" bp3d0 bp3d1 "" ""); фасад
(command "box" bp3d21 bp3d22 "" ""); левая стенка
(command "box" bp3d31 bp3d32 "" ""); правая стенка
(command "box" bp3d41 bp3d42 "" "");передняя
(command "box" bp3d51 bp3d52 "" ""); задняя
(command "box" bp3d61 bp3d62 "" "");дно

[Sleekka]

Рассмотрим строку:

Код:

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

(command "box" bp3d0 bp3d1 "" ""); фасад

Здесь вызывается стандартная команда автокада и имитируются ответы на запросы.
"" - означает - enter
Дело в том что это код был написан под одину версию автокада, а вы используете его на другой версии, количество запросов команд из версии к версии меняется, поэтому лишний enter вызывает предыдущую команду, а она у вас "_Appload".
Для того чтобы этого избежать нужно переписать код под соответствующую версию автокада.
Все просто...

[Tugodum-ka]

Спасибо Вам огромное. Я подозревала, что должно быть просто, но не знала, где искать. Теперь только бы узнать, как именно для моей версии надо писать эти команды. Может пробовать с разным количеством кавычек? Или есть какие-то справочники?

[Sleekka]

Полещук "Visaul lisp".
Но здесь все достаточно просто, скопируйте эту строку в командную строку автокада:

Код:

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

(command "box" bp3d0 bp3d1 "" "")

и там уже тестируйте.
Потом попробуйте так:

Код:

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

(command "box" bp3d0 bp3d1 "")

только вместо bp3d0 - нужно подставить разумные числа.
Например:

Код:

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

(command "box" '(0 0 0) '(1 1 0) "")

Также нужно "ПРОИГРАТЬ" команду ручками. Т.е. ввести в автокаде _box и выучить в какой момент и чего она спрашивает, и посмотреть на строку кода.

Удачи...

[Tugodum-ka]

Поубирала все кавычки - работает с одного щелчка. Готова прыгать до потолка. Так долго мучилась из-за такой ерунды. Книга Полещука у меня есть, но команды там мало описаны, поэтому я примеры их использования смотрела в старой книжке Кудрявцева, а там для 14 - й версии Автокада всё. Одним словом, СПАСИБО!!!!!!!!!!!!!!!!!

[nik_mb]

Сообщение от Tugodum-ka ... Теперь только бы узнать, как именно для моей версии надо писать эти команды. Может пробовать с разным количеством кавычек? Или есть какие-то справочники?

Код написан немного некорректно. Следовало бы исходную команду писать со знаком поддчеркивания впереди - "_box", тогда программу можно использовать в русском Автокаде. Параметры команды можно проследить непосредственно выполняя ее или через F1. Лучше пользоваться русской Справкой, но перевода команд там нет.
Хотя в русском Автокаде стандартные команды и ключевые слова АвтоКАДа на английском языке (со знаком поддчеркивания впереди) будут автоматически переводиться в команды и ключевые слова по русски при повторном вводе через "Enter" (алгоритм: набираем на клаве "_box", затем жмем Esc, после "Enter", читаем перевод - "ЯЩИК").

[Sleekka]

Я тоже рад за вас ...

(алгоритм: набираем на клаве "_box", затем жмем Esc, после "Enter", читаем перевод - "ЯЩИК")

А исче можно так:
(getcname "box")
- вуаля ...

[nik_mb]

Сообщение от Sleekka А исче можно так: (getcname "box") - вуаля ...

Тока такая строка в русском автокаде не прокатит. Нада чуточку исправить (мыло, мочало...) - (getcname "_box"). И ваще это уже Автолисп.

[Sleekka]

оки доки командор