[tannn]

Код:

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

Dim MTextObj As AcadMText
Dim intD As String
Dim X_Point(2) As Double
Dim inPoint As Variant
Dim Y As Double
Dim i As Integer
Dim ii As Integer
Dim aTemp As Double



For Each h In element.Coordinates

 If i = 0 Then '----------- X
 a = h
 End If
 
 If i = 1 Then '------------  Y
 '--------------------------
 If aTemp <> 0 Then
 
 X_Point(0) = aTemp + ((a - aTemp) / 2) - 1.5
 X_Point(1) = -150 + 2
 X_Point(2) = 0
 Set MTextObj = ThisDrawing.ModelSpace.AddMText(X_Point, 1, CStr((a - aTemp) * 0.1))
 MTextObj.Height = 1.5
 'MTextObj.Rotation = 1.571
 MTextObj.LineSpacingDistance = 0.63
 
 Else

    aTemp = a

 End If
 

 
ii = ii + 1
 End If
 
 If i = 2 Then '------------ Z
 i = -1
 End If
 

i = i + 1
Next h

Теперь вопрос почему (a - aTemp) * 0.1 в ответ попадают разные значения
103 и 101 это вершины полилинии
например (103-101)*0,1 = 0,2 должно быть ,а получается например 0,21334343454 или 0,1985654524

хотя это не по всем точкам как от этого избавиться? есть нормальное решение без всяких округлении ,а то меня эти не точности напрягают постоянно

по идее я смотрел уже "a" содержит не ровное значение 103,1243784555 = что то типа такого, получается element.Coordinates содержит не ровные значения

а через своиства смотрю вершины полилинии все ровно

[trir]

Используй тег code
А какой тип у a?

[Do$]

Сообщение от tannn по идее я смотрел уже "a" содержит не ровное значение 103,1243784555 = что то типа такого, получается element.Coordinates содержит не ровные значения

Значит, чертили не по координатам. Вполне естественное явление.

[AlexV]

Сообщение от tannn по идее я смотрел уже "a" содержит не ровное значение 103,1243784555 = что то типа такого, получается element.Coordinates содержит не ровные значения а через своиства смотрю вершины полилинии все ровно

если точность единиц выставить не "0", то "через свойства" тож будет не "ровно"..

[tannn]

а double

Do$ , все начерчено правильно в своиствах стоит 103 , но когда из Variant переходит в double походу какоето смещение появляется в точности, была такая ситуация точка стояла с координатой 0 ,а ответ получаю -0.1354557475

причем если паралельно нарисовать например 10 лининии и X при этом 0 будет, то одна точка с цикла обязательно получается со знакоми после запятой


Я же не так мышкой тыкаю когда линии рисую)), я в вожу координаты и наверное когда я ставлю Х=0 то она рисуется по 0 =)

[AlexV]

tannn, а ты выложи файл с этой полилинией..

[tannn]

Сообщение от AlexV а ты выложи файл с этой полилинией..

нашел

там нижнии поперечный профиль ПК 0 - полилиния с 10 точек, точки по оси Х мне надо расстояния расставлять

[swell{d}]

Сообщение от tannn есть нормальное решение без всяких округлении

вам нужно нормальное решение округления без всяких округлений?

[AlexV]

Сообщение от tannn а как фаил тут загрузить?

[tannn]

Сообщение от swell{d} вам нужно нормальное решение округления без всяких округлений?

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

[Do$]

Ну вот, координаты некоторых вершин с красивым дробным хвостиком.
LUPREC выставите в 8 и увидите, а то у Вас, наверное, стоит значение 1 или даже 0.

[tannn]

Сообщение от Do$ Ну вот, координаты некоторых вершин с красивым дробным хвостиком. LUPREC выставите в 8 и увидите, а то у Вас, наверное, стоит значение 1 или даже 0.

Сообщение от tannn там нижнии поперечный профиль ПК 0 - полилиния с 10 точек, точки по оси Х мне надо расстояния расставлять

мне по оси Х надо было, разобрался уже =)
можно закрыть