游茗杰CAD工具箱

HXChuxuecheng · 发表于 2020-4-26 10:38:41

有啥新功能

zst1978 · 发表于 2020-8-15 02:38:39

谢谢啊，好好的

999999 · 发表于 2020-8-15 14:10:21

谢谢楼主的分享

xj6019 · 发表于 2020-8-15 17:41:56

楼主好，请教一下，你的中英文翻译的代码，怎么换语种呀，比方说我要换成中日互译怎么改呀，求赐教：
(defun Translate (word / RegEx str)
  (setq RegEx (vlax-create-object "VBScript.RegExp"))
  (vlax-put-property RegEx "Global" 1)
  (setq str (GetXML (strcat "http://fanyi.youdao.com/translate?&i=" word "&doctype=xml&version")))
  (vlax-put-property RegEx "Pattern" "^(.|\n)*<translation>(.|\n)*?<![\[]CDATA[\[]")
  (setq str (vlax-invoke-method regex "Replace" str ""))
  (vlax-put-property RegEx "Pattern" "[\]]{2}>(.|\n)*<\/translation>(.|\n)*$")
  (setq str (vlax-invoke-method regex "Replace" str ""))
  (vlax-release-object RegEx)
  str
)

flyery · 发表于 2020-8-17 12:27:49

谢谢！！！！！

czb203 · 发表于 2020-8-18 22:41:31

多谢楼主分享

kdanqu · 发表于 2020-8-19 10:04:14

好像非常不错，下个试试

flyery · 发表于 2020-8-20 08:25:09

必须所以lsp都加载还是只加载“工具箱面板总程序K.lsp”就可以？

KO你 · 发表于 2020-8-24 00:35:57

flyery 发表于 2020-8-20 08:25
必须所以lsp都加载还是只加载“工具箱面板总程序K.lsp”就可以？

LSP是要全部加载的，我有个VLX格式的是合并后的只有一个文件的，没放出来。发源码只是为了给需要的人用。

flyery · 发表于 2020-8-24 10:13:56

KO你发表于 2020-8-24 00:35
LSP是要全部加载的，我有个VLX格式的是合并后的只有一个文件的，没放出来。发源码只是为了给需要的人用。

那要怎么全部加载？麻烦发下vlx

账号		自动登录	找回密码
密码			注册