cad.net Win32API发送信息到cad

目录

• 说明
• 相关阅读

返回目录

说明

代码来自于南胜

除了以下这个的方法还可以用端口通讯,不过端口通讯比这个还麻烦..
虽然例子是发送绘图信息,但是也可以发送加载信息.

如果本机打开了两个Acad08,com通讯只能处理第一个打开的,这份代码解决了这个问题.

只不过发送信息是用明码发送,也就是你会在命令栏看见:

端口通讯可以无码,两者在技术上面还有各自的优劣..

using System;
using System.Diagnostics;
using System.Runtime.InteropServices;
using static Win32API.WinApi;
namespace JoinBox;

public class PostCmdProcesses {
    static void Main(string[] args) {
        // 获取所有acad的进程句柄
        var handles = Process.GetProcessesByName("acad")
            .Where(pr => pr.MainWindowHandle != IntPtr.Zero);
        foreach (var handle in handles) {
            SendAcadProcesses(handle, "_circle 0,0,0 300 ");
        }
    }

    /// <summary>
    /// 发送信息到进程
    /// </summary>
    /// <param name="toSend">报文</param>
    /// <param name="hwnd">主窗口的句柄</param>
    public static void SendAcadProcesses(IntPtr hwnd, string toSend) {
        var data = toSend + "\0";
        var comData = Marshal.StringToCoTaskMemAuto(data);
        if (comData == IntPtr.Zero) return;
        try {
            var cds = new Win32API.CopyDataStruct {
                dwData = new IntPtr(1),
                cbData = data.Length * Marshal.SystemDefaultCharSize,
                lpData = comData
            };
            Win32API.SendMessage(hwnd, (int)WM.WM_COPYDATA, IntPtr.Zero, ref cds);
        } finally {
            // 同步消息,释放由发送方负责
            Marshal.FreeCoTaskMem(comData);
        }
    }
}

namespace Win32API;

public partial class WinApi {
    /// <summary>
    /// 发送cad消息
    /// </summary>
    /// <returns></returns>
    [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
    public static extern IntPtr SendMessage(IntPtr hWnd, int wMsg, IntPtr wParam, ref CopyDataStruct lParam);

    /// <summary>
    /// 发送信息的结构
    /// </summary>
    [StructLayout(LayoutKind.Sequential)]
    public struct CopyDataStruct {
        public IntPtr dwData;
        public int cbData;
        public IntPtr lpData;
    }
}

返回目录

相关阅读

Acad外部启动com通讯

Acad跨进程通讯

子类化拦截
(完)