[Фирст]

Имеется дерево из блоков с атрибутами (по аналогии с каталогами на диске).
Требуется копировать/вставлять отдельные ветки (выбранные части веток) так, чтобы они сохраняли внутренние связи между собой.

Предполагаю, в каждом блоке должна быть ссылка на предыдущий блок уровня -1, ссылка на соседний блок этого же уровня и следующий блок уровня +1. (Ссылка по номеру блока в соответствующем атрибуте)

При вставке создать в памяти таблицу старых ссылок из набора вставленных блоков (как? перехватить Ctrl-V ? создать свою команду вставки?)
Дать новые номера блокам с занесением в таблицу, а затем по таблице пересчитать ссылки в атрибутах (это понятно).

Может есть способ проще?
И как сделать чтобы ObjectID не менялся с каждым открытием файла?

[maratovich]

Сообщение от Фирст Может есть способ проще?

Непонятно для чего это всё и следовательно непонятна методика.

[Фирст]

Нужно редактировать это дерево и забивать в атрибуты требуемые текстовые данные.
Блоки содержат графические обозначения и вместе с текстом и связями составляют итоговый документ.
Линии связей должны рисоваться автоматически - это я представляю как.

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

Фирст, вложенные блоки - это вложенные блоки. Копируй "родителя" и все вложенные блоки автоматом перекопируются.
Или ты говоришь не про AutoCAD.

Сообщение от Фирст И как сделать чтобы ObjectID не менялся с каждым открытием файла?

Никак. Используй Handle - они по крайней мере внутри одного файла уникальны и неизменны.

[kakt00z]

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

Имеется дерево из блоков с атрибутами

- в каком виде?
и любопытно посмотреть на уже созданные блоки, да и вообще - модель
если я правильно понял задумку, то атрибутов на уровень "+1" нужно создавать неопределенное количество, т.к. полагаю дочерних объектов может быть "не один"
и тут же непонятно зачем может пригодиться ссылка на "соседний" блок того же уровня

[Фирст]

Сообщение от Кулик Алексей aka kpblc Фирст, вложенные блоки - это вложенные блоки.

Блоки не вложенные, связи вручную рисует разработчик. При изменении дерева все линии корректируются.

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

Спасибо! Проверил, они и в копии файла не меняются.

[Do$]

Сообщение от kakt00z если я правильно понял задумку, то атрибутов на уровень "+1" нужно создавать неопределенное количество, т.к. полагаю дочерних объектов может быть "не один"

Очень здравая мысль.
Вот как в БД реализуются древовидные структуры: http://www.ibase.ru/devinfo/treedb.htm, тут можно по аналогии делать. Принцип прост - у каждого элемента есть запись о том, кто его владелец. А с помощью программного кода можно выстроить всю иерархию.

[Фирст]

Схематично, структура дерева как на рис. А
Но программно это неудобно, поскольку у каждого "родителя" может быть разное число "потомков".
Поэтому структура дерева как на рис. Б, но у каждого "потомка" есть ссылка на "родителя" чтобы чертить линии как на рис А.

[kakt00z]

у меня одного мозг взорвался? )))
... по теме - думаю - что проще/удобнее реализовать структуру - средствами словарей и XRecord/XRecordData в своём созданном словаре, а уже блокам прикручивать (можно и в виде атрибутов) handl'ы этих словарей/записей
аналогия
папка = словарь
файл = запись

PS Do$, сенк за линку

[Фирст]

Сообщение от kakt00z средствами словарей и XRecord/XRecordData

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

[kakt00z]

расширенные данные это немного не то, что я имел ввиду (хотя их тоже можно использовать для привязки блокам handl'ов X-записей), и уверен они, если не редактируются, то удаляются
на VBA примеров не покажу, вот наброски мыслей в лиспе, думаю что-то понятно будет

Код:

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

 
(setq dicts (vla-get-Dictionaries #actdoc))

(setq dbdictname "kd_testdict")
(setq #dbdict (vla-add dicts dbdictname))
(do #dbdict) ; do = vlax-dump-object

(setq dbdictnamechild "kd_testdictchild")
(setq #dbdictchild (vla-addobject #dbdict dbdictnamechild "acdbDictionary"))

;    в принципе, не нужно хранить переменные с названем словарей, до них можно добраться из самих словарей
;(vla-GetObject #dbdict dbdictnamechild)
;(vla-item #dbdict dbdictnamechild)
;(vla-GetName #dbdict #dbdictchild)

(setq tdn "kd_testdictchild1")	; test dict name
(setq testdct (vla-addobject #dbdict tdn "acdbdictionary"))
(vla-item #dbdict tdn)
(do testdct)

;;; получилась структура

;;;  kd_testdict :                        
;;;	        [                         
;;;              kd_testdictchild         
;;;              kd_testdictchild1
;;;                ]                      

;; предполагаемые функции

xdb:addDictionary
добавить словарь [создать папку в папке], если такового не существует [если сущ.-то варианты синхронизации внутренних данных]
xdb:addXrecord
добавить запись [создать файл в папке], если такового не существует [если есть-то варианты изменить/нет/дополнить(синхронизировать)]
	подфункции
	kd:setxrecdata
	kd:getxrecdata

;(setq xr (vla-addxrecord testdct "head"))
;(kd:setxrecdata (vla-item testdct "head") '("KKS" "func" "description" "type"))
;(kd:getxrecdata (vla-item testdct "head"))
;(vla-delete (vla-item testdct "head"))
(setq $xrec (vla-addxrecord testdct "head")))
(kd:setxrecdata
  $xrec
  '("KKS" "func" "description" "type" "blockHandle")
  )
; пример (очень отдаленный) синхронизации блока и его x-записи
(vla-put-textstring
  (getblockattribute "syncHandle")
  (vla-get-Handle $xrec)
  )

[kakt00z]

Кстати, вопрос:

Сообщение от Фирст Линии связей должны рисоваться автоматически - это я представляю как.

каким образом вы храните координаты точки блока для "стыковки" графической линии связи с ним?

[Фирст]

Блоки собраны так, что базовая точка блока (InsetionPoint) определяет левый верхний угол, а InsetionPoint одного из скрытых атрибутов правый нижний угол. Это не обязательно реальные границы блока. Точку привязки я вычисляю как середина нужной стороны получившегося прямоугольника (на рис. два прямоугольника половинного размера).

[kakt00z]

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