[b_anton]

(princ "Новая функция: mLR")
(defun C:MLR ( / p1 p2 LenArc LenHord k i kx ky diff Rad)
(setq p1 (getpoint "\n Укажите первую точку хорды:"))
(setq p2 (getpoint p1 "\n Укажите вторую точку хорды:"))
(command "_PLINE" p1 p2 "")
(setq LenHord (distance p1 p2))
(initget 7)
(setq LenArc (getdist "\Укажите длину дуги: "))
(if (< LenArc LenHord)
(princ "\n Длина дуги меньше длины хорды!")
(progn
(setq k (/ LenHord (* 2 LenArc)))
(setq i 0.5)
(while (< i 180)
(setq kx (sin (/ (* i Pi) 360)))
(setq ky (/ (* k i Pi) 180))
(setq diff (abs (- (rtos kx 2 6) (rtos ky 2 6))))
(If (< diff 0.0000001) (progn
(setq Rad (/ LenHord (* 2 (sin (/ (* i Pi) 360)))))
(command "_arc" p1 (progn
(command "_e" p2)
(command "_r" Rad));end progn
);end command
(setq i 180)
);end progn
(setq i (+ 0.0001 i))
);end if
);end while
);end progn
);end if
(princ)
);end defun

Нужна помощь!
Пишет следующее ; ошибка: неверный тип аргумента: numberp: "0.004363"
Может кто подскажет как правильно округлить переменные кх и кy

[Disney]

Сообщение от b_anton (- (rtos kx 2 6) (rtos ky 2 6))

rtos
real to string
(вещественное число в строку)
А аргументами функции вычитания - не могут быть строки

[b_anton]

тогда каким способом округлить?

[Disney]

Сообщение от b_anton тогда каким способом округлить?

Зачем?
А вообще вот так, до 6 знаков после запятой

Код:

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

(setq kx (/ (fix (* 1000000 kx)) 1000000.0))

[b_anton]

Спасибо! без округления прога считает не корректно при некоторых заданных параметрах

[b_anton]

доработанный код

;*************** mLR.lsp *************************************************
;Построение дуги по заданным параметрам
;-------------------------------------------------------------------------
;Параметры:
;P1, P2 — начальная и конечная точка хорды
;LenArc — длина дуги
(princ "Новая функция: mLR")
(defun C:MLR ( / p1 p2 LenArc LenHord k i kx ky diff Rad)
(setq p1 (getpoint "\n Укажите первую точкку хорды:"))
(setq p2 (getpoint p1 "\n Укажите вторую точку хорды:"))
(setq LenHord (distance p1 p2))
(initget 7)
(setq LenArc (getdist "\Укажите длину дуги: "))
(if (< LenArc LenHord)
(princ "\n Длина дуги меньше длины хорды!")
(progn
(setq k (/ LenHord (* 2 LenArc)))
(setq i 0.5)
(while (<= i 180)
(setq kx (sin (/ (* i Pi) 360)))
(setq ky (/ (* k i Pi) 180))
(setq diff (abs (- (/ (fix (* 1000000 kx)) 1000000.0) (/ (fix (* 1000000 ky)) 1000000.0))))
(If (< diff 0.0000001) (progn
(setq Rad (/ LenHord (* 2 (sin (/ (* i Pi) 360)))))
(command "_arc" p1 (progn
(command "_e" p2)
(command "_r" Rad));end progn
);end command
(setq i 180)
);end progn
(setq i (+ 0.0001 i))
);end if
);end while
);end progn
);end if
(princ)
);end defun

Важно: Прога строит дуги по стягивающим углам от 0,5 до 180 град! Не удивляйтесь если для построения дуги с углом порядка 175 град придется немного подождать, т.к. проверка углов происходит с шагом 0,0001 град. Разница длины построенной дуги от введенного значения тысячные доли милиметра. Если по введенным параметрам дуга расчитывается с углом больше 180, она не строится и прога просто завершает работу. На этот случай никакого сообщения не выводится!

Рекомендации по доработке приветствуются

[Александр Ривилис]

Сообщение от b_anton Рекомендации по доработке приветствуются

Сразу (без цикла) вычислить радиус и центр дуги (тригонометрия).

[b_anton]

насколько мне известно в тригонометрии нет единой формулы которая бы связывала хорду длину дуги и радиус....

[Елпанов Евгений]

b_anton, воспользуйся примерами

[gomer]

Сообщение от Елпанов Евгений b_anton, воспользуйся примерами

Примеры в общем то не подходят в данном случае... или я что-то пропустил?

[VVA]

Сообщение от b_anton насколько мне известно в тригонометрии нет единой формулы которая бы связывала хорду длину дуги и радиус....

Тригонометрия (открывать в IE)

[b_anton]

Парни спасибо за полезную информацию