[peshkoff]

У выделенных дуг/окружностей нужно увеличить радиус в 2 раза.
как?
радиусы разные.

[Maksim7enov]

Если объектов мало то можно сделать макросом
^C^C_scale;\\;\2
Макрос для команды масштабирование в 2 раза. Придется выбирать объекты по одному и масштабировать.

[Bull]

peshkoff, штатно - никак!

Создайте тему в "программирование". Т.к. это, по сути, масштабирование, то тут нужен будет какой-то реактор (извините, если неправильно выразился), который бы перебирал все дуги/окружности на выделенном участке и для каждого поочередно бы проводил масштабирование относительно его центра.

[Кулик Алексей aka kpblc]

... и все это будет работать, пока не встретится полилиния с дуговым сегментом. Или сплайн. Или блок

----- добавлено через 46 сек. -----
Меня больше волнует вопрос - зачем выполнять масштабирование ровно в два раза?

[Bull]

Кулик Алексей aka kpblc, вариантов "почему" можно придумать кучу (например, нанес человек некие условные знаки на местности, но выяснилось, что плохо читаются, надо укрупнить, не трогая саму местность). Но зачем? Надо и надо...

[Кулик Алексей aka kpblc]

Вообще-то нормальные "условные обозначения", как правило, делаются блоками

[Boxa]

Штатными средствами никак... не штатными как то так

Код:

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

 (defun C:sc ( / obj r ent)
  (while (setq obj (entsel "\npick object"))
    (if (and obj (= (cdr (assoc 0 (entget (car obj)))) "ARC"))
      (progn
	(setq ent (vlax-ename->vla-object (car obj)))
	(setq r (vla-get-Radius ent))
	(vla-put-radius ent (* r 2.))
       )
    ) ; if
  )
)

Offtop: Прошу прощения за свой французский, это мой первый скрипт на lisp

[peshkoff]

Сообщение от Boxa Штатными средствами никак... не штатными как то так Код: [Выделить все] (defun C:sc ( / obj r ent) (while (setq obj (entsel "\npick object")) (if (and obj (= (cdr (assoc 0 (entget (car obj)))) "ARC")) (progn (setq ent (vlax-ename->vla-object (car obj))) (setq r (vla-get-Radius ent)) (vla-put-radius ent (* r 2.)) ) ) ; if ) ) Offtop: Прошу прощения за свой французский, это мой первый скрипт на lisp

спасибо!
Только проблема в том. что нужно это заставить работать в LT...
я думал к 17-18 версиям уже сочинили что-то типа таблицы объектов..

----- добавлено через ~3 мин. -----

Сообщение от Кулик Алексей aka kpblc ... и все это будет работать, пока не встретится полилиния с дуговым сегментом. Или сплайн. Или блок

Только дуги.

----- добавлено через 46 сек. ----- Меня больше волнует вопрос - зачем выполнять масштабирование ровно в два раза?

специфика такая. таким образом передаются данные из pcb.
там отверстия нарисованы полилиниями шириной равной радиусу отверстия.
когда я полилинии разбиваю, они превращаются в дуги с радиусом 1/2 от необходимого.

[Boxa]

Сообщение от peshkoff Только проблема в том. что нужно это заставить работать в LT...

Вот это поворот!

[Maksim7enov]

Сообщение от peshkoff Только проблема в том. что нужно это заставить работать в LT...

Макрос почему не подходит? Его быстрее написать чем лисп. Их в LT применять не запрещено. Создал на палитре новую команду и в свойствах указал макрос начал делать.

[peshkoff]

Сообщение от Maksim7enov Макрос почему не подходит? Его быстрее написать чем лисп. Их в LT применять не запрещено. Создал на палитре новую команду и в свойствах указал макрос начал делать.

Тот макрос, что указан выше - не работает.
Я то думал, что в lt разрешили... ни фига себе была б революция

[Maksim7enov]

Сообщение от peshkoff Тот макрос, что указан выше - не работает.

еще раз проверил у себя все работает.
На сайте есть тема "мои макрокоманды". Найдите ее, там много полезного для LT найдете.
Для выбора рамой или просто кликом (кликнуть на 2 объекта)

Код:

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

 ^C^C_scale;\\;\2

Для выбора кликом на один объект

Код:

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

 ^C^C_scale;\;\2

Создайте новую команду для этого макроса и все.
https://dwg.ru/pub/6
Я делаю так.
1. Создаю новую команду и называю ее "временная".
2. Перетаскиваю ее на палитру инструментов.
3. Если мне надо поменять макрос в этой команде или просто изменить текст макроса, я захожу на палитре инструментов в свойства моей команды и в графе командная строка меняю макрос или вставляю другой.
P/S/ Да и еще, если перед макросом поставить звездочку (*) то он будет повторяться без вызова, пока не сделаете отмену команды.

[peshkoff]

Сообщение от Maksim7enov еще раз проверил у себя все работает.

Макрос из сообщения #8 работает в LT?
Мне автокад пишет, что не допускается.

На сайте есть тема "мои макрокоманды". Найдите ее, там много полезного для LT найдете. Для выбора рамой или просто кликом (кликнуть на 2 объекта) Код: [Выделить все] ^C^C_scale;\\;\2 Для выбора кликом на один объект Код: [Выделить все] ^C^C_scale;\;\2 Создайте новую команду для этого макроса и все. https://dwg.ru/pub/6 Я делаю так. 1. Создаю новую команду и называю ее "временная". 2. Перетаскиваю ее на палитру инструментов. 3. Если мне надо поменять макрос в этой команде или просто изменить текст макроса, я захожу на палитре инструментов в свойства моей команды и в графе командная строка меняю макрос или вставляю другой. P/S/ Да и еще, если перед макросом поставить звездочку (*) то он будет повторяться без вызова, пока не сделаете отмену команды.

Мне не масштабирование нужно, а увеличение диаметра окружностей.

[Bull]

Сообщение от peshkoff Мне не масштабирование нужно, а увеличение диаметра окружностей.

увеличение диаметра окружности при неизменном центре = масштабирование окружности относительно его центра. Ваш КО

[Maksim7enov]

Сообщение от peshkoff Мне автокад пишет, что не допускается.

вы команду создали? У меня на старой работе был LT и макросы он поддерживал. А увеличение диаметра в 2 раза в LT можно выполнить лишь за счёт макроса масштабирования (может я ошибаюсь и есть ещё методы)

[peshkoff]

Сообщение от Bull увеличение диаметра окружности при неизменном центре = масштабирование окружности относительно его центра. Ваш КО

отл.
но эту операцию нужно сделать для 1000+ окружностей

[Bull]

Сообщение от peshkoff но эту операцию нужно сделать для 1000+ окружностей

так вам и советуют сделать на это макрос. Останется только кликать на каждый по разу

[Хмурый]

peshkoff, а что ты хочешь от LT?

[Maksim7enov]

Вам сделали ЛИСП и дали макрос, остаётся только сделать выбор чем пользоваться)
Может просто дома установить не LT, выделить все Ваши объекты и дать ЛИСПу сделать своё дело?

[Хмурый]

сейчас. появилась одна идея...
Нет, не получится. Хотел через смену пространства сыграть, но, если все дуги выбрать, то они при изменении масштабов видового экрана расползутся и перемещении из листа в модель расползутся.