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
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