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

用法及说明
源码

example:dbx

说明：用DBX方式删除dwg文件中的图框签名和手写签名块

用法：

 (example:dbx )

参数：没有一个

返回值：

示例：

(defun example:dbx nil "用DBX方式删除dwg文件中的图框签名和手写签名块"
  ""
  ""
  "修改以下配置信息==================================="
  (setq framename "图框块名")
  (setq signs (quote ("签名1"
        "签名2")))
  "
  =================================================="
  (defun dbx-clean-att (dwg-file / blk-obj blk3)
    "打开外部dwg的DBX对象. 假定文件为 D:/abc.dwg"
    (setq dwg-file (findfile dwg-file))
    (dbx:open dwg-file)
    "取dbx中的模型空间中的实体"
    (setq dbx-ms (vla-get-modelspace *dbx*))
    "取dbx块集中的第4个块定义对象（前几个是model-space paper-space之类的）"
    (setq n 0)
    (repeat (vla-get-count dbx-ms)
      (setq obj% (vla-item dbx-ms n))
      (print (vla-get-objectname obj%))
      (cond ((and (= (vla-get-objectname obj%)
              "AcDbBlockReference")
            (= (vla-get-hasattributes obj%)
              :vlax-true)
            (= (vla-get-effectivename obj%)
              framename))
          (block:set-attributes obj% (quote (("设计"
                  . "")
                ("校对"
                  . "")))))
        ((and (= (vla-get-objectname obj%)
              "AcDbBlockReference")
            (member (vla-get-effectivename obj%)
              signs))
          (vla-delete obj%)))
      (setq n (1+ n)))
    (setq tmp-file (strcat dwg-file ".b.dwg"))
    (vla-saveas *dbx* tmp-file)
    (dbx:release)
    (if (and (findfile tmp-file)
        (> (vl-file-size tmp-file)
          0))
      (progn (vl-file-delete dwg-file)
        (vl-file-rename tmp-file dwg-file))))
  (dbx-clean-att "D:/xxx.dwg"))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

example:dbx

上传记录