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

用法及说明
源码

frame:ref-box

说明:取块参照的**世界**包围盒。n`entity:getbox` 失败时（个别块参照取不到 boundingbox）回退到块内轮廓盒n（`frame:block-box`，块坐标系）再按插入点/旋转/缩放做 BCS->WCS 变换，n四个角都变换后取轴对齐包围盒（因此任意旋转角度也成立）。n来源：private-packages/sd1t 的 sd1t:get-insert-box / get-insert-box-by-subents。

用法:

 (frame:ref-box ref)

参数:1 ref : 未识别定义;

返回值:list - (左下右上)；失败返回 nil

示例:

(frame:ref-box (car (entsel)))

(defun frame:ref-box (ref / box bname bbox pts base)
  "取块参照的**世界**包围盒。\n`entity:getbox` 失败时（个别块参照取不到 boundingbox）回退到块内轮廓盒\n（`frame:block-box`，块坐标系）再按插入点/旋转/缩放做 BCS->WCS 变换，\n四个角都变换后取轴对齐包围盒（因此任意旋转角度也成立）。\n来源：private-packages/sd1t 的 sd1t:get-insert-box / get-insert-box-by-subents。"
  "list - (左下 右上)；失败返回 nil"
  "(frame:ref-box (car (entsel)))"
  (require (quote frame:*))
  (require (quote entity:*))
  (require (quote block:*))
  (require (quote point:*))
  (if (= (quote vla-object)
      (type ref))
    (setq ref (vlax-vla-object->ename ref)))
  (if (and ref (= "INSERT"
        (cdr (assoc 0 (entget ref)))))
    (progn (setq box (vl-catch-all-apply (quote entity:getbox)
          (list ref 0)))
      (if (and (not (vl-catch-all-error-p box))
          box (= 2 (length box)))
        box (progn (setq bname (cdr (assoc 2 (entget ref))))
          (if (setq bbox (frame:block-box bname))
            (progn (setq base (cdr (assoc 10 (entget (tblobjname "BLOCK"
                        bname)))))
              (setq pts (mapcar (quote (lambda (p)
                      (block:bcs2wcs p base (cdr (assoc 10 (entget ref)))
                        (or (cdr (assoc 50 (entget ref)))
                          0.0)
                        (or (cdr (assoc 41 (entget ref)))
                          1.0))))
                  (apply (quote point:rec-2pt->4pt)
                    bbox)))
              (list (list (apply (quote min)
                    (mapcar (quote car)
                      pts))
                  (apply (quote min)
                    (mapcar (quote cadr)
                      pts))
                  0.0)
                (list (apply (quote max)
                    (mapcar (quote car)
                      pts))
                  (apply (quote max)
                    (mapcar (quote cadr)
                      pts))
                  0.0)))))))
    nil))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

frame:ref-box

上传记录