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

用法及说明
源码

example:error-exit

说明：函数错误处理方案示例 *error* 定义私有函数，隔绝公共域 *error* ，使之不用重定义。参数 para .为 t 时执行正常流程，为 nil 时，执行错误处理流程。

用法：

 (example:error-exit para)

参数：1 para : 未识别定义;

返回值：

示例：

(example:error-exit nil)

(defun example:error-exit (para / *error*)
  "函数错误处理方案示例 *error* 定义私有函数，隔绝公共域 *error* ，使之不用重定义。\n参数 para .为 t 时执行正常流程，为 nil 时，执行错误处理流程。"
  ""
  "(example:error-exit nil)"
  (defun *error* (msg)
    "当异常退出时，正常流程没有关闭文件指针，在这里关闭"
    (if (= (quote file)
        (type fp))
      (progn (princ "关闭出错时的文件句本柄。\n")
        (close fp)))
    (princ "当异常退出时，设置的变量没有恢复，在这里恢复")
    (pop-var)
    (princ "显示恢复的变量值：")
    (princ (getvar "osmode"))
    (princ "\n")
    "以上为你专用的处理过程"
    "下面是 @lisp 常用错误处理过程"
    (@:*error* msg)
    (princ))
  "设置当前运行的函数名，当出错时给出信息。"
  (setq *funname* (quote example:error-exit))
  (princ "显示变量原值：")
  (princ (getvar "osmode"))
  (princ "\n")
  (push-var)
  "修改变量"
  (setvar "osmode"
    0)
  (princ "显示修改后的变量值：")
  (princ (getvar "osmode"))
  (princ "\n")
  (setq fp (open (findfile "acad.pgp")
      "r"))
  (read-line fp)
  (if (null para)
    (progn "这是一个未定义的函数。在这里异常退出."
      (mmma)))
  (princ "正常的流程,关闭文件句柄，恢复变量。")
  (close fp)
  (pop-var)
  (princ "显示恢复的变量值：")
  (princ (getvar "osmode"))
  (princ "\n")
  (princ))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

example:error-exit

上传记录