[prajdziswet]

Как программно построить касательную к окружности, допустим знаем точку и имя окружности?
п.с высчитывать координаты не хочется,точку на окружности

Код:

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

 
(setq x1 (getpoint))
(setq s1 (ssname (ssget) 0))

Заранее благодарю.

[Vladimir_Sergeevich]

Если знаешь точку на окружности смотри функции (vlax-curve-getParamAtPoint <vla-obj> <point>) и (vlax-curve-getFirstDeriv <vla-obj> <param>).
ну и по полученному значению производной вычисляй угол наклона своей касательной

[prajdziswet]

как раз то и не знаю точку на окружности и хочу найти, но не высчитывая=>
Хочу чтобы автокад сам вычислил или построил касательную от произвольной точки к окружности(точнее там две касательные, если конечно точка не внутри окружности или ее грани)

[Alex.gomel]

Координаты точек на окружности нужны в любом случае. А вот искать их можно по-разному. Самый простой вариант - построить вспомогательную окружность, ее центр - середина между заданной (произвольной) точкой и центром исходной окружности, радиус - расстояние до заданной (произвольной) точки. Через точки пересечения вспомогательной окружности и исходной пройдут касательные. Кода 5 строчек...

[koMon]

Сообщение от prajdziswet чтобы автокад сам вычислил или построил касательную

Код:

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

 (command "_line" (getpoint "\nТочка касательной: ") "_tan" (cadr (entsel "\nОкружность: ")) "")

[prajdziswet]

Код:

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

 (cadr (entsel "\nОкружность: "))

- а вот это интересно , остальное я знал, но не знал как подсунуть команде "line". Пробывал "_tan" и имя окружности, но не получалось.

Буду пробывать а точку попробую подсунуть верхнию-нижнию, боковую (квадранта).

Большое спасибо, чуть позже отпишусь - вроде должно работать (вопрос как оно воспримет список вместо ensel)...

[koMon]

Сообщение от prajdziswet как оно воспримет список

никак, нужно кормить ему имена примитивов

[prajdziswet]

я и хочу попробывать скормить список из имени окружности и точки - вместо ensel

----- добавлено через ~33 мин. -----

Код:

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

 (setq  (getpoint))
(setq s1 (ssname (ssget) 0))
(setq ss1 (list (+ (cadr (assoc 10 (entget s1))) (cdr (assoc 40 (entget s1)))) (cadr (assoc 10 (entget s1)))))
(command "_line" x1 "_tan" (cadr (cons s1 (list ss1))) "")

вроде работает. понятное дело без проверки, чтобы нужный квадрант подсовывало

а как если надо середину подсунуть "_mid" в линию, какой список (имя точка имя точка), или просто две точки?

[koMon]

это уже вычисления

Код:

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

 (setq circle (ssname (ssget) 0))
(setq point (getpoint "\nТочка касательной: "))
(command "_line" point "_tan" (polar (cdr (assoc 10 (entget circle))) (- (angle point (cdr (assoc 10 (entget circle)))) (* 0.5 pi)) (cdr (assoc 40 (entget circle))))  "")
(command "_line" point "_tan" (polar (cdr (assoc 10 (entget circle))) (+ (angle point (cdr (assoc 10 (entget circle)))) (* 0.5 pi)) (cdr (assoc 40 (entget circle))))  "")

Сообщение от prajdziswet а как если надо середину подсунуть "_mid" в линию, какой список (имя точка имя точка), или просто две точки?

да также как и с окружностью

Сообщение от prajdziswet нужный квадрант подсовывало

а какой критерий нужности квадранта?

[prajdziswet]

koMon - Спасибо, за подсказку!

Сообщение от koMon а какой критерий нужности квадранта?

это уже тебе решать. у меня это уравнение прямой, когда мне надо я строю с двух сторон касательную, когда надо с одной...
п.с не совсем понятно

Сообщение от koMon это уже вычисления

- нет это скорее проверка подсовывания (чуть преобразовал твое выражение - по сути особо не менял), что работает. а если надо получить координаты -так это просто получаем последний примитив (это линия) и их неё получаем вторую точку
___________________
Большое спасибо. Что я хотел -ты ответил -спасибо.

[prajdziswet]

единственное с чем столкнулся:при первом запуске автокада, а потом скрипта не хочет выполнять команду line - прерывается...

[koMon]

а что пишет когда прерывается?

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

А привязки случайно не срабатывают?

[Регистр]

Прочертить радиус. Затем перпендикуляр к радиусу. Полученый перпендикулр перенести к концу радиуса. И все проблемы без формул, теорем и прочей мудрёности.

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

