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

用法及说明
源码

block:insert

说明：插入块参照，参数：blkname 块名，path 块文件路径(以/结尾,不含块文件名)， pt 插入点, ang 旋转角度，scale 比例。

用法：

 (block:insert blkname path pt ang scale)

参数：1 blkname : 块名称;2 path : 文件路径;3 pt : 单个2D/3D坐标点;4 ang : 角度值;5 scale : 比例值;

返回值：块实体

示例：

(block:insert "aa" "C:/design/" (getpoint) 0 1)

(defun block:insert (blkname path pt ang scale)
  "插入块参照，参数：blkname 块名，path 块文件路径(以/结尾,不含块文件名)， pt 插入点, ang 旋转角度，scale 比例。"
  "块实体"
  "(block:insert \"aa\"
    \"C:/design/\"
    (getpoint)
    0 1)"
  (if (tblsearch "block"
      blkname)
    (progn (if vla-insertblock (vla-insertblock (if (string-equal "Model"
              (getvar "ctab"))
            *ms* (vla-get-block (vla-get-activelayout *doc*)))
          (point:to-ax pt)
          blkname scale scale scale ang)
        (entmakex (list (quote (0 . "INSERT"))
            (quote (100 . "AcDbEntity"))
            (quote (100 . "AcDbBlockReference"))
            (cons 2 blkname)
            (cons 10 pt)
            (cons 41 scale)
            (cons 42 scale)
            (cons 43 scale)
            (cons 50 ang))))
      (entlast))
    (if (findfile (strcat path blkname ".dwg"))
      (progn (if vla-insertblock (vla-insertblock (if (string-equal "Model"
                (getvar "ctab"))
              *ms* (vla-get-block (vla-get-activelayout *doc*)))
            (point:to-ax pt)
            (findfile (strcat path blkname ".dwg"))
            scale scale scale ang)
          (progn (setvar "attreq"
              0)
            (command "-insert"
              (strcat path blkname)
              pt scale scale (angtos ang 0 0))
            (setvar "attreq"
              1)))
        (entlast)))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

block:insert

上传记录