(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::funlib-make-ac-vscode

说明:创建

用法:

 (@dev::funlib-make-ac-vscode funname)

参数:funname

返回值:

示例:

(defun @dev::funlib-make-ac-vscode (funname / lst-fun paras desc funsym feishiprefix)
  "将函数库中的函数 funname 自动完成导入vscode"
  (if(= 'sym (type funname))(setq funname (strcase (vl-symbol-name funname) t)))
  (if (and
       (null (member (ascii ">") (vl-string->list funname)))
       (listp (setq fundesc  (read(fun::make-desc funname))))
		;;(> (strlen (nth 1 fundesc)) 2)       )
      (progn
	;; "] " (car fundesc)"LINE_BREAK"	;; "** " (nth 2 fundesc)"LINE_BREAK"	;; "功能: " (nth 1 fundesc)"LINE_BREAK"	;; "参数: " (nth 3 fundesc)"LINE_BREAK"	;; "返回值: " (nth 4 fundesc)"LINE_BREAK"	;; "示例: " (nth 5 fundesc)"LINE_BREAK"
	(setq funsym (read (nth 0 fundesc)))
	(setq paras (cdr (read (nth 2 fundesc))))
	(setq str-paras (@dev::vscode-handle-paras paras))
	
	(setq desc (nth 1 fundesc))
	(if (/= 'str (type desc))
	    (setq desc ""))
	(setq desc (strcat
		    desc
		    (if (and (= 'str (type (nth 4 fundesc)))
			     (/= ""  (nth 4 fundesc)))
			(strcat "\\n 返回值:" (nth 4 fundesc))
		      "")
		    (if (and (= 'str (type (nth 5 fundesc)))
			     (/= ""  (nth 5 fundesc)))
			(strcat "\\n 示例: \\n```\n" (string:subst-all "" "\n" (vl-string-trim " "(nth 5 fundesc)))"\n```")
		      "")))

(if funsym
	    (progn
	      (write-line (strcat "\"" (strcase (vl-symbol-name funsym) t) "\": {") fp)
	      (write-line (strcat "\"prefix\" : \"" (strcase (vl-symbol-name funsym) t) "\",") fp)
	      (write-line (strcat "\"body\": [") fp)
	      (write-line (strcat "\"("
				  (strcase (vl-symbol-name funsym) t)
				  str-paras 
				  ")\"")
			  fp)
	      (write-line "],"fp)
	      (write-line (strcat
			   "\"description\":"
			   "\"" (string:subst-all "\\n " "\n"
						  (string:subst-all
						   "\\\"" "\""
						   desc)) "\"")
			  fp)
	      (write-line "}," fp)
	      )
	  )
	)))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@dev::funlib-make-ac-vscode

上传记录