[B2Slow]

Нужно одним кликом создать набор UCS, повернутых вокруг Z на 90 град., с шагом 10 градусов и одновременно проименовать их.
Можно ли сделать это макросом, т.к. придется проделывать это для каждого файла целому отделу?..
И еще бы, так же легким движением руки (можно в том же макросе) установить во всех layout-ах UCSFOLLOW=1. Напишите кому не трудно, на худой конец лиспом.
Заранее извиняюсь за потребительское отношение, освоить лисп абсолютно не хватает времени.

[Лентяй]

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

Код:

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

(defun C:ucs (/ n)
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
        css (vla-get-UserCoordinateSystems adoc)
        n 1)
  (foreach x (mapcar '(lambda (x) (/ (* pi x) 180)) '(10 20 30 40 50 60 70 80 90))
    (vla-add css (vlax-3d-point '(0.0 0.0 0.0))
      (vlax-3d-point (list (cos x) (sin x) 0.0))
      (vlax-3d-point (list (* -1 (sin x)) (cos x) 0.0))
      (strcat "UCS" (itoa n)))
    (setq n (1+ n)))
);end

[Apelsinov]

:shock:

[Лентяй]

Чего :shock: ? Нечего тут делать большие глаза, панимаш. Готовь лучше сачок с неводом всяко-разное отлавливать, раз люди просют :!:

[B2Slow]

Спасибо. Оно еще и работает!!!:shock:
Только UCS - это ведь название стандартной акадовской команды?.. Пришлось переименовывать. И эта.. с UCSFOLLOW никак?

[Apelsinov]

Лентяй
А фигли тут ловить-то?

[Лентяй]

B2Slow: Только UCS - это ведь название стандартной акадовской команды?

Незачем это баловство . UCS используется как строкоы - фрагмент имени новой координатной системы. Так что никакого смешения имен не происходит.

И эта.. с UCSFOLLOW никак?

Пока чой-то никак. Может после озарение, тскть, и снизойдет, а пока... Пусть теперь кто другой мается. У нас вона - новые гуры появились...

[B2Slow]

Лентяй, тут еще тех условия немного поменялись Понадобился угол от 270 до 90 (1 и 4 четверть). Помоги пожалуйста с проименованием. Углы вроде как добавил в список (

Код:

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

mapcar '(lambda (x) (/ (* pi x) 180)) '(10 20 30 40 50 60 70 80 90 -10 -20 -30 -40 -50 -60 -70 -80 -90)

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

[B2Slow]

B2Slow: Только UCS - это ведь название стандартной акадовской команды? Незачем это баловство . UCS используется как строкоы - фрагмент имени новой координатной системы. Так что никакого смешения имен не происходит.

Чегой-то я тогда недопонимаю.. А запускать тогда как?! Я всегда запускал именем , которое стоит после defun C:
Аааа, ты имеешь в виду тот, который в названии ПСК? Не, он не беспокоит. Я про тот, что в начале..
:?:

Сообщение от Лентяй Может после озарение, тскть, и снизойдет, а пока... Пусть теперь кто другой мается. У нас вона - новые гуры появились...

Видимо, другие гуры, судя по твоим словам, уже на недосягаемом уровне. Отлавливают баги в чужих кодах

[Лентяй]

B2Slow: Буду признателен, если привяжешь название UCS к вычисляемому углу.

Замени строку, начинающуюся с (strcat "UCS" на

Код:

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

(strcat "UCS" (itoa n) "(" (rtos (* (/ x pi) 180) 5) ")"))

и будет тебе с начальникон твоим щастье - с порядковым номером и углом вместе.

[B2Slow]

Замени строку, начинающуюся с (strcat "UCS" на Код: (strcat "UCS" (itoa n) "(" (rtos (* (/ x pi) 180) 5) ")")) и будет тебе с начальникон твоим щастье - с порядковым номером и углом вместе.

АМИНЬ.. :P

Спасибо за помощь.

[B2Slow]

Лентяяаааааай!!
А это в 2002 что, не будет работать?!:shock: