Перейти к публикации

Функция доступа к примитивам в AvtoLISP

nadia

Автор: nadia,
в Все вопросы о CAD

 Рассказать Подписчики 0

Рекомендованные сообщения

nadia

nadia 0

Опубликовано:
Опубликовано: (изменено)

Доброго времени суток!

Пожалуйста, подскажите как выбрать линию как объект, используя функции доступа к примитивам, не использовать функцию getpoint.

Дело в том, что я сделала программку, но нужно её переделать, а как что-то ни как не пойму...

(defun okr()

(setq A (getpoint "\nEnter first point " ))

(setq B (getpoint "\nEnter second point " ))

(setq c (getpoint "\n Enter centr circle" ))

(command "line" A B "")

(setq d(distance A B))

(command "_.CIRCLE" c "_D" d)

(command "zoom" "e")

)

Помогите, пожалуйста.

Изменено пользователем nadia
Ссылка на сообщение
Поделиться на других сайтах


Присоединяйтесь к обсуждению

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

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

×
 Рассказать
Подписчики 0
Перейти к списку тем

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.


×
×
  • Создать...