(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:similar-p

说明：判定两曲线是否相似,curve1,curve2 曲线图元,默认相似度:95%

用法：

 (curve:similar-p curve1 curve2)

参数：1 curve1 : 曲线;2 curve2 : 曲线;

返回值：bool

示例：

(curve:similar-p (car(entsel))(car(entsel)))

(defun curve:similar-p (curve1 curve2 / similarity o1 o2 nolength)
  "判定两曲线是否相似,curve1,curve2 曲线图元,默认相似度:95%"
  "bool"
  "(curve:similar-p (car(entsel))(car(entsel)))"
  (setq nolength (quote ("CIRCLE"
        "ARC"
        "SPLINE"
        "ELLIPSE"
        "REGION")))
  (if (@::get-config (quote curve:similarity))
    (setq similarity (- 1 (@::get-config (quote curve:similarity))))
    (setq similarity 0.05))
  (setq o1 (e2o curve1)
    o2 (e2o curve2))
  (and (if (or (member (entity:getdxf curve1 0)
          nolength)
        (member (entity:getdxf curve2 0)
          nolength))
      t (cond ((equal (vla-get-length o1)
            (vla-get-length o2)
            1.0e-06)
          t)
        ((/= (vla-get-length o2)
            0)
          (equal (/ (float (vla-get-length o1))
              (float (vla-get-length o2)))
            1 similarity))))
    (progn (setq area1 (if (= "LINE"
            (entity:getdxf curve1 0))
          0 (vla-get-area o1)))
      (setq area2 (if (= "LINE"
            (entity:getdxf curve2 0))
          0 (vla-get-area o2)))
      (cond ((equal area1 area2 1.0e-06)
          t)
        ((/= area2 0)
          (equal (/ area1 area2)
            1 similarity))
        (t nil)))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

curve:similar-p

上传记录