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

用法及说明
源码

@plot:framep

说明:打印

用法:

 (@plot:framep frame-pts)

参数:frame-pts

返回值:

示例:

(defun @plot:framep (frame-pts / test-ratio height flag-hit i j)
  "测试是否多段线图框，依据矩形高度和宽高比，"
  (if (>= (length frame-pts) 4)
      (progn
	(setq @plot:scale-of-frame
	      (mapcar 'atof
		      (string:parse-by-lst (@:get-config '@plot:scale-of-frame) '("," " "))))
	(@plot:load-config)
	(setq frame-pts
	      (vl-sort
	       frame-pts
	       '(lambda (pt1 pt2)
		 (or (< (car pt1)(car pt2))
		  (and (equal (car pt1)(car pt2) 0.001)
		   (< (cadr pt1)(cadr pt2)))))))
	(setq flag-hit nil)
	(setq test-ratio nil)
	;;两低点 1 3 的 y 值是否一致	(if (equal (car (car frame-pts))
	     (car (cadr frame-pts))
	     0.001)
	    (progn
	      (setq height (min (@plot:get-height frame-pts)
				(@plot:get-width frame-pts)))
	      ;; 测试长宽比	      (setq i 0)
	      (while (and (null test-ratio)
			  (< i (length @plot:ratio-of-w/h)))
		(if (equal (@plot:get-ratio (@plot:get-height frame-pts)
					    (@plot:get-width frame-pts))
			   (nth i @plot:ratio-of-w/h)
			   0.002)
		    (setq test-ratio T))
		(setq i (1+ i)))))
	;; 测试高度	(if test-ratio
      (progn
	(setq flag-hit nil)
	(foreach
	 h
	 @plot:height-of-frame
	 (foreach
	  scale @plot:scale-of-frame
	  (if (equal height
		     (* h scale)
		     (* 0.001 height))
	      (setq flag-hit T))
	  ))))
	flag-hit)))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@plot:framep

上传记录