[Jonas]

Собственно нужно расположить отверстия по дуге с заданным растоянием по хорде. Поиском ничего не нашел.

[_Andre_]

По длине хорды можно через формулы геометрии найти длину дуги заключенно между концами хорды, а далее командой _measure разметить точки.

[_Andre_]

Длина дуги L на окружности радиусом R между двумя точками хорды длиной l равна
L=R*arcsin (l/(2*R))
Вроде так получилось

[Хмурый]

_Andre_, формулы тут не нужны.
1 Нарисовать окружность радиусом равным хорде и с центром в точке начала дуги.
2 нарисовать окружность с диаметром равным диаметру отверстия с центром в точке пересечения дуги и окружности
3 сформировать круговой массив из отверстий с центром в центре дуги

[Jonas]

Сообщение от Хмурый _Andre_, формулы тут не нужны. 1 Нарисовать окружность радиусом равным хорде и с центром в точке начала дуги. 2 нарисовать окружность с диаметром равным диаметру отверстия с центром в точке пересечения дуги и окружности 3 сформировать круговой массив из отверстий с центром в центре дуги

Так ведь масив строится по углам а не по хордам.

[Хмурый]

ну, ежели не можешь указать угол на чертеже...

[Хмурый]

из окружности, изобразающей отверстие, создать блок с точкой вставки в центре отверстия. (имя блока в примере 1)
возьми команду _measure (ПОДЕЛИТЬ) и дугу дугу блоками

_measure
Select object to measure:
Specify length of segment or [Block]: b
Enter name of block to insert: 1

Align block with object? [Yes/No] <Y>:

Specify length of segment: 20 (здесь укажешь длину полученной дуги над заданной хордой)

PS длину дуги снять с чертежа из её свойств. без вычислений

[Jonas]

здесь укажешь длину полученной дуги над заданной хордой

"Просто добавь воды"!
Если вычислил, замерил или украл длину дуги то и вопросов нет - _measure и поехали.
И зачем блок?

[Хмурый]

сразу их расположишь по дуге

[VVA]

Jonas,
1. Превращаешь дугу в дуговой сегмент полилинии.
2. Нужно скачать и установить Новые команды для работы с полилинией
3. PL-NoArc -Аппроксимация дуговых сегментов полилинии
4. См. опции и картинку

*** ДОБАВЛЕНО ***
Длина хорды будет точна до определенного знака, т.к. высчитывается по формулам.
Можно рисовать круги диаметром=диаметру хорды. Сначала из начальной точки, потом из точки пересечения предыдущего круга и так пока есть пересечения круга и дуги.

[Jonas]

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

[BM60]

Много чего еще будет многодельного. Значит надо привыкать.
Но, говорят, скоро выпустят малодельный Кад, типа шепнул ему фразу из ниспадающего списка и Кад амаганавенна это выполнил.
И замечательно будет и ничегонедельно будет...

[Zouss]

вот пока так

Код:

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

