(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-nlp:parse-attribute

说明:属性

用法:

 (at-nlp:parse-attribute att)

参数:att

返回值:

示例:

(defun at-nlp:parse-attribute (att / lst-att )
  (setq att (@nlp:flatten
	     (mapcar '(lambda(x)
		       (if(= 'color (car x))
			  (list
			   (cons 'attribute 62)
			   (cons 'compare "=")
			   (cons (itoa (cdr x)) nil))
			 x))
		     att)))
  (while (setq att (member (assoc 'attribute att) att))
    (setq curr-att-dxf (cdr (car att)))
    (setq att (cdr att))
    (setq curr-bool "and")
    (setq curr-att nil)
    (while (and att
		(or (/= 'attribute (caar att))
		    (and (= 'attribute (caar att))
			 (= curr-att-dxf (cdr (car att))))
		    ))
      (if (and (= 'attribute (caar att))
	       (= curr-att-dxf (cdar att)))
	  (setq att (cdr att)))
      (cond
	((and (= 'compare (car (nth 0 att)))
	      (null (cadr (nth 1 att))))
	 (cond
	   ((= "=" (cdr (nth 0 att)))
	    (setq curr-att
		  (cons
		   (dxf-pair curr-att-dxf
			     (car (nth 1 att)))
		   curr-att))
	    )
	   (t
	    (setq curr-att
		  (cons
		   (if (= curr-att-dxf 10)
		       (cons -4 (strcat (cdr (nth 0 att))","(cdr (nth 0 att))",*"))
		       (cons -4 (cdr (nth 0 att))))
		   (cons
		    (dxf-pair curr-att-dxf
			      (car (nth 1 att)))
		    curr-att)))))
	 (setq att (cddr att))
	 )
	((=  'bool  (car (nth 0 att)))
	 (setq curr-bool (cdr (nth 0 att)))
	 (setq att (cdr att)))
	(t (setq att (cdr att)))
	))
    (setq lst-att
	  (if(> (length curr-att) 1)
	     (append
	      (list (cons -4  (strcat "<" curr-bool)))
	      curr-att
	      (list (cons -4 (strcat curr-bool">")))
	      lst-att)
	     (append
	      curr-att
	      lst-att)))
    )
  lst-att)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-nlp:parse-attribute

上传记录