[kserg]

Может кто имеет опыт работы с группами (образуемыми
командой "_GROUP"/"ГРУППА") объектов ? Подскажите
(посоветуйте) пожалуйста...

Создается группа объектов, предположим, текстовых строк
(однострочных текстовых примитивов).
Группа естественно имеет имя.
Необходимо в чертеже хранить данные касательно максимальной
(заданной пользователем при создании группы) ширины
текстовых строк в единицах рисунка (например, 150) для этой
группы, чтобы при редактировании ее (группы) учитывалась
вышеупомянутая ширина.
О команде "_MTEXT"/"МТЕКСТ" мне известно, но речь идет
об однострочном тексте.

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

Спасибо.

[VVA]

Если группа имеет имя, пусть оно будет информативным
Например:
MYGROUP_150_1
MYGROUP-твоя сигнатура
150 - ширина
1 - индекс уникальности

[Елпанов Евгений]

Есть еще один способ, почему то редко используемый...
Можно создать в "color book" свою таблицу цветов с нормальными названиями...
Из плюсов - легко фильтровать по цвету
Из минусов - для передачи на другой компьютер нужно передавать и цвет.

[kserg]

>Елпанов Евгений Чт Янв 26, 2006 13:22

Можно создать в "color book" свою таблицу цветов

А это о чем?


>VVA

Если группа имеет имя, пусть оно будет информативным

Спасибо. Была и такая мыслишка...



Может еще кто что подскажет?

[Елпанов Евгений]

Если открыть окно выбора цвета и перейти на последнюю вкладку с пантонами, то увидишь готовую реализацию...
Есть возможность добавить туда свои цвета, причем цвет может быть и один, разные его названия
Создавать новые наборы цветов можно в безплатной програмке от автодеска, называется
"AutoCadBookEditor", а файл (установочный) ACBEditor.exe 2,23 МБ (2*341*352 байт)
Это в той версии, что я использую, возможно давно появилоась новая версия...

[fixo]

Я тут по слабости ума чего не понимаю, но данные о группе
нигде не надо хранить, они сами спокойно себе хранятся в
словаре групп, а вместо описания группы можешь задать любую
текстовую строку (а хотя бы и список в виде строки):

Код:

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

(setq data nil)
(setq grp_dict (dictsearch (namedobjdict) "ACAD_GROUP"))
(while (setq datum (assoc 3 grp_dict))
    (setq gname (cdr datum))
    (setq grp_ent (cdr (assoc 350 (member datum grp_dict))))
    (setq grp_list (entget grp_ent))
    (setq gdesc (cdr (assoc 300 grp_list)))    
    (setq data (cons (cons gname gdesc) data))
    (setq grp_dict (cdr (member (assoc 3 grp_dict) grp_dict))))
(setq data (reverse data))
(alert (apply 'strcat (mapcar (function (lambda (x)
	(strcat (vl-prin1-to-string x) "\n")))
	       data)))

Копай глубже, может еще чего найдешь

[kserg]

>VVA
>Fatty

Оба предложения достойны внимания, но лишь при условии,
что юзверю не взбредет потом в голову переименовывать
группы или(и) менять их описание, что вполне реально
(с помощью команды "_GROUP"/"ГРУППА").

[Александр Ривилис]

Храни в расширенных данных группы - пользователь вручную испортить эти данные не сможет.

[kserg]

А как насчет X-записей?
Или это выльется в те же (Lisp-)затраты, что и при использовании
расширенных данных (в смысле - что в лоб, что по лбу...)?

Спрашиваю потому, что ни расширенными данными ни X-записями
(обходился как-то...) ранее не пользовался.

[Александр Ривилис]

С расширенными данными в данном случае работать будет значительно проще.

[fixo]

Сообщение от kserg А как насчет X-записей? Или это выльется в те же (Lisp-)затраты, что и при использовании расширенных данных (в смысле - что в лоб, что по лбу...)? Спрашиваю потому, что ни расширенными данными ни X-записями (обходился как-то...) ранее не пользовался.

См. здесь:
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=21053aM

~'J'~

[kserg]

Да, похоже лучше - расширенные данные.

Расширенные данные :
-- удалятся (стирается) группа примитивов, значит автоматом удаляются расширенные данные, "навешенные" на эту группу.

X-записи :
-- удалятся (стирается) группа примитивов, а X-записи для этой
группы в чертеже остаются.

Так кажется?

[kserg]

Всем большое спасибо!

Новое поколение выбирает расширенные данные!

[Александр Ривилис]

