[Rubль]

Здравствуйте уважаемые форумчане. Вопрос следующего толка.
1. Рисуем 3D тело (box или "ящик") а затем ему нужно присвоить имя, произвольное. Пример: Бокс - размеры 100 100 100, нарисовали, выбрали его и назвали "конура".
2. Получение информации о вершинах (координаты)
Буду очень благодарен за помощь.
И еще вопрос, можно ли потом выгрузить в .txt имя этого бокса и координаты его вершин? Спасибо всем кто откликнется.

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

1. Блок. Возможно, с атрибутами.
2. Поиск по форуму. Вопрос с "разбором" твердых тел несколько раз поднимался (по-моему, описание формата хранения твердых тел в AutoCAD даже есть в download, выкладывал Евгений Елпанов).

[AlexV]

Можно использовать гиперссылки..
Что то типа:

Код:

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

Dim solidObj As Acad3DSolid, center, L, B, H
'.....задаем тем или иным способом center, L, B, H
Dim Hyperlinks As AcadHyperlinks
Dim Hyperlink As AcadHyperlink
Set solidObj =  ThisDrawing..ModelSpace.AddBox(center, L, B, H)
Set Hyperlinks = solidObj.Hyperlinks
Set Hyperlink = Hyperlinks.Add("конура")
Hyperlink.URL = ThisDrawing.FullName
Hyperlink.URLDescription = "Бокс - размеры 100 100 100"

Еще вариант - расширенные данные

Код:

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

Private Sub ent_xdata(obj, str1)
Dim intType(0 To 1) As Integer
Dim varVal(0 To 1) As Variant
intType(0) = 1001
intType(1) = 1000
varVal(0) = "Конура"
varVal(1) = str1
obj.SetXData intType, varVal
End Sub

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

По записи в файл, вот к примеру процедурка.. в Path_Arh должно передаваться имя файла, в ss - текст, который надо записать. Естественно, он должен быть до этого "снят" с объектов..

Код:

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

Public Sub Save_Arhiv(Path_Arh as string, ss as string) 'Запись файла
  Const ForReading = 1, ForWriting = 2, ForAppending = 3
  Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  Dim fs1, f1, ts1, s1
  Dim i As Integer, j As Integer
  Set fs1 = CreateObject("Scripting.FileSystemObject")
  fs1.CreateTextFile Path_Arh            'Create a file
  Set f1 = fs1.GetFile(Path_Arh)
  Set ts1 = f1.OpenAsTextStream(ForWriting, TristateFalse)
  ts1.Write ss
  ts1.Close
End Sub

[Дима_]

Посмотри в справочнике: vlax-ldata-get, vlax-ldata-put, vlax-ldata-delete.

[Rubль]

Всем спасибо за отклик. Буду пробовать.