[zshgm]

как программно создать материал(текстуру) и обтянуть им 3D объект?
Сначало создаю объект типа Acad3DSolid:
Dim boxObj As Acad3DSolid
Set boxObj = ThisDrawing.ModelSpace.AddBox(...)
нашел, что создать материал можно так:
Dim oMaterial As AcadMaterial
Dim oMaterials As AcadMaterials
Set oMaterial = ThisDrawing.Materials.Add("gm")
ThisDrawing.ActiveMaterial = oMaterial
а как в нем задать текстуру?? и как его применить к 3D объекту??

[Огурец]

Сколько букофф... Я себя чувстую, как та щука из Стругацких:

"Что бы у нее спросить?" -- лихорадочно думал я. -- Как вы делаете ваши чудеса? -- Какие такие чудеса? -- Ну... Исполнение желаний... -- Ах, это? Как делаю... Обучена сызмальства, вот и делаю. Откуда я знаю, как я делаю... Золотая Рыбка вот еще лучше делала, а все одно померла. От судьбы не уйдешь.

[fixo]

Только не на VBA, посмотри здесь:

http://through-the-interface.typepad..._snapsh_1.html

и то начиная с 2008-го

~'J'~

[zshgm]

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

[BigBrother]

Программно создать материал и присвоить?
Да пожалуйста. Информация о материале содержится в 347-й группе данных. Данные материалов все в словарях и x-record.
Остается только написать за Autodesk программный интерфейс ко всему этому и поделиться с нами тёмными.

А если серьезно, программно относительно просто только изменить тип и геометрию наложения фактуры. Информация о ней в расширенных данных, группа - ACAD_MATERIAL_MAPPER
;;; 1 -й элемент списка 1070 - тип наложения
;;; 1 - Plane 2 - Box 3 - Cylinder, 4 - Shere.
;;; Для 2 - Box
;;; 4-й 1011 - базовая точка
;;; 5-й 1011 - вектор X направления наложения фактуры
;;; 6-й 1011 - вектор Y направления наложения фактуры
;;; 7-й 1011 - вектор Z направления наложения фактуры

[Огурец]

Сообщение от BigBrother А если серьезно, программно относительно просто только изменить тип и геометрию наложения фактуры. Информация о ней в расширенных данных, группа - ACAD_MATERIAL_MAPPER ;;; 1 -й элемент списка 1070 - тип наложения ;;; 1 - Plane 2 - Box 3 - Cylinder, 4 - Shere. ;;; Для 2 - Box ;;; 4-й 1011 - базовая точка ;;; 5-й 1011 - вектор X направления наложения фактуры ;;; 6-й 1011 - вектор Y направления наложения фактуры ;;; 7-й 1011 - вектор Z направления наложения фактуры

Дорогой Big Brother!

Ну с полоскостью и параллелипипедом всё понятно и опробавано. А вот с остальными формами при маппинге облом получается. Не подскажите, какие коэффиценты "растяжения", масштабные коэффиценты по умолчанию проставлены в автокаде для сфер и цилиндров? Как я понимаю, здесь идёт речь о версиях до 2007.

[BigBrother]

Как я понимаю, здесь идёт речь о версиях до 2007.

Нет, я имел ввиду 2007-8.
До них не все так запущено было в Автокаде по этой части.
Программный интерфейс описан в справке по Lisp, как Externally Defined Command.
За наложение в частности отвечает (c:setuv mode options)
Что и как там с опциями подсказать не могу, но метод "научного тыка" еще никто не отменял.
Изменил параметры - посмотрел в VL редакторе что изменилось в данных - сделал выводы.