Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Autodesk → AutoCAD → AutoCAD 2004. Как сгруппировать объекты?
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сейчас работаю В AutoCad 2004 (eng), а до этого был у меня 2000 LT, так вот в нем можно было сгруппировать выделенные объекты достаточно быстро - Выделяю, к примеру линии, нажимаю правую кнопку мыши, там в контексте команда "группировать" и всё, очень удобно было. А в 2004 этого нет. Подскажите как достать эту команду.
Введи с клавиатуры
g
и ввод. Должно помочь...
Да я так уже пробовал, появляется окно Object Grouping, в котором нужно вводить имя создаваемой группы, описание и т.д, а мне это нен нужно.
Ну, положим, что описание можно и не вводить.
А что касается имени- допустимы и просто цифры, типа:
1
,
2
или
3
> Мишаня
Ну имя, в любом случае, вводить надо (хоть циферку) для различия групп...
Я делал кнопарь с таким макросом (-group c * ;) без скобок, для группировки в безымянную группу. Нажал кнопарь и он сразу предлагает выбрать объекты.
Потом такой лиспиик сляпал. Я не силен в лиспе, пусть меня поправят.
(defun C:gg () (progn (command "-group" "c" "*" ";") ) ) (princ)
Вариант группировки, но с обработкой предварительного выбора (сделано на коленке):
(defun c:gg (/ selset)
(if (setq selset (ssget "_I"))
(progn
(command "_.-group" "_c" "*" "")
(while (and selset
(> (sslength selset) 0)
(setq item (ssname selset 0))
) ;_ end of and
(command item)
(ssdel item selset)
) ;_ end of while
(command "")
) ;_ end of progn
(command "_.-group" "_c" "*" "")
) ;_ end of if
(sssetfirst nil nil)
(princ)
) ;_ end of defunПредыдущий пост - мой.
Кто-то в Лиспе не силен, а я ваще не силен.
Но проще сделать, я так понимаю никак!? 
(
У меня в 2000 каде не надо было вводить никаких описаний, обекты просто группировались, и одним нажатием разгруппировывались.
Этим лиспом пользуюсь много лет, проблем не было.
Единственное возможны лаги из-зи формата сообщений.
Но это каждый может поправить сам.
;************************************************
; Группировка и разгруппировка объектов.
; аналог Сorel-овских команд Group b UnGroup.
;************************************************
; AutoCAD R14, 2000
; Автор : Пурошев Сергей
; Донецкий центр союза архитекторов Украины "Среда"
; E-mail psw@asc.inep.net
;******************************************************************
; Пример вызова из меню
; [Разгруппировка ]^C^C(load "Разгруппировка") (PSW "-")
; [Группировка ]^C^C(load "Группировка") (PSW "+")
;************************************************
(defun PSW (PARAM / A A1 A2 A200 A220 A3 A4 A5 A6 A7 I N NAME)
(setvar "CMDECHO" 0)
(if (= PARAM "-")
(progn
(prompt "\nВыбери группу: ")
(setq A (car (entsel)))
(setq A1 (entget A))
(setq A200 (cdr (assoc 330 A1)))
(setq A2 (cdr (assoc 330 A1)))
(setq A3 (entget A2))
(setq A4 (cdr (assoc 330 A3)))
(setq A5 (entget A4))
(setq A6 (cdr (assoc 330 A5)))
(setq A7 (entget A6))
;********************************************************
(setq I 0)
(setq N (length A5))
(repeat N
(setq A220 (cdr (nth I A5)))
(if (eq A220 A200)
(progn
(setq NAME (cdr (nth (- I 1) A5)))
))
(setq I (+ I 1))
)
(command "-group" "e" NAME)
(prompt "\nОбъекты разгруппированы.")
(princ)
))
;********************************************************
(if (= PARAM "+")
(progn
(prompt "\nВыбери объекты для группировки: ")
(setq A (ssget))
(command "-group" "c" "*" "" A "")
(prompt "\nОбъекты cгруппированы !")
))
;********************************************************
(princ)
)
> Nino
Для локализованной версии переделать смог (ну это просто, добавить лишь _ и к командам, и к аргументам), но вот какой момент:
- если выбрать объекты, а потом нажать кнопку группировки, то всё срабатывает
- а если выбрать группу и нажать на разгруппировку, то не работает — обязательно нужно делать наоборот: сначала нажимать кнопку, а потом выбирать группу.
Мелочь, но хотелось бы исправить, т.к. привык сначала выбирать объект, а потом запускать команду.
Ещё странный момент — создал 3 группы, решил потом вывести и поглядеть на их имена, но чего-то не хочется ему:
Имена каких групп вывести <*>: * Описанные группы. Выбираемые
…и никаких имён. Странно.
Господа программисты, я выше писал lisp где нажал "gg" - выбор объектов и все группа готова, а я придумал посложнее: "gg" - выбор - если объектов - группа готова, а если уже объектов сгруппированных то добавление в эту группу. Т.е. предлагается выбор - выбираем объекты, группы - все вместе и на выходе получается одна группа из всех объектов. Группы попавшие в выбор - бомбятся. Причем важна простота т.е. одно нажатие "gg" - выбор объектов и все группа готова, без лишнего диалога. Можете? пожалуйста.
> SStas
так <*> - это безымянные группы 
> ASYS
У меня вопрос - если в выбор попали и просто примитивы, и группы - чего тогда делать? И как поступать со вложенными группами (если вдруг таковые будут)?
Вот так наглым образом причислил себя к программистам :)
Я сам не автор. К автору - смотри комментарий в лиспе.
По поводу
- если выбрать объекты, а потом нажать кнопку группировки, то всё срабатывает
- а если выбрать группу и нажать на разгруппировку, то не работает — обязательно нужно делать наоборот: сначала нажимать кнопку, а потом выбирать группу.
- согласен не очень удобно, но я не знаю лисп, чтобы дорабатывать чужие проги.
Посему просьба к головастым лисперам доработать лиспик с учетом всего выше изложенного.
Для меня главное, что работает и работает одномайственно что в Corel, что в AutoCAD.
> kpblc
Хоть и пытался внятно объяснить все равно не понял :) Группы попавшие в выбор - бомбятся и потом освободившиеся объекты группируются с другими попавшими в выбор в одну новую группу. По умолчанию если в выбор попали и просто примитивы, и группы то получается группа в группе с разными именами *A...(чего то там)+*A2...(чего то там)+примитивы. А надо чтоб в списке имен груп меньше хлама собиралось. Пожалуйста не забывай про простоту ввода. При рутинной работе по сто раз вызывая команду - напрягает даже один лишний шаг в диалоге.
я вообще делаю так: на панели "правка тел" выбераю функцию "союз" выделяю объекты, те что надо, затем ввод и всё ok!
Ийээх, жалко, что времени нет. В общем, приведенный Noni код производит разгруппировку объектов, но не сносит запись о группе. Это понятно, надо дополнительно проходить по неграфическим элементам, и их чистить. Где-то здесь вроде как тема была, только найти не могу.
> Kenko
Не надо путать union объектов и group - это разные вещи.
> kpblc
Не это ли ищешь? https://www.caduser.ru/forum/topic20923.html
> AY
Ага. Вот и функция разгруппировки есть... И функция снесения имен групп... Лафа!
Из перечисленного выше формулирую Тех.Задание для тех, у кого есть время и желание:
1. Разгруппировка должна работать независимо от порядка выбора объекта (до или после команды);
2. После разгруппировки должны сносится все записи о разгрупперованной группе.
Ждём с нетерпением ...
> kpblc
Ага. Вот и функция разгруппировки есть... И функция снесения имен групп... Лафа!
Хотелось бы увидеть результат, или, хотя-бы, обнадежиться, что он когда-нибудь будет. :)
Вот в лиспике от Nino, подскажите, как его запускать. Сам лисп я установил куда надо и загрузил, но запустить не знаю как. Какую команду написать, чтобы его вызвать. Что значит PSW"+" и PSW"-", объясните "на пальцах", плз. У меня 2006АСАД. Извините за ламерский вопрос
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Autodesk → AutoCAD → AutoCAD 2004. Как сгруппировать объекты?
Форум работает на PunBB, при поддержке Informer Technologies, Inc
