[МишаИнженер]

Для импорта модели в ЛИРУ требуется начертить плиты в AutoCAD в виде 3Dграней. Команда вычерчивания 3D граней вызывается следующим образом: Рисование-> Моделирование-> Сети-> 3Dгрань. Если у кого есть вопросы где это находится посмотрите рисунок.
Мой вопрос-просьба: Подскажите какой аналог этой команды есть на VBA?

[Vildar]

А справку посмотреть.
Acad3DFace

Sub Example_Add3DFace()
' This example creates a 3D face in model space.

Dim faceObj As Acad3DFace
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim point3(0 To 2) As Double
Dim point4(0 To 2) As Double

' Define the four coordinates of the face
point1(0) = 0#: point1(1) = 0#: point1(2) = 0#
point2(0) = 5#: point2(1) = 0#: point2(2) = 1#
point3(0) = 1#: point3(1) = 10#: point3(2) = 0#
point4(0) = 5#: point4(1) = 5#: point4(2) = 1#

' Create the 3DFace object in model space
Set faceObj = ThisDrawing.ModelSpace.Add3DFace(point1, point2, point3, point4)
ZoomAll

End Sub

Вот как, когда перепробуешь все варианы, задавай конкретные вопросы.
Я с 3d, программно дел не имел. Но это элементарно. Посмотреть в справку.

[МишаИнженер]

Спасибо большое! Справку смотрел, вот что уведел:

Create a polyface mesh Create a wedge solid AutoCAD supports three types of 3D modeling: wireframe, surface, and solid. Each type has its own creation and editing techniques.

For more information about creating 3D objects, see “Create 3D Objects” in the User's Guide.

Topics in this section
Create Wireframes
Create Meshes
Create Polyface Meshes
Create Solids

Далее смотрел про Meshes но там надо задавать размерность сетки, а это мне не подходит.

Вот метод Add3DFace мне подходит.

Надо учиться работать со справкой!