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

用法及说明
源码

at-structure:secondarybeam-result

说明:

用法:

 (at-structure:secondarybeam-result)

参数:

返回值:

示例:

(defun at-structure:secondarybeam-result () 
  "找出梁边(成对的平行线)"
  (setq beamlines (pickset:to-list 
                    (ssget 
                      (list 
                        '(0 . "line")
                        (cons 8 "15104")
                      )
                    )
                  )
  )
  (foreach beamline beamlines 
    ;; 向上向左500，向下200取文字    (setq pt-mid (curve:midpoint beamline))
    (setq ang (apply 'angle (entity:getdxf beamline '(10 11))))
    (setq uptext (ssget 
                   "c"
                   pt-mid
                   (polar 
                     (polar pt-mid ang 150)
                     (+ (* 0.5 pi) ang)
                     500
                   )
                   '((0 . "MTEXT"))
                 )
    )
    (if uptext 
      (progn 
        (foreach ent (pickset:to-list uptext) 
          (entity:putdxf ent 8 "次梁数据")
          (entity:putdxf 
            ent
            1
            (string:subst-all "\\C6" "\\C4" (entity:getdxf ent 1))
          )
          (entity:putdxf ent 62 6)
        )
      )
    )
    (setq downtext (ssget 
                     "c"
                     pt-mid
                     (polar 
                       (polar pt-mid ang 150)
                       (+ (* 1.5 pi) ang)
                       200
                     )
                     '((0 . "MTEXT"))
                   )
    )
    (if downtext 
      (progn 
        (foreach ent (pickset:to-list downtext) 
          (entity:putdxf ent 8 "次梁数据")
          (entity:putdxf 
            ent
            1
            (string:subst-all "\\C6" "\\C4" (entity:getdxf ent 1))
          )
          (entity:putdxf ent 62 6)
        )
      )
    )
  )
)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-structure:secondarybeam-result

上传记录