[Фарингус]

Добрый день, задача состоит в том, что мне нужно при программировании на автолиспе сделать проставление радиусов дуг, которые строятся изначально по конечным точкам и радиусу, либо отдельно либо как часть полилинии.
(при выборе одной из конечных точек на запрос димрадиуса дуга не опознается, также пробовал использовать функцию nearest , тоже безуспешно. Использую Автокад 2006)
Спасибо за помощь!

[Кулик Алексей aka kpblc]

Свой полный код в студию. И образец dwg с показом, "чего хотишь".

[Фарингус]

Работа еще в процессе, так что скину то что есть - основная часть кода, с заданием всех точек и прорисовкой и модель параметрического чертежа,который я и пытаюсь сделать. Я не знаю как задать размеры R и R1, все точки на чертеже известны и определены.

[skkkk]

По-хорошему, делать бы это все через entmake- или vla-методы, но если не сильно углубляться в основы Auto- и VisualLISP, то можно передавать на запрос дуги точку через vla-SendCommand. Как-то так:

Код:

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

(setq pt (getpoint "\nУкажите точку на дуге или круге: "))
(vla-SendCommand (vla-get-ActiveDocument (vlax-get-acad-object)) "_DIMRADIUS !pt !pt ")

Восклицательный знак вызывает переменную на запрос точки. И Автокад ее с удовольствием кушает. Пробел внутри кавычек заменяет нажатие клавиши Enter. Но этот вариант не самый хороший с точки зрения правильности и грамотности программирования, хоть и самый, думаю, быстрый в данном случае.

[Кулик Алексей aka kpblc]

Е-мое, ну и форматирование... Почему бы не предоставить нормальный lsp? И со скобками черт-те что творится...

[Фарингус]

Спасибо