通过非托管的acedCmd方法向平台发送命令

Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.DatabaseServices
Imports System.Runtime.InteropServices
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.Geometry


Namespace test
    Public Class test


        <DllImport("zwcad.exe", EntryPoint:="zcedCmd", CallingConvention:=CallingConvention.Cdecl)> _
        Private Shared Function zcedCmd(vlist As System.IntPtr) As Integer
        End Function


        Shared Function SendCmd(cmds() As String) As Integer
            Dim rb As New ResultBuffer()
            For Each cmd As String In cmds
                rb.Add(New TypedValue(5005, cmd))
            Next
            Return SendCmd(rb)
        End Function


        Shared Function SendCmd(rb As ResultBuffer) As Integer
            Return zced