[DFooz]

Есть окружность, надо разбить на определённое кол-во частей и подписать номера частей(1, 2...и до послейдней части). Как написание номеров осуществить? В ЛИСПе ничего не знаю. Посоветуйте, пож-та, также где можно почитать о нём, книжку какую-нибудь?

[T-Yoke]

Сообщение от DFooz Есть окружность, надо разбить на определённое кол-во частей и подписать номера частей(1, 2...и до послейдней части). Как написание номеров осуществить? ...

Без ЛИСПа это можно сделать круговым массивом. Делаем надпись номера нужным форматом, размещаем возле нужной точки, делаем круговой массив без поворота текста (или с поворотом, если нужно), и исправляем каждый номер.
Не изящно правда, но работает.

[DFooz]

T-Yoke, я так и сделал, но хотелось бы всё автоматом=)

[Profan]

Простая программа:

Код:

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

(defun C:DIVNUM ( / ent kol po n nm pt)
(setq ent (entsel "\nВыберите объект: "))
(if ent
    (progn
    (setq ent (car ent))
    (setq kol (getint "\nКоличество делений: "))
    (command "_DIVIDE" ent kol)
    (setq po (ssget "_P"))
    (setq n 0)
    (repeat kol
            (setq nm (ssname po n))
            (setq pt (cdr (assoc 10 (entget nm))))
            (command "_TEXT" "_none" pt "" "" (itoa (1+ n)))
            (setq n (1+ n))
;           (entdel nm)
    )
    )
    (princ "\nОбъект не выбран.")
)
(princ)
)

Можно делить не только окружность, но тогда выпадают начальная и конечная точки. Если убрать ; в строке

Код:

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

;           (entdel nm)

то точки деления сотрутся.

[DFooz]

Спасибо