(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.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

;; @lisp 函数库帮助与支持，查询的函数均以 ui:confirm1 为示例 (fun:list) ;; 列出所有@lisp函数 (fun:usage 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:help 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:src 'ui:confirm1) ;; 显示函数 ui:confirm1 的定义源码 (fun:search "ui:");; 搜索函数库中 ui: 相关的函数 (fun:run-example funname) ;; 如果函数有示例代码，则运行示例 (fun:e.g funname) ;; 如果函数有示例代码，则运行示例 ;; 调用示例 (require 'ui:confirm1) ;; 加载用户确认对话框函数 (ui:confirm1 '("你家门口有两双鞋。" "一双是你的。" "另一双也是你的。" ) "是-否")

用法及说明
源码

@dev::make-ac-vl

说明:创建

用法:

 (@dev::make-ac-vl)

参数:

返回值:

示例:

(defun @dev::make-ac-vl ()
  (setq fp (open (strcat (@::get-config '@dev::src) "vscode/syntaxes/vla-property.tmlang.json") "w" "utf8"))
  
  (setq fi (open (strcat (@::get-config '@dev::src) "docs/aibot/vlaobj-property.org") "r"))
  (setq str "")
  (while (setq ln (read-line fi))
    (if (= "* " (substr ln 1 2))
	(setq str (strcat str "|" (vl-string-trim "* " ln)))))
  (close fi)
  
  (write-line (strcat "{\n\"name\": \"property\",") fp)
  (write-line (strcat "\"match\": \"(?<=\\\\(|\\\\[|'|\\\\s|^)(?<=vla-get-|vla-put-)(?i:" str ")(?=\\\\]|\\\\s|\\\\)|\\\\()\"\n}") fp)
  (close fp)

(setq fp (open (strcat (@::get-config '@dev::src) "vscode/syntaxes/vla-method.tmlang.json") "w" "utf8"))
  
  (setq fi (open (strcat (@::get-config '@dev::src) "docs/aibot/vlaobj-method.org") "r"))
  (setq str "")
  (while (setq ln (read-line fi))
    (if (= "* " (substr ln 1 2))
	(setq str (strcat str "|" (vl-string-trim "* " ln)))))
  (close fi)
  
  (write-line (strcat "{\n\"name\": \"method\",") fp)
  (write-line (strcat "\"match\": \"(?<=\\\\(|\\\\[|'|\\\\s|^)(?<=vla-)(?i:"str ")(?=\\\\]|\\\\s|\\\\)|\\\\()\"\n}") fp)
  (close fp)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@dev::make-ac-vl

上传记录