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

用法及说明
源码

curve:rectanglep

说明：测试一个多段线是否为矩形,判断矩形

用法：

 (curve:rectanglep ent)

参数：1 ent : 单个图元;

返回值：T or nil

示例：

(defun curve:rectanglep (ent)
  "测试一个多段线是否为矩形,判断矩形"
  "T or nil"
  (and (= (quote ename)
      (type ent))
    (wcmatch (entity:getdxf ent 0)
      "*POLYLINE")
    (or (and (= (entity:getdxf ent 90)
          4)
        (= (entity:getdxf ent 70)
          1))
      (and (= (entity:getdxf ent 90)
          5)
        (= (entity:getdxf ent 70)
          0)))
    (apply (quote =)
      (entity:getdxf ent 42))
    (progn (setq pts (curve:get-points ent))
      (setq ang (abs (- (angle (nth 0 pts)
              (nth 1 pts))
            (angle (nth 1 pts)
              (nth 2 pts)))))
      (if (> ang pi)
        (setq ang (- ang pi)))
      (and (equal ang (* pi 0.5)
          1.0e-06)
        (equal (distance (nth 0 pts)
            (nth 1 pts))
          (distance (nth 2 pts)
            (nth 3 pts))
          1.0e-06)
        (equal (distance (nth 0 pts)
            (nth 2 pts))
          (distance (nth 1 pts)
            (nth 3 pts))
          1.0e-06)
        (if (nth 4 pts)
          (< (distance (nth 0 pts)
              (nth 4 pts))
            1.0e-06)
          t)))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

curve:rectanglep

上传记录