(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:find-beam

说明:查找

用法:

 (at-structure:find-beam)

参数:

返回值:

示例:

(defun at-structure:find-beam (/ ss-beam lst-beam en-line1 en-line2) 
  "找出梁边(成对的平行线)"
  (setq ss-beam (pickset:to-list 
                  (ssget 
                    (list 
                      '(0 . "line")
                      (cons 8 (@:get-config 'at-structure:layer-beam))
                    )
                  )
                )
  )
  ;; (setq ss-beam  ;; 	(vl-sort ss-beam  ;; 		 '(lambda (x y) ;;按角度排序  ;; 		   (< (angle (entity:getdxf x 10)(entity:getdxf x 11))  ;; 		    (angle (entity:getdxf y 10)(entity:getdxf y 11))))))  (setq lst-beam nil)
  (while (> (length ss-beam) 1) 
    (setq en-line1 (car ss-beam))
    (setq ss-beam (vl-sort 
                    (cdr ss-beam)
                    '(lambda (x y) 
                       (and 
                         ((geometry:angle en-line1) 
                           (< 
                             (geometry:dist-pt-line 
                               (geometry:segment-mid 
                                 (geometry:segment-by-line en-line1)
                               )
                               (geometry:segment-by-line x)
                             )
                             (geometry:dist-pt-line 
                               (geometry:segment-mid 
                                 (geometry:segment-by-line en-line1)
                               )
                               (geometry:segment-by-line y)
                             )
                           )
                         )
                       )
                     )
                  )
    )
    (setq lst-beam (append lst-beam (list (list en-line1 (car ss-beam)))))
    (entity:make-line 
      (geometry:segment-mid (geometry:segment-by-line en-line1))
      (geometry:segment-mid (geometry:segment-by-line (car ss-beam)))
    )
    (setq ss-beam (cdr ss-beam))
  )
  lst-beam
)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-structure:find-beam

上传记录