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

用法及说明
源码

string:s2l-ansi

说明：字符串转字byte or word 整数值列表。n当小于128时，单字节，当两个连续的大于128时，双字节值。用于转换非英文字串时防止重码。n当AutoCAD2021且lispsys=1时，返回 unicode 码。

用法：

 (string:s2l-ansi str)

参数：1 str : 字符串;

返回值：

示例：

(defun string:s2l-ansi (str / lst-src lst-str h% res)
  "字符串转字byte or word 整数值列表。\n当小于128时，单字节，当两个连续的大于128时，双字节值。用于转换非英文字串时防止重码。\n当AutoCAD2021且lispsys=1时，返回 unicode 码。"
  (if (and (getvar "lispsys")
      (<= 1 (getvar "lispsys")))
    (vl-string->list str)
    (progn (setq h% 0)
      (setq res (quote nil))
      (setq lst-src (vl-string->list str))
      (while (setq byte% (car lst-src))
        (cond ((and (= 0 h%)
              (apply (quote and)
                (mapcar (quote =)
                  (list 92 85 43)
                  lst-src)))
            (setq lst-src (cdr lst-src))
            (setq lst-src (cdr lst-src))
            (setq lst-src (cdr lst-src))
            (setq res (cons (fix (m:hex2dec (strcat "0x"
                      (chr (car lst-src))
                      (chr (cadr lst-src))
                      (chr (nth 2 lst-src))
                      (chr (nth 3 lst-src)))))
                res))
            (setq lst-src (cdr lst-src))
            (setq lst-src (cdr lst-src))
            (setq lst-src (cdr lst-src)))
          ((and (= 0 h%)
              (/= byte% 92)
              (or (< byte% 128)
                (> byte% 255)))
            (setq res (cons byte% res)))
          ((and (= 0 h%)
              (> 256 byte% 127))
            (setq h% byte%))
          ((or (and (> 170 h% 127)
                (< byte% 128))
              (and (> 256 h0 170)
                (> 64 byte%)))
            (setq res (cons h% res))
            (setq res (cons byte% res))
            (setq h% 0))
          ((or (and (> 170 h% 127)
                (> 256 byte% 127))
              (and (> 256 h% 170)
                (> byte% 64)))
            (setq res (cons (+ (lsh h% 8)
                  byte%)
                res))
            (setq h% 0)))
        (setq lst-src (cdr lst-src)))
      (reverse res))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

string:s2l-ansi

上传记录