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

用法及说明
源码

std:addtoolbars

说明：

用法：

 (std:addtoolbars menugroupname toolbaritems)

参数：1 menugroupname : 未明确定义; 2 toolbaritems : 未明确定义;

返回值：

示例：

(defun std:addtoolbars (menugroupname toolbaritems / flyout flyoutbutton helpstring idx items largeiconname left macro menugroupobj name smalliconname toolbar toolbaritem toolbarname toolbars top)
    (if (not (setq menugroupobj (std:catchapply vla-item (list (vla-get-menugroups (vlax-get-acad-object))
                        menugroupname))))
        (progn (alert (strcat "菜单组\""
                    menugroupname "\"不存在！无法加载菜单条！"))
            (exit)))
    (setq toolbars (vla-get-toolbars menugroupobj))
    (foreach items toolbaritems (setq toolbarname (car items)
            left (cadr items)
            top (caddr items)
            items (cdddr items))
        (if (setq toolbar (std:catchapply vla-item (list toolbars toolbarname)))
            (vla-delete toolbar))
        (setq toolbar (vla-add toolbars toolbarname))
        (vla-put-left toolbar left)
        (vla-put-top toolbar top)
        (setq idx 0)
        (foreach lst items (setq name (car lst)
                helpstring (cadr lst)
                macro (caddr lst)
                smalliconname (cadddr lst)
                largeiconname (car (cddddr lst))
                flyoutbutton (cadr (cddddr lst)))
            (if (not largeiconname)
                (setq largeiconname smalliconname))
            (if flyoutbutton (setq flyout :vlax-true)
                (setq flyout :vlax-false))
            (setq toolbaritem (std:catchapply vla-addtoolbarbutton (list toolbar idx name helpstring macro flyout)))
            (std:catchapply vla-setbitmaps (list toolbaritem smalliconname largeiconname))
            (if flyoutbutton (std:catchapply vla-attachtoolbartoflyout (list toolbaritem menugroupname flyoutbutton)))
            (setq idx (1+ idx)))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

std:addtoolbars

上传记录