про функцию eval (Страница 1 из 2)

Можно попробовать переменные объявить Public за пределами модуля. Мне это помогало.

ни VbCrLf, ни Public мне не помогли :)
я вот что хочу сделать
может знаете
есть строка, содержащая переменную типа  объекта
и сторока, содержащая имя свойства
например . в моем случае "objLine" и "Length"
как мне можно обратиться к свойству объекта таким образом?

> kb-nn
В Вашем примере только определен тип переменной objLine. Функция Eval должна сработать, если под objLine будет пониматься реальный объект присвоенный при помощи Set.

Этот код только что работал:

Public objLine As AcadLine
'Dim objLine As AcDbLine
Public num As Integer
Sub test()
Dim moSpace As AcadModelSpace
Dim StartPoint(0 To 2) As Double
Dim EndPoint(0 To 2) As Double
Dim s As String
Set moSpace = ThisDrawing.ModelSpace
StartPoint(0) = 0
StartPoint(1) = 0
StartPoint(2) = 0
EndPoint(0) = 4
EndPoint(1) = 0
EndPoint(2) = 0
Set objLine = moSpace.AddLine(StartPoint, EndPoint)
s = vbNullString
num = 6
MsgBox num 'Показывает 6
s = "If objLine.Length <= 5 then num = num + 1"
Eval (s)
MsgBox num 'Показывает 7
End Sub

Что за объект AcDbLine? У меня такого в библиотеке нету.

у меня тоже работает!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ура!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
но у меня два вопроса:
1) почему для If нет End If ????
2) почему после Then нет перехода на новую строку??????
а насчёт AcDbLine  это опечатка.
конечно же AcadLine.

Такой вариант допускается синтаксисом VB. Очень странно, что вы до сих пор об этом не знаете.

Если нет ветки "Else", то такое добавление - синтаксически неправильно.

Может быть опечатка - фрейдистская? И kb-nn перебежчик из ObjectARX?

> Leonid
При записи в одну строку End If можно не указывать.
При многострочной записи (в данном случае с vbCrLf) или вложенных операторах End If обязательно.

А вообще, Maxim T, конечно, прав: пересказывать на форуме азы о которых писано-переписано в ЛЮБОЙ книжке по VBA/VB иногда просто напрягает и вопросы о них выглядят странными.
Да и гораздо интереснее искать ответы на нестандартные вопросы, например, о Eval в VBA for AutoCAD...

> brigval
Спасибо!

Сейчас почитал начало ветки, ты с этого VbCr и начинал :))), так что может, сейчас вернуться ?

вы представляете, у меня в If два оператора.
если я пишу (через Eval) их оба в одном If. то не работает.
если же я сначала в If пишу первый оператор,
а в следующий If - второй, то все работает.
очень странно.
а такое может быть, чтоб eval не воспринимает первод строки, например?
а если честно, если без Eval, для после Then всегда следующий оператор пишу на новой строке, всегда пишу End If
(независимо от кол-ва операторов и наличия Else)
и никогда не получал сообщение об ошибке.
всегда все работло.