[svetrsa]

Пожалуйста Помогите разобраться как написать SendCommand для GeomConstraint
acadDoc.SendCommand "(setq ptLine (list " & P2(0) & " " & P2(1) & "))" & vbCr
acadDoc.SendCommand "(setq ptCircle (list " & P0(0) & " " & P0(1) & "))" & vbCr
acadDoc.SendCommand ""GeomConstraint"" ""_Tangent"" ptCircle & vbCr & ptLine & vbCr & vbCr
Берет первый объект(окружность), затем второй объект(линия) а потом затыкается и хочет чего-то еще

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

Язык-то какой?

[svetrsa]

VB 6

[Олег (jr.)]

Кажется пропущен пробел после ""GeomConsrait"":

Код:

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

acadDoc.SendCommand ""GeomConstraint"" & " " & ""_Tangent"" & " " & ptCircle & vbCr & ptLine & vbCr & vbCr

еще момент, лучше команду сохранять в строковую пременную,
а затем уже посылать ее в команду полностью
вместо явных указаний примитивов используй функцию handent

Код:

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

"(handent " & Chr(34) & ptCircle.Handle & " & Chr(34) & ")"

... и тд

[svetrsa]

Спасибо за участие, но на пробел выдает ошибку. А с handent не работает и через objLine.ObjectID тоже

[Олег (jr.)]

Сообщение от svetrsa Спасибо за участие, но на пробел выдает ошибку. А с handent не работает и через objLine.ObjectID тоже

Закомментируй последнюю строку в SendCommand,
потом попробуй нарисовать линию и окружность, я сомневаюсь
что будет рисовать

Упс, игнорируй это и предыдущее сообщение.

[5hev]

Доброго времени!
Программная обработка функции Geomconstraint имеет особенность (на примере lisp):

Код:

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

 (vl-cmdf "_gctangent" (car(entsel)) (getpoint) (car(entsel)) (getpoint))

Вы можете видеть, что аргументы следуют в таком порядке: объект точка на нем объект точка на нем
В данном случае, вместо выбора типа зависимости, использую прямой вызов Касательной.

[svetrsa]

5hev[ru], гениально! Работает! Огромное спасибо!
А как теперь программно отменить зависимость?

[5hev]

Чтобы удалить любую зависимость:

Код:

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

 (vl-cmdf "_delconstraint" (entsel) "")

Прим. Обратите внимание на последние кавычки.
Или иной раз просто _U

[Олег (jr.)]

Попробуй код:

Код:

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

   Public Sub testGeomConstraint()
            Dim appver As Object = TryCast(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Autodesk\AutoCAD", "CurVer", Nothing), Object)
            If appver IsNot Nothing Then
                MsgBox("you have " + "Autocad.Application." + appver.ToString() + " installed")
            Else
                MsgBox("Out of luck, sorry, use your another code instead")
            End If

            Dim vernum As Integer = CInt(Math.Floor(Convert.ToDouble(appver.ToString().Substring(1), CultureInfo.InvariantCulture)))

            Dim progID As String = "Autocad.Application." & vernum.ToString()
            Dim acApp As AcadApplication = Nothing
            Try
                acApp = TryCast(Marshal.GetActiveObject(progID), AcadApplication)

            Catch
                MsgBox("Cannot create object of type """ & progID & """")
                Exit Sub
            End Try
            acApp.Visible = True

            MsgBox("Wait!...")

            Dim acdoc As AcadDocument = acApp.ActiveDocument
            Dim util As AcadUtility
            util = acdoc.Utility
            acdoc.Utility.Prompt(vbLf & "Select objects to create constrait: ")
            Dim ptLine As AcadEntity = Nothing
            Dim pickPt1 As Object = Nothing
            Dim pickPt2 As Object = Nothing
            util.GetEntity(ptLine, pickPt1, "Select a line first:")
            If ptLine Is Nothing Then Exit Sub
            Dim lnHandle As String = ptLine.Handle
            Dim ptCircle As AcadEntity = Nothing
            util.GetEntity(ptCircle, pickPt2, "Select a circle then:")
            If ptCircle Is Nothing Then Exit Sub
            Dim crHandle As String = ptCircle.Handle
            Dim pt1() As Double = TryCast(pickPt1, Double())
            Dim pt2() As Double = TryCast(pickPt2, Double())
            Dim strPnt1 As String = "(list " & pt1(0).ToString() & " " & pt1(1).ToString() & " " & pt1(2).ToString() & ")"
            Dim strPnt2 As String = "(list " & pt2(0).ToString() & " " & pt2(1).ToString() & " " & pt2(2).ToString() & ")"
            acdoc.SetVariable("cmdecho", 0)

            Dim strCommand As String

            strCommand = "(command " & """geomconstraint""" & " " & """tangent""" & " " & strPnt1 & " " & strPnt2 & ") "

            acdoc.SendCommand(strCommand)

            MsgBox("Pokey?")
            acdoc.SetVariable("cmdecho", 1)
        End Sub

[svetrsa]

Спасибо "_delconstraint" то что нужно!