(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:dcl-subdialog

说明：DCL多级对话框示例代码

用法：

 (example:dcl-subdialog )

参数：没有一个

返回值：

示例：

(example:dcl-subdialog)

(defun example:dcl-subdialog (/ *error* curr-page total-page dcl-fp dcl-tmp cb-flush-page cb-img1 cb-img2 cb-img3)
  "DCL多级对话框示例代码"
  ""
  "(example:dcl-subdialog)"
  (require (quote dcl:*))
  (defun sub-dialog (m n / curr-page total-page dcl-fp dcl-tmp cb-flush-page page-init)
    "m n 表示图像的 行 列个数"
    "1. Model 建立数据模型。"
    (setq curr-page 0)
    (setq total-page 3)
    "2. View 建立显示视图。"
    (dcl:dialog "subimgs")
    (progn (dcl:hr 0.08)
      (write-line ":text{key=\"num\";}"
        dcl-fp)
      (dcl:hr 0.08)
      (setq i 0)
      (dcl:begin-cluster "column"
        "")
      (repeat m (dcl:begin-cluster "row"
          "")
        (repeat n (dcl:image-button (strcat "subimg"
              (itoa (setq i (1+ i))))
            20 10 nil))
        (dcl:end-cluster))
      (dcl:end-cluster)
      (dcl:hr 0.08)
      (dcl:paging t))
    (dcl:dialog-end-ok-cancel)
    "3. Control 创建控制流程"
    (defun cb-flush-page nil (set_tile "num"
        (strcat "当前页面: "
          (itoa (1+ curr-page)))))
    "4. New 一个新对话框对象。"
    (dcl:new "subimgs")
    "5. Init 初始化对话框"
    (set_tile "title"
      "子窗口")
    (paging-init)
    (cb-flush-page)
    "6. Show dialog 显示并进行交互"
    (dcl:show)
    (princ))
  "1. Model 建立数据模型。"
  (setq curr-page 0)
  (setq total-page 5)
  "2. View 建立显示视图。"
  (dcl:dialog "example")
  (progn (dcl:hr 0.08)
    (write-line ":text{key=\"num\";}"
      dcl-fp)
    (dcl:hr 0.08)
    (setq i 0)
    (dcl:begin-cluster "column"
      "")
    (repeat 4 (dcl:begin-cluster "row"
        "")
      (repeat 3 (dcl:image-button (strcat "img"
            (itoa (setq i (1+ i))))
          30 10 nil))
      (dcl:end-cluster))
    (dcl:end-cluster)
    (dcl:hr 0.08)
    (dcl:paging t))
  (dcl:dialog-end-ok-cancel)
  "3. Control 创建控制流程"
  (defun cb-flush-page nil (set_tile "num"
      (strcat "当前页面: "
        (itoa (1+ curr-page)))))
  (defun cb-img1 nil (sub-dialog 2 2))
  (defun cb-img2 nil (sub-dialog 3 3))
  (defun cb-img3 nil (sub-dialog 3 1))
  "4. New 一个新对话框对象。"
  (dcl:new "example")
  "5. Init 初始化对话框"
  (set_tile "title"
    "主窗口")
  (paging-init)
  (cb-flush-page)
  "6. Show dialog 显示并进行交互"
  (dcl:show)
  (princ))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

example:dcl-subdialog

上传记录