Тема: Перевод координат из excela на локальный UCS
Здравствуйте.Подскажите если можете.
Вот опять проблемка возникла. Надобно перевести координаты взятые из excela на координаты локального UCS, translatecoordinate в этом случае не работает.Можно ли это как нибудь обойти?
Вот пример петли которая вытягивает значения координат и проставляет блок по ним к сожалению делает это всегда по координатам WORLD независимо от того какая сист.координат установлена :(...
Dim vertlist3(0 To 2) As Double
For i = 1 To RowCount1
vertlist3(0) = objSheet.Cells(i, 4).Value
vertlist3(1) = objSheet.Cells(i, 5).Value
vertlist3(2) = objSheet.Cells(i, 6).Value
Set wykres_1 = objDoc.Layers.Add("OKU-tabelka-pale")
wykres_1.Color = acYellow
objDoc.ActiveLayer = wykres_1
Set blokref1 = objDoc.ModelSpace.InsertBlock(vertlist3, "OKU-tabelka", sk, sk, 1#, 0)
attvar = blokref1.GetAttributes
For a = 0 To UBound(attvar)
Set objAtt = attvar(a)
Select Case UCase(objAtt.TagString)
Case UCase("Nr pala")
objAtt.TextString = objSheet.Cells(i, 2).Value
Case UCase("Przekr. pala")
objAtt.TextString = objSheet.Cells(i, 3).Value
Case UCase("Rzedna pala")
objAtt.TextString = objSheet.Cells(i, 8).Value
Case UCase("Dlugosc pala")
objAtt.TextString = objSheet.Cells(i, 10).Value
End Select
Next a
blokref1.Update
Next