(defun c:da2c (/ lenc ed cp rl sa ea aa ca)

  (defun entmake_circle	(cp rr)
    (entmake (list (cons 0 "CIRCLE")
		   (cons 10 cp)
		   (cons 40 rr)
	     ) ;_  list
    ) ;_  entmake
  ) ;_  defun

  (setq
    lenc 50				;(getreal "задайте длину хорды:")
    ed	 (entget (ssname (ssget ":S" '((0 . "ARC"))) 0))
    cp	 (cdr (assoc 10 ed))
    rl	 (cdr (assoc 40 ed))
    sa	 (cdr (assoc 50 ed))
    ea	 (cdr (assoc 51 ed))
    lenc (/ lenc 2)
    aa	 (atan (/ lenc (sqrt (- (* rl rl) (* lenc lenc)))))
    aa	 (+ aa aa)
    ca	 sa
  )
  (while (< ca ea)
    (progn
      (entmake_circle (polar cp ca rl) lenc)
      (setq ca (+ ca aa))
    )
  )
  (* 180.0 (/ aa pi))
)

только срабатывает программка в случае если начальный угол дуги меньше конечного и обход делает против часовой стрелки, да и проверок никаких нет конечно же
как правильно определить направление обхода дуги никак собразить не получается - может подскажет кто?

[Jonas]

Что то не получается, пишет << _da2c ; ошибка: неверная строка режима ssget >>

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

Все верно, локализация не учтена. Была:

Код:

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

(defun c:da2c (/ lenc ed cp rl sa ea aa ca)

  (defun entmake_circle	(cp rr)
    (entmake (list (cons 0 "CIRCLE")
		   (cons 10 cp)
		   (cons 40 rr)
	     ) ;_  list
    ) ;_  entmake
  ) ;_  defun

  (setq
    lenc 50				;(getreal "задайте длину хорды:")
    ed	 (entget (ssname (ssget "_:S" '((0 . "ARC"))) 0))
    cp	 (cdr (assoc 10 ed))
    rl	 (cdr (assoc 40 ed))
    sa	 (cdr (assoc 50 ed))
    ea	 (cdr (assoc 51 ed))
    lenc (/ lenc 2)
    aa	 (atan (/ lenc (sqrt (- (* rl rl) (* lenc lenc)))))
    aa	 (+ aa aa)
    ca	 sa
  )
  (while (< ca ea)
    (progn
      (entmake_circle (polar cp ca rl) lenc)
      (setq ca (+ ca aa))
    )
  )
  (* 180.0 (/ aa pi))
)

[Jonas]

Пишет -
<< Команда: _da2c
Выберите объекты:
3.35207 >> и рисуеи окружности р=25.

[Zouss]

собственно направление обхода дуги и не нужно (кажется)
вот более работоспособный вариант

Код:

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

(defun c:da2c (/ lenc ed cp rl sa ea aa ca 2pi)

  (defun entmake_circle	(cp rr)
    (entmake (list (cons 0 "CIRCLE")
		   (cons 10 cp)
		   (cons 40 rr)
	     ) ;_  list
    ) ;_  entmake
  ) ;_  defun

  (defun while_proc (sa ea ca aa cp rl lenc / z)
    (while (< ca ea)
      (progn
	(entmake_circle (polar cp ca rl) lenc)
	(setq ca (+ ca aa))
      ) ;_  progn
    ) ;_  while
    (setq z ca)
    z
  ) ;_  defun

  (setq
    lenc (getreal "задайте длину хорды:")
    ed	 (entget (ssname (ssget "_:S" '((0 . "ARC"))) 0))
    cp	 (cdr (assoc 10 ed))
    rl	 (cdr (assoc 40 ed))
    sa	 (cdr (assoc 50 ed))
    ea	 (cdr (assoc 51 ed))
    lenc (/ lenc 2)
    aa	 (atan (/ lenc (sqrt (- (* rl rl) (* lenc lenc)))))
    aa	 (+ aa aa)
    ca	 sa
  ) ;_  setq
  (if (< ea sa)
    (setq ca (- (while_proc sa (setq 2pi (* 2 pi)) ca aa cp rl lenc) 2pi))
  ) ;_  if
  (while_proc ca ea ca aa cp rl lenc)
  (princ)
) ;_  defun

[Jonas]

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

[Zouss]

а это согласно условию изложенному в первом посте (ну или тому, как я его понял )

Сообщение от Jonas расположить отверстия по дуге с заданным растоянием по хорде

поподробнее опишите - что пользователь должен задавать, что прога сама должна вычислять, картинку с нужным результатом если приложите будет лучше всего

[Jonas]

"Расположить отверстия по дуге с заданным растоянием по хорде"
Вообщем то нужно поделить дугу на отрезки заданной длины по хорде, или выполнить круговой масив с заданным размером по хорде, смысл тот же.
Можно конечно делать вычислением но при этом результат не будет достаточно точным, в идеале графически.
Если бы в вашем коде каждый последующий круг строился с центром из точки пересечения предыдущенго круга с дугой, то все было бы в порядке и длина хорды соответствовала радиусу.