Autolisp Начертить полуокружность

@Karkat · Регистрация: 26.12.2011

Здравствуйте. Надо начертить полуокружность с центром в заданной точке. Длина и высота прямоугольной части фигуры задается пользователем, диаметр тоже, т.е. точки р1 и р2 не фиксированы и изменяются в зависимости от диаметра и высоты, так что команда arc не катит, потому что требует задания координат начала дуги. Как можно задать эту полуокружность, зная только ее центр и прямую, которая пересекает ее?

@Vlad999 · 02.06.2014, 10:43

почему же arc не опдходит?
1. _arc
2. ПКМ - Центр
3. координаты 0.0
4. следующее значение равно радиусу,вводим его и жмем Tab, вводим угол

Код

ASIN(В/2/R)*180/ПИ()

5. задаем угол найденный по формуле.

Код

180-2*(ASIN(В/2/R)*180/ПИ())

, где В-высота прямоугольника, R - радиус круга.
как это записывается на лиспе не скажу.

@VH · 03.06.2014, 16:56

Lisp

(defun C:F ()
 ((lambda (P D H)
   ((lambda (delta)
     ((lambda (alpha gamma)
       (entmake
        (mapcar 'cons
         (list 0 100 100 10 40 210 100 50 51)
         (list "ARC" "AcDbEntity" "AcDbCircle" P (* 0.5 D) '(0 0 1) "AcDbArc" alpha (+ alpha (* 2 gamma))))))
      (atan H delta)
      (atan delta H)))
    (sqrt (- (* D D) (* H H)))))
  (getpoint "\nCenter point: ")
  (getdist "\nDiameter: ")
  (getdist "\nHeight: "))
 (prin1)
)

@Karkat · 03.06.2014, 17:07 **[ТС]**

Спасибо за ответы! Решил задачу с помощью теоремы Пифагора и функции arc с параметрами центр, начало, конец

Lisp

(setq pt5 (list (+ (nth 0 pt1) (/ L1 2)) (+ (nth 1 pt1) (/ H1 2))))
(setq pt6 (list (- (nth 0 pt5) (sqrt (- (expt (/ D2 2) 2) (expt (/ H1 2) 2)))) (nth 1 pt3)))
(setq pt7 (list (+ (nth 0 pt5) (sqrt (- (expt (/ D2 2) 2) (expt (/ H1 2) 2)))) (nth 1 pt3)))
 
(command "_arc" "_c" pt5 pt7 pt6)

@~~ur_naz~~ · 06.06.2014, 22:53

Вообще-то, для рисования таких деталей есть команда _pline

@Karkat 1 / 1 / 1 Регистрация: 26.12.2011 Сообщений: 46
		1
	Autolisp Начертить полуокружность 01.06.2014, 20:36. Показов 2778. Ответов 4 Метки нет (Все метки) Здравствуйте. Надо начертить полуокружность с центром в заданной точке. Длина и высота прямоугольной части фигуры задается пользователем, диаметр тоже, т.е. точки р1 и р2 не фиксированы и изменяются в зависимости от диаметра и высоты, так что команда arc не катит, потому что требует задания координат начала дуги. Как можно задать эту полуокружность, зная только ее центр и прямую, которая пересекает ее? Миниатюры __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Vlad999 3566 / 2193 / 737 Регистрация: 02.11.2012 Сообщений: 5,778
	02.06.2014, 10:43	2
	почему же arc не опдходит? 1. _arc 2. ПКМ - Центр 3. координаты 0.0 4. следующее значение равно радиусу,вводим его и жмем Tab, вводим угол Код ASIN(В/2/R)180/ПИ() 5. задаем угол найденный по формуле. Код 180-2(ASIN(В/2/R)*180/ПИ()) , где В-высота прямоугольника, R - радиус круга. как это записывается на лиспе не скажу. 1

@~~ur_naz~~ Заблокирован
	06.06.2014, 22:53	5
	Вообще-то, для рисования таких деталей есть команда _pline 0

Опции темы