Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Autodesk → AutoCAD → Нужна помощь с AutoLISP
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте!
Задали написать программу на автолиспе чтобы запрашивала у пользователя размеры того что будет строить. Я не знаю каким образом это осоуществить. вроде с функциями типа commnad и setq разобрался, а как спросить пользователя у размерах, и каким образом недопкстить задание им слишком больших или слишком малых размеров?
Зарание спасибо.
> Aspirine
См. функции getreal, getint, initget, getpoint
Спасибо. А не подскажите какую-нибудь литературу в которой описаны эти функции?
В общем немного разобрался. Вот только проблема небольшая. Вот код:
(command "_cylinder" "0,0,0" "3" "6") (setq c1 (ssget "l")) (command "_cylinder" "0,0,0" "1.25" "8") (setq c2 (ssget "l")) (command "_cone" "0,0,8" "1.25" "радиус" "0.5" "0.2") (setq k1 (ssget "l")) (command "_zoom" "гр" "") (command "_.union" c2 k1 "") ;(setq c1 (entlast))
При попытке загрузки в автокад, выдаёт:
"; ошибка: неверная строка режима ssget"
Синтаксис проверил, вроде всё норма.
В чем проблема?
P.S. Цункцию ssget пытаюсь использовать для дальнейшего использования команд _union и _substract. Если возможно подругому подскажите плиз. Спасибо.
(setq (ssget "_L"))
Спасибо. Действительно помогло...
Можно ещё вопрос. Мне нужно организовать чтобы пользователь имел возможность сам вводить размеры детали из определённой зоны значений.
Написал пока вот что:
(setq hd 10)
(setq parametr1 (getreal (strcat "\nВведите высоту детали <" (rtos hd) ">: ")))
(setq hd (if parametr1 parametr1 hd))
(setq rc1 3)
(setq parametr2 (getreal (strcat "\nВведите радиус большого цилиндра <" (rtos rb) ">: ")))
(setq rc1 (if parametr2 parametr2 rc1))
(setq rb1 6)
(setq parametr3 (getreal (strcat "\nВведите высоту большого цилиндра <" (rtos rs) ">: ")))
(while (> parametr3 hd)
(setq parametr3 (getreal (strcat "\nВведите высоту большого цилиндра <" (rtos rs) ">: ")))
)
(setq rb1 (if parametr3 parametr3 rb1))При загрузке а AutoCAD, он даёт ввести первое значение, а потом вылетает обратно в редактор автолиспа и в консоли Автолиспа следующая ошибка:
"ошибка: неверный тип аргумента: numberp: nil"
Никак не могу понять в чём проблема.
Что такое rb?
В редакторе Автолиспа есть возможность проставлять метки остановки (наставь до и после функций) и просмотра текущего значения переменных (а то и целых выражений) для контроля и поиска ошибок
rb- это переменная которая должна по идеи соответствовать высоте большого цилиндра.
Увидел... Да, это не внимательность и моя лень, копировал и набивал разное.
Исправил.
Но это не решило проблему...
Разобрался, спасибо. Дело было в неправильно ориентированных переменных.
Но возник ещё вопрос:
Мне нужно в координатах начальной точки тела указать две координаты и одну переменную, котороя может измениться исходя из желанию конеченого пользователя.
Например:
(command "_cylinder" "0,0,S3" rc1 rb1 "")
где rc1,rb1, S3 - переменые. Автокад при загрузке в него говорит что так координаты точек
"0,0,S3" задавать нельзя. Как пуступить в этой ситуации?
(command "_cylinder" (list 0 0 S3) rc1 rb1 "")
помогло, спасибо. А команда List- она создаёт список, да?
> Александр Ривилис
Функция (а не команда) (list ...) создает список. Учи мат.часть (т.е. язык программирования AutoLisp/VisualLisp).
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Autodesk → AutoCAD → Нужна помощь с AutoLISP
Форум работает на PunBB, при поддержке Informer Technologies, Inc