Сообщение от Регистр Прочертить радиус. Затем перпендикуляр к радиусу. Полученый перпендикулр перенести к концу радиуса. И все проблемы без формул, теорем и прочей мудрёности.

Или включить мозг, вспомнить геометрию и тригонометрию и решить задачку

[prajdziswet]

1)

Сообщение от koMon а что пишет когда прерывается?

= ничего не пишет. Точнее второй конец линии просто зависает в воздухе, как будто не привязалось. одна точна стоит линии -вторая, называется привязывайся сам.
(раза два-три запустишь программу потом без проблем чертит)
2)

Сообщение от Кулик Алексей aka kpblc А привязки случайно не срабатывают?

Нет. На это - я так и подумал самым первым делом. Да и почему только при первом разе, потом как раза два прочертил, оно без проблем чертит.
3)

Сообщение от Регистр Прочертить радиус. Затем перпендикуляр к радиусу

- гениально (извиняюсь, но это полный бред! как прочертить радиус круга - по кругу?)..или я что-то не догоняю...
4)

Сообщение от Кулик Алексей aka kpblc Или включить мозг, вспомнить геометрию и тригонометрию и решить задачку

= Наверное так и придется, потому что совершенно не понятно, почему оно потом работает нормально? Но "мозг" - существо довольно ленивое, хотелось проще. Просто или кубическое уравнение получается или квадратичное, можно и геометрически решить: но очень много углов, да и продумать как оно в каждой четверти будет вести (будет также все отниматься-слаживаться)
п.с ВСЕХ с наступившим новым годом!!!
tmp.lsp - пытался комментировать, но все равно не дорисовывает первые пару раз..
наверное придется решать так - и проставлять просто точкой....

[Регистр]

Сообщение от Кулик Алексей aka kpblc Или включить мозг, вспомнить геометрию и тригонометрию и решить задачку

Вы хоть и модератор, но ХАМИТЬ, не надо, соблюдайте этикет сударь.. Я высказал свое мнение, как прочертить касательную к окружности без математичесих вычислений.

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

Регистр, а если внимательно прочитать условия задачи: построить касательную из указанной точки. Программно, используя LISP. Расписанное построение касательной имеет такую же ценность, как и описание построения отрезка "от балды".

[prajdziswet]

Сообщение от Регистр ХАМИТЬ

- это он не про тебя, а про меня (Я же задал вопрос и я воспринимаю это не как "хамление", а просто как предложение(вариант): "не надо извращаться - а просто математически найди и все..."(условно Леша ответил)). И я наверное больше нахамил тебе (ИЗВИНИ):

Сообщение от prajdziswet это полный бред! как прочертить радиус круга - по кругу?

Сообщение от Регистр как прочертить касательную к окружности без математичесих вычислений

задача не в том как начертить, просто начертить я начерчу = вопрос в том как используя програмно автокад без вычислений найти эту точку=> самый оптимальный вариант предложил "koMon", но он первый разы не срабатывает при запуске автокада, потом нормально работает.

А вы (ты) "Регистр" не совсем понял задачу , понятно что она под прямым углом... но мы эту точку не знаем и почему ты радиус сразу строишь туда и т.д (радиус у тебя будет любая точка на окружности, а то что она касательная мы потом отсеиваем другие точки) => самый оптимальный вариант предложил "koMon"(но тут при самом первом запуске автокада, не работает-потом нормально), или второй вариант это расчеты...

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

Дело было почти вечером, делать было нечего...

Код:

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

 (defun t1 (/ circle point a center radius)
  (if (and (= (type
                (setq circle (vl-catch-all-apply (function (lambda () (car (entsel "\nSelect circle <Cancel> : "))))))
                ) ;_ end of type
              'ename
              ) ;_ end of =
           (= (type (setq point (vl-catch-all-apply (function (lambda () (getpoint "\nSelect point <Cancel> : "))))))
              'list
              ) ;_ end of =
           point
           ) ;_ end of and
    (progn (setq center (cdr (assoc 10 (entget circle)))
                 radius (cdr (assoc 40 (entget circle)))
                 a      (/ radius (distance point center))
                 a      (- (* pi 0.5) (atan a (- 1 (* a a))))
                 ) ;_ end of setq
           (mapcar (function (lambda (sum)
                               (entmakex (list (cons 0 "line")
                                               (cons 10 point)
                                               (cons 11 (polar center (- (angle center point) (* sum a)) radius))
                                               ) ;_ end of list
                                         ) ;_ end of entmakex
                               ) ;_ end of lambda
                             ) ;_ end of function
                   '(1. -1.)
                   ) ;_ end of mapcar
           ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

----- добавлено через ~2 мин. -----
Сработает только если окружность и точка лежат в одной плоскости. Проверял только на WCS.