Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
63 / 3 / 1
Регистрация: 11.05.2011
Сообщений: 666
1

Почему просит загрузить приложение в AutoCAD во время выполнения .lsp?

22.04.2014, 23:33. Показов 1080. Ответов 1
Метки нет (Все метки)

Почему Автокад просит загрузить другое приложение в то время, как выполняется это? Такое появилось после того как я union добавил (строка 24)
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
defun myfun()
(command "osnap" "off")
(initget 1)
(setq t1 (getpoint "Укажите базовую точку объекта: "))
(initget (+ 1 2 4))
(setq l (getreal "Укажите длину основания : "))
(initget (+ 1 2 4))
(setq w (getreal "Укажите ширину основания : "))
(initget (+ 1 2 4))
(setq h (getreal "Укажите высоту основания : "))
(command "_box" t1 "_l" l w h)
(setq main_box (entlast))
 
(initget (+ 1 2 4))
(setq l2 (getreal "Укажите длину маленького box : "))
(initget (+ 1 2 4))
(setq w2 (getreal "Укажите ширину маленького box : "))
(initget (+ 1 2 4))
(setq h2 (getreal "Укажите высоту маленького box : "))
(setq t2 (list( + (car t1) ( / (- l l2) 2) ) (cadr t1) ( + (caddr t1) h)))
(command "box" t2 "l" l2 w2 h2 "")
(setq box_2(entlast))
 
(command "union" box_2 main_box "")
(setq osn (entlast))
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2014, 23:33
Ответы с готовыми решениями:

Зависание приложение во время выполнения каких-либо операций
Здрати.. У меня приложение на время выполнения цикла или вовремя запроса до URL зависает...

SIMATIC S7-400. Почему увеличивается время выполнения программного цикла?
Как узнать, почему увеличивается время выполнения программного цикла?

Почему время выполнения unsafe и обычного кода примерно одинаково
Почему-то скорость выполнения сложных операций в с матрицами, элементы которых лежать в одномерном...

Почему мои программы во время выполнения, якобы, переходят в режим 'не отвечает'?
Доброго времени суток. Объясните, пожалуйста, почему мои программы, которые выполняются...

1
1045 / 939 / 107
Регистрация: 04.11.2012
Сообщений: 971
Записей в блоге: 3
23.04.2014, 11:25 2
Лучший ответ Сообщение было отмечено Catstail как решение

Решение

В 21 строке команда box, в конце кавычки лишние.
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
(defun C:Myfun (/ )
  (setq osmode (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (command "_.ucs" "_w"
           "_.-view" "_swiso")
 
  (initget 1)
  (setq t1 (getpoint "\nУкажите базовую точку объекта: "))
  (initget (+ 1 2 4))
  (setq l (getreal "\nУкажите длину основания: "))
  (initget (+ 1 2 4))
  (setq w (getreal "\nУкажите ширину основания: "))
  (initget (+ 1 2 4))
  (setq h (getreal "Укажите высоту основания: "))
  (command "_.box" t1 "_l" l w h)
  (setq main_box (entlast))
 
  (command "_.zoom" "_e")
 
  (initget (+ 1 2 4))
  (setq l2 (getreal "\nУкажите длину маленького box: "))
  (initget (+ 1 2 4))
  (setq w2 (getreal "\nУкажите ширину маленького box: "))
  (initget (+ 1 2 4))
  (setq h2 (getreal "\nУкажите высоту маленького box: "))
  (setq t2 (list (+ (car t1) (/ (- l l2) 2.0)) (cadr t1) (+ (caddr t1) h)))
  (command "_.box" t2 "_l" l2 w2 h2)
  (setq box_2 (entlast))
 
  (command "_.union" box_2 main_box "")
  (setq osn (entlast))
 
  (setvar "OSMODE" osmode)
  (princ)
) ;end defun
 
Команда:
(C:Myfun)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.04.2014, 11:25

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Файл: Почему файл не открывается во время выполнения программы?
Почему файл не открывается во время выполнения программы? #include <conio.h> #include <stdio.h>...

Прогресс выполнения функции AJAX и время выполнения
Здравствуйте. Как ни странно не нашел ответа на решение своей проблемы. Есть функция, которая...

Задержка выполнения кода на время выполнения анимации
Пишу игру с видом пошагового боя. С каждым ходом, игрок выкладывает на доску новую фигуру....

Антивирус просит открыть приложение в песочнице
Здравствуйте! У меня антивирус avast (pro antivirus версия 7.0.1427)ВСЕ приложения на buildere С++...

Почему программа просит что-то ввести?
Народ,помогите нубику .После заполнения массива программа требует что-то ввести ,а я не могу понять...

Программа просит ввести время и провеяет правильно ли было введено
Вот задание Программа запрашивает время в формате hh:mm:ss и проверяет корректность ввода,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.