(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:draw-stirrup

说明:绘制

用法:

 (at-structure:draw-stirrup pt-base b h)

参数:pt-base;b;h

返回值:

示例:

(defun at-structure:draw-stirrup (pt-base b h)
  "绘制箍筋，b h为矩形箍内相对纵筋的宽和高，如果一个为0，则绘制单肢箍"
  
  (setq pt5 (polar pt-base (* 1.25 pi) (* 18 (sqrt 2))))
  (entity:make-point pt-base)
  (cond
   ((zerop b)
    (setq pt6 (polar pt5 (* 0.75 pi) 80)
	  pt4 (polar pt5 0 33)
	  pt3 (polar pt4 (* 0.5 pi) (+ h 36))
	  pt2 (polar pt3 pi 33)
	  pt1 (polar pt2 (* 1.25 pi) 80))
    (entity:make-lwpline-bold
     (list pt1 pt2 pt3 pt4 pt5 pt6 )
     nil 0 0 8)
    )
   ((zerop h)
    (setq pt6 (polar pt5 (* 1.75 pi) 80)
	  pt4 (polar pt5 (* 0.5 pi) 33)
	  pt3 (polar pt4 0 (+ b 36))
	  pt2 (polar pt3 (* 1.5 pi) 33)
	  pt1 (polar pt2 (* 1.25 pi) 80))
    (entity:make-lwpline-bold
     (list pt1 pt2 pt3 pt4 pt5 pt6 )
     nil 0 0 8)
    )
   (t
    (setq pt6 (polar pt5 0 (+ b 36))
	  pt4 (polar pt5 (* 0.5 pi)  (+ h 36))
	  pt3 (polar pt4 0 (+ b 36))
	  pt7 pt3
	  pt2 (polar pt3 (* 1.5 pi) 30)
	  pt1 (polar pt2 (* 1.25 pi) 80)
	  pt8 (polar pt3 pi 30)
	  pt9 (polar pt8 (* 1.25 pi) 80))
    (entity:make-point (polar pt3 (* 1.25 pi) (* 18 (sqrt 2))))
    (entity:make-lwpline-bold
     (list pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9)
     nil 0 0 8)
    )))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-structure:draw-stirrup

上传记录