Topic: How to run lisp program except for SendStringToExcecute?

[It's Alive!]

Yep, I went through all those, it's a transition phase that lispers go though 

[Peter Jamtgaard]

I have several others too, and multiple variations on some of them.

I found a lot of other cool things that I am still working on.

Does .NET have a function for (vlax-product-key)?

Peter

[gile]

Hi,

I don't know any equivalent to (vlax-product-key), but it's quite easy to build

Code: [Select]

private string GetProductKey()
{
    string result = "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\";
    result += (string)Registry.GetValue(result, "CurVer", "");
    return result + "\\" + (string)Registry.GetValue(result, "CurVer", "");
}

[It's Alive!]

HostApplicationServices.Current.RegistryProductRootKey

[Peter Jamtgaard]

acedEvaluateLISP arx entry point example

Peter

Code: [Select]

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Imports System.Runtime.InteropServices 'for DllImport()
Imports System.Security

Public Class vbvlClass
    ' Use P/Invoke for acedEvaluateLISP
    <System.Security.SuppressUnmanagedCodeSecurity(), DllImport("acad.exe", _
    CharSet:=CharSet.Unicode, CallingConvention:=CallingConvention.Cdecl, EntryPoint:="?acedEvaluateLisp@@YAHPB_WAAPAUresbuf@@@Z")> _
    Private Shared Function acedEvaluateLISP(ByVal strLISPExpression As String, ByRef intHandle As IntPtr) As Integer
    End Function
    '______________________________________________________________________________________________________________________
    '
    ' Overload of the EvaluateLISPExpression function to accept ResultBuffer as Argument
    '______________________________________________________________________________________________________________________

    <LispFunction("EvaluateLisp")> _
    Public Shared Function EvaluateLispExpression(ByVal rbfLISPExpression As ResultBuffer) As ResultBuffer
        Dim rbfReturn As New ResultBuffer
        Dim arrLispExpression As TypedValue() = rbfLISPExpression.AsArray
        Return EvaluateLispExpression(arrLispExpression(0).Value.ToString)
    End Function

    Public Shared Function EvaluateLispExpression(ByVal strLISPExpression As String) As ResultBuffer
        Dim rbfObject As IntPtr = IntPtr.Zero
        Dim rbfReturn As New ResultBuffer
        Try
            acedEvaluateLISP(strLISPExpression, rbfObject)
            If (rbfObject <> IntPtr.Zero) Then
                rbfReturn = CType(DisposableWrapper.Create(GetType(ResultBuffer), rbfObject, True), ResultBuffer)
                Return rbfReturn
            Else
                rbfReturn.Add(New TypedValue(&H138D, "Error"))
            End If
        Catch ex As System.Exception
            rbfReturn.Add(New TypedValue(&H138D, "Catch Error"))
            Return rbfReturn
        End Try
        Return Nothing
    End Function
End Class


[It's Alive!]

instead of returning "Catch Error" you ought to return ex.messsage
it will give the user an idea what went wrong

[Peter Jamtgaard]

OK