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

用法及说明
源码

@text:draw-box

说明:外框

用法:

 (@text:draw-box ent)

参数:ent

返回值:

示例:

(defun @text:draw-box (ent / box newent)
  ;; 文本加框  (if (list:member
       (entity:getdxf ent 50)
       (list 0 pi (* 0.5 pi) (* 1.5 pi))
       0.001)
      (setq box (entity:getbox ent (@:get-config '@text:box-offset)))
    (progn
      (setq box (textbox (entget ent)))
      ))
  (cond
   ((= (@:get-config '@text:box-type) 1)
    (setq newent
	  (apply 'entity:make-rectangle
		 box))
    (if (not (list:member
	      (entity:getdxf ent 50)
	      (list 0 pi (* 0.5 pi) (* 1.5 pi)) 0.001))
	(progn
	  (setq newent1
		(car(vlax-safearray->list (vlax-variant-value 
					   (vla-offset (e2o newent)
						       (@:get-config '@text:box-offset))))))
	  (entdel newent)
	  
	  (vla-move newent1
		    (apply 'vlax-3d-point (apply 'point:mid box))
		    (apply 'vlax-3d-point (apply 'point:mid (entity:getbox ent (@:get-config '@text:box-offset)))))
	  (vla-rotate newent1
		      (apply 'vlax-3d-point (apply 'point:mid (entity:getbox ent (@:get-config '@text:box-offset))))
		      (entity:getdxf ent 50))
	  (setq newent (o2e newent1))
	  )
      )
    )
   ((= (@:get-config '@text:box-type) 2)
    (setq newent
	  (entity:make-circle
	   (apply 'point:mid box)
	   (* 0.5 (apply 'distance box))))
    (if (not (list:member
	      (entity:getdxf ent 50)
	      (list 0 pi (* 0.5 pi) (* 1.5 pi)) 0.001))
	(progn
	  (setq newent1
		(car(vlax-safearray->list (vlax-variant-value 
					   (vla-offset (e2o newent)
						       (@:get-config '@text:box-offset))))))
	  (entdel newent)
	  (vla-move newent1
		    (apply 'vlax-3d-point (apply 'point:mid box))
		    (apply 'vlax-3d-point (apply 'point:mid (entity:getbox ent (@:get-config '@text:box-offset)))))
	  (vla-rotate newent1
		      (apply 'vlax-3d-point (apply 'point:mid (entity:getbox ent (@:get-config '@text:box-offset))))
		      (entity:getdxf ent 50))
	  (setq newent (o2e newent1))
	  )
      )
    )
   (t (setq newent (apply 'entity:make-rectangle
			  box))))
  (if newent
      (progn
	(if (= "LWPOLYLINE"(entity:getdxf newent 0))
	    (setq newent (entity:putdxf newent 43 (@:get-config '@text:box-linewidth))))
	(setq newent (entity:putdxf newent 62 (@:get-config '@text:box-color)))
	(if (/= "" (@:get-config '@text:box-layer))
	    ;; 创建图层	    (entity:putdxf newent 8 (@:get-config '@text:box-layer)))
	)
    )
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@text:draw-box

上传记录