(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:title-block-p

说明:判断块（参照或块定义名）内是否含**图签类文字**，用来挡住「尺寸偶然命中标准图幅」的符号块。n默认关键词：有限公司 / 工程名称 / 项目名称 / 图名 / 图号 / 名称（`keys` 传 nil 用默认，n可用逗号分隔的通配符覆盖）。只看文字内容，不依赖属性块。n来源：private-packages/sd1t 的 sd1t:frame-p 里用 `*有限公司,*名称` 做文字指纹的思路（关键词改为可配）。

用法:

 (frame:title-block-p ref keys)

参数:1 ref : 未识别定义;2 keys : 键，关键字;

返回值:T / nil

示例:

(frame:title-block-p (car (entsel)) nil)

(defun frame:title-block-p (ref keys / bname ents pat)
  "判断块（参照或块定义名）内是否含**图签类文字**，用来挡住「尺寸偶然命中标准图幅」的符号块。\n默认关键词：有限公司 / 工程名称 / 项目名称 / 图名 / 图号 / 名称（`keys` 传 nil 用默认，\n可用逗号分隔的通配符覆盖）。只看文字内容，不依赖属性块。\n来源：private-packages/sd1t 的 sd1t:frame-p 里用 `*有限公司,*名称` 做文字指纹的思路（关键词改为可配）。"
  "T / nil"
  "(frame:title-block-p (car (entsel))
    nil)"
  (require (quote block:*))
  (require (quote entity:*))
  (if (not keys)
    (setq keys "*有限公司*,*工程名称*,*项目名称*,*图名*,*图号*,*名称*"))
  (cond ((= (quote ename)
        (type ref))
      (setq bname (entity:getdxf ref 2)))
    ((p:stringp ref)
      (setq bname ref))
    (t (setq bname nil)))
  (if (and bname (tblsearch "BLOCK"
        bname))
    (progn (setq ents (block:ent-list bname))
      (setq ents (vl-remove-if-not (quote (lambda (x)
              (wcmatch (entity:getdxf x 0)
                "*TEXT")))
          ents))
      (if (vl-some (quote (lambda (x)
              (setq pat (entity:getdxf x 1))
              (and pat (wcmatch pat keys))))
          ents)
        t nil))
    nil))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

frame:title-block-p

上传记录