[Andjiy]

Как рисовать в Cadе используя координаты в Excel. Каталоги в Excel сканированные. На выходе нужно увидеть точки на модели Cadа

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

"Сканированные"? В поиск по слову "векториз*". Или вставлять сразу сканы в dwg. Или xls-файлы туда же.
За компанию заняться поиском с разными формулировками вопроса - весьма полезно.

[KronSerg]

Только для тех кто не желает пользоваться поиском, могу предложить один вариантик
Открываем редактор макросов Excel и создаём две функции такую:

Код:

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

Function ТочкНаЗапят(Значение As String) As String
st = Значение: sim = st: rez = ""
For i = 1 To Len(st)
sim = Left(sim, 1)
If sim = "." Then sim = ","
rez = rez + sim
sim = Right(st, Len(st) - i)
Next i
ТочкНаЗапят = rez
End Function

И такую:

Код:

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

Function Акад_точка(X As Currency, Y As Currency, Z As Currency) As String
Акад_точка = "insertionPoint(0) = " + ЗапятНаТочк(Format(X, "######0.0#####")) + ": insertionPoint(1) = " + ЗапятНаТочк(Format(Y, "######0.0#####")) + ":insertionPoint(2) = " + ЗапятНаТочк(Format(Z, "######0.0#####")) + ":Set pointObj = ThisDrawing.ModelSpace.Addpoint(insertionPoint): "
End Function

Используя появившуюся функцию Акад_точка() в таблице Excel, создаём набор строк странного вида. Далее открываем редактор VBA уже в акаде, создаем модуль, туда пишем так:

Код:

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

Sub Addpoint()
Dim insertionPoint(0 To 2) As Double

Здесь скопированные из Excel строки странного вида

End Sub

Должно получиться что-то типа

Код:

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

Sub Addpoint()
Dim insertionPoint(0 To 2) As Double

insertionPoint(0) = 10#: insertionPoint(1) = 8#: insertionPoint(2) = 7#: Set pointObj = ThisDrawing.ModelSpace.Addpoint(insertionPoint):

End Sub

Выполняем макрос, готово.
Удачного дня