Сообщение от kserg Новое поколение выбирает расширенные данные!

Здравое решение конкретной проблемы!

[kserg]

Жалко вот только - осталась "за кадром" таинственноая "color book" (посты 3 и 5). Ну да ничего! Доберемся и до нее!!!!!!!!!!

[fixo]

Сообщение от kserg Жалко вот только - осталась "за кадром" таинственноая "color book" (посты 3 и 5). Ну да ничего! Доберемся и до нее!!!!!!!!!!

Пока добираешься попробуй
Записать можно так :

Код:

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

(vl-load-com)
(setq acapp    (vlax-get-acad-object)
      adoc     (vla-get-ActiveDocument acapp)
      grp_name (getstring "\nИмя группы : \n") 
      xtype    (list 1001 1040 1000 1070)
      xvalue   (list "TEXTAPPNAME";имя приложения
		     150.0
		     "STRING LENGTH IS 150 DRAWING UNITS";описание приложения
		     150
	       )
)
(regapp "TEXTAPPNAME")
(vlax-invoke
  (vla-item (vla-get-groups adoc) grp_name)
  'SetXdata
  xType
  xvalue
)

А получить обратно так :

Код:

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

(vla-getXdata
  (vla-item (vla-get-groups adoc)
	    grp_name
  )
  "TEXTAPPNAME"
  'xtp
  'xdv
)

(setq data
       (mapcar 'vlax-variant-value
	       (vlax-safearray->list xdv)
       )
)

~'J'~

[kserg]

>Fatty Янв 27, 2006 16:54

Спасибо, предложенный Вами код работает.

Поковырявшись с расширенными данными графических примитивов,
собирался (простым Lisp-ом) влезть и в группы, а тут - Ваш пример,
с VLisp-ом... Вовремя!
Так что, большое спасибо.

Заодно, не подскажите, как с VLisp удалять расширенные данные,
хотя бы на том же примере групп?

[Елпанов Евгений]

Сообщение от kserg Жалко вот только - осталась "за кадром" таинственноая "color book" (посты 3 и 5). Ну да ничего! Доберемся и до нее!!!!!!!!!!

Я для примера сделал одну такую книжечку цветов...
http://www.autocad.ru/cgi-bin/f1/boa...20060127195520
[ATTACH]1138382049.rar[/ATTACH]

[fixo]

Сообщение от kserg >Fatty Янв 27, 2006 16:54 Спасибо, предложенный Вами код работает. Поковырявшись с расширенными данными графических примитивов, собирался (простым Lisp-ом) влезть и в группы, а тут - Ваш пример, с VLisp-ом... Вовремя! Так что, большое спасибо. Заодно, не подскажите, как с VLisp удалять расширенные данные, хотя бы на том же примере групп?

А вот в этом случае будет эффективней простым лиспом, нужно
будет удалять из списка примитива группу с кодом -3,
а если удалять приложение то пробуй:
Сначала удаляешь группу, потом

Код:

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

;;"TEXTAPPNAME" - имя приложения, поменяй на свое
(if 
(tblobjname "APPID" "TEXTAPPNAME")
(vlax-for a (vla-get-registeredapplications adoc)
(if (eq "TEXTAPPNAME" (vla-get-name a))
(progn
(if  
(vl-catch-all-error-p 
(if (eq  "Automation Error. Object is referenced by other object(s)" 
(vl-catch-all-error-message
(vl-catch-all-apply (function (lambda ()
(vla-delete a))))))
(alert "Приложение \"TEXTAPPNAME\" \nсвязано с объектом")))
(alert "Приложение \"TEXTAPPNAME\" \nневозможно удалить")))))
(alert "Приложение \"TEXTAPPNAME\" \nне существует"))

Проверяешь на удаление:

Код:

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

(if (vl-catch-all-error-p
      (vl-catch-all-apply
      (function (lambda()(vla-item
			   (vla-get-registeredapplications adoc)
				    "TEXTAPPNAME")))))
 (alert "Приложение \"TEXTAPPNAME\" \nудалено")
  (alert "Приложение \"TEXTAPPNAME\" \nне удалено"))

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

