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

用法及说明
源码

@m:draw

说明:绘制

用法:

 (@m:draw)

参数:

返回值:

示例:

(defun @m:draw (/ pt1 pt-base ents  *error*)
  (defun *error*(msg)
    (if ents
	(mapcar 'entdel ents))
    (princ msg))
  (setq pt-base '(0 0 0))
  (setq ents nil)
  (cond
    ((atom @m:*result*)
     (setq ents
	   (entity:putdxf
	    (entity:make-text (@:to-string @m:*result*)
			      pt-base
			      (* 3.5 (@:get-config '@::draw-scale)) 0 0.8 0 "RB")
	    62 2)))
    ((listp @m:*result*)
     (setq pt1 pt-base)
     (if (= (length @m:*result*)
	    (length @m:tmp-line-spacings))
	 (setq ents
	       (mapcar '(lambda(x row-spacing)
			 (entity:putdxf
			  (entity:make-text (@:to-string x)
			   (polar pt-base (* 1.5 pi) row-spacing)
			   (* 3.5 (@:get-config '@::draw-scale))
			   0 0.8 0 "RB")
			  62 2))
		       @m:*result*
		       @m:tmp-line-spacings))
	 (foreach atom% @m:*result*
		  (setq ents
			(cons
			 (entity:putdxf
			  (entity:make-text (@:to-string atom%)
					    pt1
					    (* 3.5 (@:get-config '@::draw-scale))
					    0 0.8 0 "RB")
			  62 2)
			 ents
			 ))
		  (setq pt1 (polar pt1 (* 1.5 pi) (* 5 (@:get-config '@::draw-scale))))
		  ))))
  (if ents
      (ui:dyndraw ents pt-base)
      (@::prompt "没有发现计算结果。")))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@m:draw

上传记录