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

用法及说明
源码

@pm:insert-tukuang-backend

说明:插入

用法:

 (@pm:insert-tukuang-backend downfile dwg-file pt)

参数:downfile;dwg-file;pt

返回值:

示例:

(defun @pm:insert-tukuang-backend (downfile dwg-file pt)
  (if (null (findfile (strcat "packages/" downfile )))
      (progn
	(@:load-module 'pkgman)
	(@:down-pkg-file (@:uri) downfile "stable")(@:alert (strcat "正在下载所需的 " dwg-file ",请稍候。"))(sleep 5)))
  ;; 检测文件夹是否存在  (if (null (vl-file-directory-p (@:get-config '@pm:tuku)))
      (@:mkdir (@:path (@:get-config '@pm:tuku))))
  ;;(alert (strcat "没有发现图库文件夹，请先创建 " (@:get-config '@pm:tuku)))  (if (null (findfile (strcat (@:get-config '@pm:tuku) "\\" dwg-file ".dwg")))
      (vl-file-copy (findfile (strcat "packages\\" downfile)) (strcat (@:get-config '@pm:tuku ) "\\" dwg-file ".dwg"))
    )
  ;;;(@:debug "TEST" "insert-tukuang")  (if (findfile (strcat (@:get-config '@pm:tuku ) "\\" dwg-file ".dwg"))
      (progn 
	(setq tk (block:insert dwg-file (system:dir(@:get-config '@pm:tuku )) pt 0 (@::get-config '@pm:tukuang-scale)))
	(block:set-attributes tk
			      (list (cons "年"  (datetime:get-current-year))
				    (cons "月"  (datetime:get-current-month))
				    (cons "日"  (datetime:get-current-day))
				    (cons "日期" (strcat (datetime:get-current-year) "." (datetime:get-current-month)))
				    )
			      )
	(if (and (vla-get-isdynamicblock (e2o tk));;动态块		 (@:get-config '@pm:tukuang-mapsheet))
	    (block:set-dynprop tk "map-sheet" (@:get-config '@pm:tukuang-mapsheet)))
	tk
	)))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@pm:insert-tukuang-backend

上传记录