(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 '("你家门口有两双鞋。" "一双是你的。" "另一双也是你的。" ) "是-否")

用法及说明
源码

cl:handle-keywords

说明:处理lisp表达式或form中的关键字符号，因autolisp的eval不支持。在eval前进行处理。

用法:

 (cl:handle-keywords expr)

参数:1 expr : 表达式，一般指lisp表达式;

返回值:expr

示例:

(cl:handle-keywords '(:a 1 :b 2 :c 3 :d "abc"))

(defun cl:handle-keywords (expr)
  "处理lisp表达式或form中的 关键字符号，因autolisp的eval不支持。在eval前进行处理。"
  "expr"
  "(cl:handle-keywords '(:a 1 :b 2 :c 3 :d \"abc\"))"
  (cond ((listp expr)
      (mapcar (quote handle-keywords)
        expr))
    ((= (type expr)
        (quote sym))
      (if (and (= (ascii ":")
            (ascii (vl-symbol-name expr)))
          (null expr))
        (progn (setq sym-str (vl-symbol-name expr))
          (set (read sym-str)
            (read sym-str)))
        (read (vl-symbol-name expr))))
    (t expr)))
(defun cl:handle-keywords (expr)
  "处理lisp表达式或form中的 关键字符号，因autolisp的eval不支持。在eval前进行处理。"
  "expr"
  "(cl:handle-keywords '(:a 1 :b 2 :c 3 :d \"abc\"))"
  (cond ((listp expr)
      (mapcar (quote handle-keywords)
        expr))
    ((= (type expr)
        (quote sym))
      (if (and (= (ascii ":")
            (ascii (vl-symbol-name expr)))
          (null expr))
        (progn (setq sym-str (vl-symbol-name expr))
          (set (read sym-str)
            (read sym-str)))
        (read (vl-symbol-name expr))))
    (t expr)))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

cl:handle-keywords

上传记录