AutoCAD. Масштабирование группы объектов относительно центра каждого из объектов?

AutoCAD. Масштабирование группы объектов относительно центра каждого из объектов?
Количество просмотров - 11336 (ссылка на эту тему)

Ahimsa

Участник форумов

Сейчас отсутствует

Сообщение #1 : 24 Августа 2010 года, 07:34
(ссылка на это сообщение)

Добрый день!
Не знаете, есть ли в автокаде такая функция (макрос), которая позволила масштабировать набор объектов таким образом, чтобы это происходило не относительно одной точки, а относительно точек (центра) каждого из объектов?
т.е., чтобы объекты не сдвинулись,как при обычном масштабировании

Инженер (Тюмень, Россия)

Антон Павлович

Куратор подраздела "AutoCAD Civil 3D"

Сейчас отсутствует

Сообщение #2 : 24 Августа 2010 года, 09:49
(ссылка на это сообщение)

любопытно узнать на будущее. а насколько сложные объекты? ведь не у каждого объекта так легко найти центр. Есть ли средни них блоки?

Инженер (Санкт-Петербург, Россия)

Ahimsa

Участник форумов

Сейчас отсутствует

Сообщение #3 : 25 Августа 2010 года, 07:53
(ссылка на это сообщение)

В моем случае- это высотные отметки в виде малых окружностей, заполненных штриховкой. Проблема в том, что изыскатели дают чертежи на которых есть две группы этих отметок (в разных слоях): одни достаточно крупные, другие мелкие,и те и другие нужно сделать одного размера, через фильтр слоев у меня не получилось выделить их. А на ситуационных планах отметок уйма, не буду же я каждую по отдельности масштабировать [непонятно]

Инженер (Тюмень, Россия)

Nkassandra

Куратор подраздела "Отопление"

Сейчас отсутствует

Сообщение #4 : 25 Августа 2010 года, 08:58
(ссылка на это сообщение)

А Сервис - быстрый выбор не получается тоже?
Они случайно не блоками сделаны?

Проектировщик подраздела ОВ (Минск, Беларусь)

Ahimsa

Участник форумов

Сейчас отсутствует

Сообщение #5 : 25 Августа 2010 года, 11:09
(ссылка на это сообщение)

Цитата

А Сервис - быстрый выбор не получается тоже?

- не получается, он не выделяет их
Как-то находила макрос: *^C^C_Scale;\\;\2- как будто бы тот, что нужен, но он, почему-то, не работает [грусть]

Сделаны не блоками, я же написала,что это окружности,заполненные штриховкой [подмигиваю]

Инженер (Тюмень, Россия)

Nkassandra

Куратор подраздела "Отопление"

Сейчас отсутствует

Сообщение #6 : 25 Августа 2010 года, 11:29
(ссылка на это сообщение)

тогда выход вижу

Цитата: Ahimsa от 25 Августа 2010 года, 12:09

А Сервис - быстрый выбор не получается тоже?
- не получается, он не выделяет их

очень странно... может быть слой заблокирован? По идее надо выбрать КРУГ и в свойствах изменить диаметр... ну со штриховкой сложнее будет [грусть]

Проектировщик подраздела ОВ (Минск, Беларусь)

Ahimsa

Участник форумов

Сейчас отсутствует

Сообщение #7 : 25 Августа 2010 года, 13:10
(ссылка на это сообщение)

Цитата

выбрать КРУГ и в свойствах изменить диаметр... ну со штриховкой сложнее будет

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

Инженер (Тюмень, Россия)

Антон Павлович

Куратор подраздела "AutoCAD Civil 3D"

Сейчас отсутствует

Сообщение #8 : 25 Августа 2010 года, 15:30
(ссылка на это сообщение)

а может можно сделать штриховку аннотативной и побаловаться с настройками?

Инженер (Санкт-Петербург, Россия)

Nkassandra

Куратор подраздела "Отопление"

Сейчас отсутствует

Сообщение #9 : 25 Августа 2010 года, 15:55
(ссылка на это сообщение)

Это идея... вот только сомнение - можно ли это сделать на уже готовых объектах? Я думала задавать надо вначале....

Проектировщик подраздела ОВ (Минск, Беларусь)

MIP

Куратор подраздела "GeoniCS"

Сейчас отсутствует

Сообщение #10 : 25 Августа 2010 года, 16:38
(ссылка на это сообщение)

Вот лиспик, должен помочь:

Код: (VVA)

