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

用法及说明
源码

entity:make-text

说明:生成一个TEXT实体,单行文本, 参数说明： fontsize: 字高 ang: 角度 kgb: 宽高比 qx: 倾斜角 dqys: 对齐方式，L 左 M 中 R 右，T 上 M 中 B 下。

用法:

 (entity:make-text str pt1 fontsize ang kgb qx dqys)

参数:1 str : 字符串;2 pt1 : 单个2D/3D坐标点;3 fontsize : 未识别定义;4 ang : 角度值;5 kgb : 未识别定义;6 qx : 未识别定义;7 dqys : 未识别定义;

返回值:return:文字图元名

示例:

example:(entity:make-text "文字" (getpoint) 3 0 0.8 0 "LB")

(defun entity:make-text (str pt1 fontsize ang kgb qx dqys / y1 y2)
  "生成一个TEXT实体,单行文本,\n参数说明：\nfontsize: 字高\nang: 角度\nkgb: 宽高比\nqx: 倾斜角\ndqys: 对齐方式，L 左 M 中 R 右，T 上 M 中 B 下。\n"
  "return:文字图元名"
  "example:(entity:make-text \"文字\"
    (getpoint)
    3 0 0.8 0 \"LB\")"
  (if (= (quote str)
      (type dqys))
    (setq dqys (strcase dqys)))
  (cond ((or (= dqys 0)
        (= dqys "M"))
      (setq y1 (cons 72 4)
        y2 (cons 73 0)))
    ((or (= dqys 11)
        (= dqys "LT"))
      (setq y1 (cons 72 0)
        y2 (cons 73 3)))
    ((or (= dqys 12)
        (= dqys "LM"))
      (setq y1 (cons 72 0)
        y2 (cons 73 2)))
    ((or (= dqys 13)
        (= dqys "LB"))
      (setq y1 (cons 72 0)
        y2 (cons 73 1)))
    ((or (= dqys 21)
        (= dqys "MT"))
      (setq y1 (cons 72 1)
        y2 (cons 73 3)))
    ((or (= dqys 22)
        (= dqys "MM"))
      (setq y1 (cons 72 1)
        y2 (cons 73 2)))
    ((or (= dqys 23)
        (= dqys "MB"))
      (setq y1 (cons 72 1)
        y2 (cons 73 1)))
    ((or (= dqys 31)
        (= dqys "RT"))
      (setq y1 (cons 72 2)
        y2 (cons 73 3)))
    ((or (= dqys 32)
        (= dqys "RM"))
      (setq y1 (cons 72 2)
        y2 (cons 73 2)))
    ((or (= dqys 33)
        (= dqys "RB"))
      (setq y1 (cons 72 2)
        y2 (cons 73 1)))
    (t (setq y1 (cons 72 0)
        y2 (cons 73 3))))
  (entmakex (list (quote (0 . "TEXT"))
      (cons 10 pt1)
      (cons 1 str)
      (cons 40 fontsize)
      (cons 50 ang)
      (cons 41 kgb)
      (cons 51 qx)
      (quote (71 . 0))
      y1 y2 (cons 11 pt1))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

entity:make-text

上传记录