[alexander3]

здравствуйте товарищи! помогите с написанием программы на autolisp. рисунок прилагаю. в программе должно задаваться число "перекрестий", а размноживание их должно производиться с помощью операции repeat.
спасибо.

[E-degtyarev]

Сообщение от alexander3 в программе должно задаваться число "перекрестий"

А диаметры окружностей, "ширина" перекрестия задаваться не должны?

[gomer]

Что сложного-то?

[alexander3]

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

[Disney]

Сообщение от alexander3 просто размножить в ряд могу, а по кругу с поворотом угла вообще не втыкаю как сделать.

Значит с построением кружков и двух пересекающихся линий проблем нет?
Остаётся только размножить по кругу?
Если это единственная цель всей программы то посмотри команду МАССИВ(_array).
Если всё же надо программно, то:

• либо (command "_-array" ... ,
• либо (vla-ArrayPolar ...,
• либо открывать учебник по геометрии и вычислять все построения врукопашную.

[alexander3]

размножит по кругу надо с помощью команды repeat с указанием угла поворота. как это сделать? подскажите.
и если не сложно, то напишите полностью программу.

[Modis]

Сообщение от alexander3 размножит по кругу надо с помощью команды repeat с указанием угла поворота. как это сделать? подскажите. и если не сложно, то напишите полностью программу.

Такие функции уже были написаны - надо только поискать

[Disney]

Сообщение от alexander3 с помощью команды repeat

: crazy :
Это что, такое условие школьной задачи? repeat это как раз самое не принципиальное, что может быть в этом коде.

[alexander3]

в универе задали и да , именно с использованием этой операции. на форуме исккал и ничего не нашел.
в программе должны задаваться ширина и высота перекрестия, внешний диаметр и количество перекрестий, потом с помощью циклической операции repeat вписать данное количество перекрестий в окружность заданного диаметра. как это сделать, какой угол указывать при повороте? помогите пожалуйста.

[E-degtyarev]

Ежели для учебных целей, может сгодится?

Код:

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

 (setq cen  (getpoint "\nТочка вставки")
      rad  (getdist cen "\nРадиус")
      kol  (getint "\nКоличество")
      shr  (getdist "\nШирина")
      vis  (getdist "\nВысота")
      ugol (/ (* 2 pi) kol)
      ang  0
    ) 
(vl-cmdf "_circle" "_non" cen rad)
(repeat	kol
  (setq	pt1 (polar cen ang (sqrt (- (* rad rad) (* 0.25 shr shr))))
	pt2 (polar pt1 (+ ang (* pi 0.5)) (* shr 0.5))
	pt3 (polar pt1 (- ang (* pi 0.5)) (* shr 0.5))
	pt4 (polar pt2 (+ ang pi) vis)
	pt5 (polar pt3 (+ ang pi) vis)
	ang (+ ang ugol)
  ) 
  (vl-cmdf "_line" "_non" pt2 "_non" pt5 "")
  (vl-cmdf "_line" "_non" pt3 "_non" pt4 "")
) 

[alexander3]

E-degtyarev, спасибо, очень помог! но только перекрестиями заполняется не весь круг (см. прикрепленный файл) из-за чего это может быть. и ещё точки р1 и р2 это верх и низ наклонной линии?

[E-degtyarev]

Сообщение от alexander3 из-за чего это может быть.

Вероятно у тебя включены привязки. Немного подправил текст в #10- наставил "_non" для их принудительного отключения.
А насчет точек - это уж сам разберись. Должен же ты сам что-нибудь сделать? А то стопроцентная халява получается. Извини, не люблю, когда "на чужом горбу в рай въезжают".

PS: А зачем тебе круги диаметром 20 километров? Пришельцев встречать надумал?

[alexander3]

разобрался, спасибо!