HM二次开发 - 外部程序采用socket与HM实现通信

---

  扫描下方二维码关注我的微信公众号 - CAE软件二次开发Lab，查看更多精彩文章！

---

CAE软件二次开发Lab

---

  实现外部调用HM进程完成命令传输与执行，我们可以采用socket接口实现外部程序与HM主程序进行通信来实现。

什么是socket

1. socket即为套接字，在TCP/IP协议中，“IP地址+TCP或UDP端口号”唯一的标识网络通讯中的一个进程，“IP地址+TCP或UDP端口号”就为socket。

2. 在TCP协议中，建立连接的两个进程（客户端和服务器）各自有一个socket来标识，则这两个socket组成的socket pair就唯一标识一个连接。

3. socket本身就有“插座”的意思，因此用来形容网络连接的一对一关系，为TCP/IP协议设计的应用层编程接口称为socket API。

socket基本使用

1. socket 服务端开启
   格式：socket –server command ?options? port
   -server ：表明开启的是服务器端
   port：端口
   command：当有客户端来连接的时候，执行这个过程，这个过程有三个参数
   channel：给新客户端的通道
   address：提供给客户端连接的 ip 地址
   port：端口

2. 客户端连接服务器端
   格式：socket ?options? host port
   host port ：客户端连接的服务器 ip和端口

在HM中实现socket通信

运行在HM上的服务端tcl代码

  如下服务端代码，保存为server.tcl。

# 服务端代码

proc accept {chan addr port} {
	# 执行客户端发送的命令，当命令执行成功则返回pass、失败返回fail
	if {[catch {eval [gets $chan]}]} {
		puts $chan fail
		# 命令执行失败
	} else {
		puts $chan pass
		# 命令执行成功
	}
	close $chan
}
socket -server accept 23456
# 开启端口服务器为23456的socket服务

  打开HM，菜单File -> Run -> Tcl/Tk Script，选择server.tcl，点击【打开】按钮。

外部程序上的客户端tcl代码

  如下为实现与服务器通信的客户端tcl代码。

# 客户端代码
proc submit {cmd id {ip 127.0.0.1}} {
	# 向客户端发送命令, 默认为本地
	set chan [socket $ip $id]
	# 客户端连接服务器端口
	puts $chan $cmd
	# 发送命令
	flush $chan
	# 刷新通道缓存
	set status [gets $chan]
	close $chan
	# 关闭连接
	if {$status == "pass"} {
		"命令执行成功"
	} else {
		"命令执行错误"
	}
}

set cmd "*createentity comps name=new"
# 发送一个在hm中新建名称为new的组件的命令字符串
submit $cmd 23456
# 向客户端发送命令

  寻找一个可以运行tcl脚本的编译器，例如可以直接用hypermesh中的tcl编译器，其目录为HM安装目录\hw\tcl\tcl8.5.9\win64\bin下的tclsh85.exe，运行后将上述客户端tcl代码复制到tcl编译器窗口。

  在tcl85sh.exe窗口执行命令后，显示执行成功。如下：

  打开hm可以看到已经创建了new组件。