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

用法及说明
源码

vla:put-property

说明：点操作符方式设置对象的属性，参数:sym vla对象的符号，str 用点表示的CAD对象层级的属性名。

用法：

 (vla:put-property sym str value)

参数：1 sym : 未识别定义;2 str : 字符串;3 value : 值;

返回值：any

示例：

(vla:put-property *ACAD* "application.preferences.drafting.autosnapmarkersize" 5)

(defun vla:put-property (sym str value / obj-tree res)
  "点操作符方式设置对象的属性，参数:sym vla对象的符号，str 用点表示的CAD对象层级的属性名。"
  "any"
  "(vla:put-property *ACAD* \"application.preferences.drafting.autosnapmarkersize\"
    5)"
  (if (null acadobj)
    (setq acadobj (vlax-get-acad-object)))
  (setq obj-tree (string:to-list str "."))
  (setq res sym)
  (while (and (p:vlap res)
      (cddr obj-tree))
    (setq porm (string:to-list (cadr obj-tree)
        "("))
      (cond ((vlax-property-available-p res (read (car porm)))
          (setq res (vlax-get-property res (read (car (setq obj-tree (cdr obj-tree)))))))
        ((vlax-method-applicable-p res (read (car porm)))
          (setq params (mapcar (quote read)
              (string:to-list (vl-string-right-trim ")"
                (cadr porm))
              ",")))
        (setq res (apply (quote vlax-invoke)
            (cons res (cons (read (car porm))
                params))))
        (setq obj-tree (cdr obj-tree)))))
  (vlax-put-property res (read (car (setq obj-tree (cdr obj-tree))))
    value))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

vla:put-property

上传记录