(defun c:sm (/ ERRCOUNT MAXPT MINPT MIPT MNPT MXPT 
          OBJSET VLAOBJ PTLST XLST YLST old BASEPT Flg) 
 (vl-load-com) 
(if (and (setq VLAOBJ (car(entsel "\nВыберите образец для масштабирования "))) 
    (setq VLAOBJ (vlax-ename->vla-object VLAOBJ)) 
    ) 
  (progn 
  (vla-Highlight  VLAOBJ :vlax-true) 
  (initget 1) 
  (setq BASEPT (getpoint "\nБазовая точка масштабирования: ")) 
  (vla-GetBoundingBox VLAOBJ 'MinPt 'MaxPt) 
  (setq mnPt(vlax-safearray->list MinPt) 
     mxPt(vlax-safearray->list MaxPt) 
     miPt (polar mnPt (angle mnPt mxPt)(* 0.5 (distance mnPt mxPt)))) 
  (setq BASEPT (mapcar '- BASEPT miPt))    
  (if(not sm:scale)(setq sm:scale 1)) 
    (initget 6)    
    (setq old sm:scale 
          sm:scale(getdist 
         (strcat"\nУкажите масштабный коэффициент <"(rtos sm:scale 2 2)">: ")) 
   ); end setq 
  (if(null sm:scale)(setq sm:scale old)) 
  (vla-Highlight  VLAOBJ :vlax-false)    
  (setq errCount 0 ptLst 'nil Flg t); en setq 
  (while Flg 
    (princ "\n§§§ Выберите объекты и нажмите Enter или Esc для выхода. §§§") 
 (if 
   (not(setq objSet(ssget "_I"))) 
   (setq objSet(ssget)) 
   ); end if 
  (if objSet 
    (progn 
      (ssadd (vlax-vla-object->ename VLAOBJ) objSet) 
      (setq objSet 
       (mapcar 'vlax-ename->vla-object 
                    (vl-remove-if 'listp 
                     (mapcar 'cadr(ssnamex objSet))))) 
      (foreach obj objSet 
   (vla-GetBoundingBox obj 'MinPt 'MaxPt) 
    (setq mnPt(vlax-safearray->list MinPt) 
     mxPt(vlax-safearray->list MaxPt) 
     miPt (polar mnPt (angle mnPt mxPt)(* 0.5 (distance mnPt mxPt)))      
     )
     (if (vlax-method-applicable-p obj 'ScaleEntity)
     (if 
      (vl-catch-all-error-p 
   (vl-catch-all-apply 'vla-ScaleEntity 
     (list obj(vlax-3D-Point (mapcar '+ miPt BASEPT)) sm:scale))) 
      (setq errCount(1+ errCount)) 
      )
       )
   ); end foreach 
   (princ(strcat "\n" (itoa errCount) " объектов на блокированном слое! ")) 
   ) 
      ); if objset 
    (setq Flg nil) 
  ); end while 
  ))(princ))

Инженер (Минск, Беларусь)

MIP

Куратор подраздела "GeoniCS"

Сейчас отсутствует

Сообщение #11 : 25 Августа 2010 года, 16:40
(ссылка на это сообщение)

Цитата: Антон Павлович от 25 Августа 2010 года, 16:30

а может можно сделать штриховку аннотативной и побаловаться с настройками?

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

Инженер (Минск, Беларусь)

Антон Павлович

Куратор подраздела "AutoCAD Civil 3D"

Сейчас отсутствует

Сообщение #12 : 25 Августа 2010 года, 17:32
(ссылка на это сообщение)

Цитата: MIP от 25 Августа 2010 года, 17:40

Так ведь автор сказала, что окружности ее не интересуют. Хоть удаляй. То есть добиться аннотативностью штриховок нужных размеров, а потом восстановить контуры.

Инженер (Санкт-Петербург, Россия)

Ahimsa

Участник форумов

Сейчас отсутствует

Сообщение #13 : 26 Августа 2010 года, 13:17
(ссылка на это сообщение)

Цитата

Вот здесь прячется лиспик, должен помочь.

- а как им пользоваться\активировать? :

Пыталась загрузить,где приложения подгружаются, было написано,что файл успешно загружен, но почему-то команда не работала.

Инженер (Тюмень, Россия)

MIP

Куратор подраздела "GeoniCS"

Сейчас отсутствует

Сообщение #14 : 27 Августа 2010 года, 11:51
(ссылка на это сообщение)

Цитата: Ahimsa от 26 Августа 2010 года, 14:17

- а как им пользоваться\активировать?

Цитата: Ahimsa от 26 Августа 2010 года, 15:15

Пыталась загрузить,где приложения подгружаются, было написано,что файл успешно загружен, но почему-то команда не работала((((

После загрузки файла необходимо набрать sm в командной строке.

Инженер (Минск, Беларусь)

Ahimsa

Участник форумов

Сейчас отсутствует

Сообщение #15 : 27 Августа 2010 года, 12:41
(ссылка на это сообщение)

Спасибо большое- это то,что я искала!!!!!!!!

может заодно подскажете лисп для подобной команды: группу объектов развернуть на заданный угол, т.о, чтобы каждый объект развернулся относительно своего центра :

Инженер (Тюмень, Россия)

Страниц: [1] 2 Все Вверх

ВЕРСИЯ ДЛЯ ПЕЧАТИ

www.proektant.org > ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ AUTODESK > AutoCAD, AutoCAD LT и СПДС модуль Autodesk (Куратор: doctorRaz) >

Контактные данные\| Партнёрская программа \| Подробная статистика
Настройка форумов © «Проектант» \| Конфиденциальность данных Powered by SMF 1.1.23 \| SMF © 2017, Simple Machines