混合编程操作json数据

vitalgg

#+title:混合编程操作json数据

* 背景

JSON数据格式已成为大多数编程语言的内置的数据格式。它可以方便地在所使用的语言中的对象及数据和字符串之间进行转化。

autolisp本身没有对象。但是有点对表，列表。这种格式与json非常相似。但是Autolisp中的整数和浮点数精度及范围有限，在相互转化时数值类型的数据会失真。

为了保持数据的一致性。我们可以调用外部程序进行处理，如python。

windows下的大多数CAD支持visuallisp,现在就用 winhttp.httprequest 做为中介让autolisp与python进行交互编程。

* 服务端

jsonserver.py 内容：
#+begin_src python

1.     from flask import  Flask,jsonify,request
   
2.     import json
   
3.     jsonobj = {};
   
4.     app = Flask(__name__)
   
5.     @app.route('/api/json',methods=['GET'])
   
6.     def get_json():
   
7.         global jsonobj
   
8.         return json.dumps(jsonobj)
   
9. 
   
10.     @app.route('/api/json',methods=['POST'])
    
11.     def init_json():
    
12.         global jsonobj
    
13.         jsonobj = request.json;
    
14.    
    
15.         return json.dumps(jsonobj)
    
16. 
    
17.     @app.route('/api/json_set',methods=['POST'])
    
18.     def set_json():
    
19.         global jsonobj
    
20.         data = request.json;
    
21.         for key in data:
    
22.             jsonobj[key] = data[key]
    
23.         return json.dumps(jsonobj)
    
24. 
    
25.     if __name__ == '__main__':
    
26.         app.run(debug=True)
    

    from flask import  Flask,jsonify,request<br />     import json<br />     jsonobj = {};<br />     app = Flask(__name__)<br />     @app.route('/api/json',methods=['GET'])<br />     def get_json():<br />         global jsonobj<br />         return json.dumps(jsonobj)<br /> <br />     @app.route('/api/json',methods=['POST'])<br />     def init_json():<br />         global jsonobj<br />         jsonobj = request.json;<br />     <br />         return json.dumps(jsonobj)<br /> <br />     @app.route('/api/json_set',methods=['POST'])<br />     def set_json():<br />         global jsonobj<br />         data = request.json;<br />         for key in data:<br />             jsonobj[key] = data[key]<br />         return json.dumps(jsonobj)<br /> <br />     if __name__ == '__main__':<br />         app.run(debug=True)<br />

#+end_src

安装python及需要的包
#+begin_src shell
  winget install python.python.3.13
  pip install flask
#+end_src

运行服务端
#+begin_src shell
  python jsonserver.py
#+end_src

* 客户端

@lisp 内置了 http 交互函数，可以用 @:：@get , @::postjson 与服务端进行交互。
没有安装 @lisp的可以执行以下代码，网络加载需要的函数。

2. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br />

默认端口是5000,你也可以修改，只要保证服务端与客户端一致就可以了。

** 初始化json对象

#+begin_src lisp
  

1. (@::postjson "http://localhost:5000/api/json" "{\"k1\":\"v1\",\"k2\":\"v2\",\"k3\":\"v3\"}")

(@::postjson "http://localhost:5000/api/json" "{\"k1\":\"v1\",\"k2\":\"v2\",\"k3\":\"v3\"}")

设置键值

1. (@::postjson "http://localhost:5000/api/json_set" "{\"k1\":\"aaa\"}")

(@::postjson "http://localhost:5000/api/json_set" "{\"k1\":\"aaa\"}")

取 json，当然上面的设置后也会直接返回结果

1. (@:：@get "http://localhost:5000/api/json")

(@:：@get "http://localhost:5000/api/json")

原文：https://gitee.com/atlisp/atlisp- ... 8D%E4%BD%9Cjson.org

vitalgg

CAD命令行不能输入太长的字符串，我们写成 lsp  文件。



加载：(load "test/json")

初始化 json 字串为 json对象
(@::postjson "http://localhost:5000/api/json" jsonstr)



设置某个键值。如Ttile , WedmType

(@::postjson "http://localhost:5000/api/json_set" "{\"Title\":\"ABCD\", \"WedmType\":  2}")



提交的键值替换成了新值。并且长整数能保持原值。