[vsokol]

Дорогие товарищи, как передать объект в качестве параметра в команде
Thisdrawing.sendcommand "(""xline"" ""ang"" ""r"" ""90"" + а здесь надо дать объект для Select )" & vbCr

Спасибо!!!!!!

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

А что там делают скобки?

Код:

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

ThisDrawing.SendCommand "_.xline _ang _r 90 (handent " & chr(34) & obj.Handle & Chr(34) & ")" & vbCr

Как-то так, наверное...

[Олег (jr.)]

Наверно, имеется ввиду строго через указанную точку:

Код:

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

Option Explicit

Sub aha()

    Dim pt As Variant
    pt = ThisDrawing.Utility.GetPoint(, vbCr & "Specify a point on object, use snaps >>")
    Dim spoint As String
    spoint = Replace(CStr(pt(0)), ",", ".") & "," & _
             Replace(CStr(pt(1)), ",", ".")
    ThisDrawing.SendCommand "_.xline _ang 90 " & spoint & vbCr & vbCr

End Sub

~'J'~

[vsokol]

[FONT=Times New Roman][size=3][color=black][size=2][color=black][color=black]Спасибо, это мне известно. Уберу скобки и “command”, но как вставить в командную строку линию, как объект.[/color][color=black]Я перебираю все отрезки и с их концами буду что-то делать. Поэтому имею объект типа «Line». [/color][color=black]If obj.ObjectName = "AcDbLine" Then[/color][color=black] Set obj_l = obj [/color][color=black] ThisDrawing.SendCommand ("(command ""_xline"" ""_ang"" ""r"" + &obj_l + ""90""+””5,5“”)" & vbCr)[/color][/color][/size][/color][/size][/FONT]

[Олег (jr.)]

Алексей показал тебе как - через функцию handent
у нее один параметр - handle объекта, добавляешь
к нему кавычки - chr(34) и строишь командную строку

~'J'~

[vsokol]

[FONT=Times New Roman][size=3]Ребята, спасибо огромное![/size][/FONT]
[FONT=Times New Roman][size=3]Всё получилось. Утром в спешке не рассмотрела сообщения Алексея. Сейчас всё проверила.[/size][/FONT]
[size=3][FONT=Times New Roman]Danke!!!!!!![/FONT][/size]
[size=3][FONT=Times New Roman]Thanks!!!!![/FONT][/size]