在线翻译接口有兴趣的看看

jun353835273

接口是吾爱的https://www.52pojie.cn/thread-1903090-1-1.html，能用多久也不知道，只是一种获取翻译的方法，部分字符偶尔会拦截
就是返回速度比较感人，只能拿来玩玩，希望抛砖引玉，有好接口的lisper贴码分享。
百度翻译接口也行，不过水平有限通过纯lisp获取成功率太低，估计是我方法不对。通过其他语言倒是直接成功了的。
百度接口地址：https://fanyi-api.baidu.com/api/trans/vip/translate
源码奉上

1. (defun getxml  (url / xml http)
   
2.     (setq http (vlax-create-object "WinHTTP.WinHTTPRequest.5.1"))
   
3.     (vlax-invoke-method http "open" "get" url 0)
   
4.     (vlax-invoke-method http "send")
   
5.     (setq xml (vlax-get-property http "responsetext"))
   
6.     (vlax-release-object http)
   
7.     xml
   
8.   )
   
9. (defun c:TTR (/ n ss e dt txt)
   
10.   (setvar "cmdecho" 0)
    
11.   (if (setq ss (ssget '((0 . "TEXT")))
    
12.       n  0
    
13.       )
    
14.     (progn
    
15.       (repeat (sslength ss)
    
16.   (setq e  (ssname ss n)
    
17.         n  (1+ n)
    
18.   )
    
19.   (setq dt (entget e))
    
20.   (setq txt (cons (cdr (assoc 1 dt)) txt))
    
21.   (setq txt (fy (car txt)))
    
22.   (entmod (subst (cons 1 txt) (assoc 1 dt) dt))
    
23.       )
    
24. 
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

(defun getxml  (url / xml http)<br />     (setq http (vlax-create-object "WinHTTP.WinHTTPRequest.5.1"))<br />     (vlax-invoke-method http "open" "get" url 0)<br />     (vlax-invoke-method http "send")<br />     (setq xml (vlax-get-property http "responsetext"))<br />     (vlax-release-object http)<br />     xml<br />   )<br /> (defun c:TTR (/ n ss e dt txt)<br />   (setvar "cmdecho" 0)<br />   (if (setq ss (ssget '((0 . "TEXT")))<br />       n  0<br />       )<br />     (progn<br />       (repeat (sslength ss)<br />   (setq e  (ssname ss n)<br />         n  (1+ n)<br />   )<br />   (setq dt (entget e))<br />   (setq txt (cons (cdr (assoc 1 dt)) txt))<br />   (setq txt (fy (car txt)))<br />   (entmod (subst (cons 1 txt) (assoc 1 dt) dt))<br />       )<br /> <br />     )<br />   )<br />   (princ)<br /> )

(defun fy(word / url4 gettxt s str e str2 )
(setq url4 (strcat  "https://findmyip.net/api/translate.php?text=" word ));"&source_lang=zh&target_lang=en"
(setq gettxt (getxml url4))
(setq s(vl-string-search "translate_result" gettxt ))
(setq str(substr gettxt (+ s 20) ))
(setq e(vl-string-search "processTime" str ))
(setq str2(substr str 1 (- e 4) ))
)

caoliu023

jun353835273 发表于 2024-6-25 09:30
分享下用百度api的lisp代码呢，我试了下纯lisp调用失败了，c#搞倒是得行。

百度翻译api的利用方法
http://bbs.mjtd.com/forum.php?mo ... &fromuid=287566
(出处: 明经CAD社区)
发这里了，可以去看看

jun353835273

caoliu023 发表于 2024-6-26 11:19
百度翻译api的利用方法
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=190496&fromuid=287566
(出 ...

感觉还是半成品，返回还是汉字编码，还得转换才行。

jun353835273

caoliu023 发表于 2024-6-24 19:26
曾经用过百度的api，把免费额度用完了

分享下用百度api的lisp代码呢，我试了下纯lisp调用失败了，c#搞倒是得行。

自贡黄明儒

不错，以前我用有道的，有道改版 后就不能用了。

lxl217114

谢谢分享..

不一样地设计

很有用，感谢分享

chen3732088

谢谢分享..

guosheyang

感想分享翻译接口！

你有种再说一遍

其实现在已经不需要翻译器了,现在是大模型年代,大模型还能处理俚语,下载部署用就完了.而且还要制作一个本地数据库映射旧词汇,减少网络交互.

flowcode

看看帖子里藏了啥好东西~~~

行天下

不知道速度怎么样

逍遥无声