(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:set-style

说明:设置

用法:

 (@text:set-style)

参数:

返回值:

示例:

(defun @text:set-style (/ ents hzstylename obj)
  (@::prompt "统一设置文本和多行文本中的字体格式。")
  (setq hzstylename (strcat "HZ" (rtos (@::get-config '@text:mtext-width)  2 3)))
  (if (null (tblsearch "style" hzstylename))
      (progn
	(setq obj (vla-add (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object)))
			   hzstylename))
	(vla-setfont obj "宋体" :vlax-false :vlax-false 1 0)
	(vla-put-width obj (@::get-config '@text:mtext-width))
	))
  (setq ents (pickset:to-list (ssget '((0 . "text,mtext")))))
  (foreach
   ent ents 
   (cond 
     ;; 单行文本     ((= "TEXT" (entity:getdxf ent 0))
      (if (< (apply 'max (vl-string->list (entity:getdxf ent 1))) 127) 
          (entity:putdxf ent 7 (@::get-config '@text:en-style)) ;; 需建立小字体为simplex为样式          (entity:putdxf ent 7 (@::get-config '@text:zh-style)) ;; 需建立小字体为 仿宋.ttc 字体样式	  )
      )
     ;; 多行     ((= "MTEXT" (entity:getdxf ent 0))
      (setq res (strcat 
                 "{"
                 (string:from-list 
                  (mapcar 
                   '(lambda (x)
		     (apply 'strcat
		      (mapcar '(lambda(str)
				(if (< (apply 'max (vl-string->list str)) 127) 
				    (setq str (strcat "\\F"(@::get-config '@text:en-font)"|c134;" str))
				    (setq str (strcat "\\f"(@::get-config '@text:zh-font)"|b0|i0|c134|p49;" str))))
		       (string:auto-split (text:remove-fmt x)))))
                   (string:to-list (text:get-mtext ent) "\\P"))
                  "\\P")
                 "}"))
      (vla-put-TextString (e2o ent) res)
      (entity:putdxf ent 7 hzstylename)
      )))
  (princ))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@text:set-style

上传记录