Или удалить все (но тут надо бы сначала проверить весь
список приложений, как бы чего не вышло

Код:

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

(vlax-for a (vla-get-registeredapplications adoc)
(if (not (wcmatch  (vla-get-name a) "ACAD,ACAD*"))
(vl-catch-all-apply (function (lambda ()
(vla-delete a))))))

И в конце естественно release & regen IMHO

~'J'~

[Елпанов Евгений]

Забыл добавить, програмку можно взять
http://usa.autodesk.com/adsk/servlet...&siteID=123112
Работает только с интернет эксплорером с минимальной безопасностью :(

[fixo]

А насчет удаления копай здесь:

http://www.autocad.ru/cgi-bin/f1/board.cgi?t=5649Qz

И тебе польза и сам память освежил:

Удаление xdata из группы

Код:

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

		    
(setq grp (vla-item (vla-get-groups adoc) grp_name)
      grp_ent (vlax-vla-object->ename grp)
      elist (entget grp_ent '("TEXTAPPNAME")))
(foreach i (cdr (assoc -3 elist))
  (setq sub (cons -3 (list (cons (car i) ())))
        elist (subst sub (assoc -3 elist) elist)
        elist (entmod elist)
  )
 )
(entupd grp_ent)

edited by Fatty 21:24

~'J'~

[Александр Ривилис]

Сообщение от Fatty ...а если удалять приложение то пробуй...

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

[kserg]

>Fatty Янв 27, 2006 21:41

Удаление xdata из группы Код: [Выделить все] (setq grp (vla-item (vla-get-groups adoc) grp_name) grp_ent (vlax-vla-object->ename grp) elist (entget grp_ent '("TEXTAPPNAME"))) (foreach i (cdr (assoc -3 elist)) (setq sub (cons -3 (list (cons (car i) ()))) elist (subst sub (assoc -3 elist) elist) elist (entmod elist) ) ) (entupd grp_ent)

Спасибо! То что надо - работает.

А насчет удаления копай здесь: http://www.autocad.ru/cgi-bin/f1/board.cgi?t=5649Qz И тебе польза и сам память освежил

Вот это как раз я и глядел, когда "ковырялся с расширенными данными графических примитивов" (мой пост №17) на предмет навески расширенных данных, их чтения, редактирования и удаления.


Один побочный вопрос остался.
В коде

Код:

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

(setq acapp    (vlax-get-acad-object) 
      adoc     (vla-get-ActiveDocument acapp) 
      grp_name (getstring "\nИмя группы : \n") 
      xtype    (list 1001 1040 1000 1070) 
      xvalue   (list "TEXTAPPNAME";имя приложения 
           150.0 
           "STRING LENGTH IS 150 DRAWING UNITS";описание приложения 
           150 
          ) 
) 
(regapp "TEXTAPPNAME") 
(vlax-invoke 
  (vla-item (vla-get-groups adoc) grp_name) 
  'SetXdata 
  xType 
  xvalue 
)

,- как в примере, упоминаются кроме прочих и DXF-коды "1040" и "1070".
1040 -> Вещественное число
1070 -> 16-битовое целое число

Пробовал обойтись без "1070" :

Код:

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

(setq acapp    (vlax-get-acad-object) 
      adoc     (vla-get-ActiveDocument acapp) 
      grp_name (getstring "\nИмя группы : \n") 
      xtype    (list 1001 1040 1000) 
      xvalue   (list "TEXTAPPNAME";имя приложения 
           150.0 
           "STRING LENGTH IS 170 DRAWING UNITS";описание приложения 
          ) 
)

,- работает, а без "1040" :

Код:

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

(setq acapp    (vlax-get-acad-object) 
      adoc     (vla-get-ActiveDocument acapp) 
      grp_name (getstring "\nИмя группы : \n") 
      xtype    (list 1001 1000) 
      xvalue   (list "TEXTAPPNAME";имя приложения 
           "STRING LENGTH IS 170 DRAWING UNITS";описание приложения 
          ) 
)

,- не работает, выдает "Ошибка".
Это что же, выходит, "1040" - обязателен ?
Или может коды "1001" и "1000" идут как обязательные, и в дополнение, обязательно - должен быть еще хотя бы один код,
типа "1040" ?

[kserg]

Поэкспериментировал. Теперь все ясно.

Могу считать, что для меня обязательными будут те параметры
(коды), которые затем будут мне необходимы, а именно :

1001 -> Строка-имя приложения
1040 -> Вещественное число

Код:

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

(setq acapp    (vlax-get-acad-object) 
      adoc     (vla-get-ActiveDocument acapp) 
      grp_name (getstring "\nИмя группы : \n") 
      xtype    (list 1001 1040) 
      xvalue   (list "TEXTAPPNAME";имя приложения 
           150.0 
          ) 
)

...И усе работает...

[kserg]

Еще раз ВСЕМ большое спасибо!