(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:gen-code

说明:

用法:

 (at-nlp:gen-code res-corpus)

参数:res-corpus

返回值:

示例:

(defun at-nlp:gen-code (res-corpus / res)
  (setq res (at-nlp:lst-sym res-corpus))
  "更新选择集"
  (defun at-nlp:entmod (res / att-pairs)
    (setq att-pairs (at-nlp:parse-attribute res))
    (mapcar 'entmod 
	    (mapcar '(lambda(lst-ent)
		       (foreach att-pair att-pairs
				(if (assoc (car att-pair) lst-ent)
				    (setq lst-ent (subst att-pair (assoc (car att-pair) lst-ent) lst-ent))
				  (setq lst-ent (append lst-ent (list att-pair)))
				  ))
		       lst-ent)
		    (mapcar 'entget (pickset:to-list (ssget "I"))))
	    )
    (command "regen"))
  (cond
   ((string-equal (cdr (assoc 'verb res)) "ssget")
    (list
     'sssetfirst
     nil
     (list 'setq 'tmp-ss
	   (append
	    (list 'ssget)
	    (if (= "x" (cdr (assoc 'prep res)))
		(list (cdr (assoc 'prep res))))
	    (list 
	     (cons 'quote
		   (list
		    (append
		     (if (cdr (assoc 'entity res))
			 (list (cons 0 (cdr (assoc 'entity res)))))
		     (at-nlp:parse-attribute res)
		     )))))))
    )
   ((string-equal (cdr (assoc 'verb res)) "entmod")
    (cons 'at-nlp:entmod
	  (list (cons 'quote (list res))))
    )
   ))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-nlp:gen-code

上传记录