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

用法及说明
源码

@dev::make-chat-dxf-en

说明:创建

用法:

 (@dev::make-chat-dxf-en)

参数:

返回值:

示例:

(defun @dev::make-chat-dxf-en (/ fp *error*)
  (defun *error*(msg)
    (if fp (close fp))
    (if fi (close fi))
    (princ msg))
  (setq fp (open (strcat @::*prefix* ".cache/chat-dxf-en.csv")"w"))
  (setq fi (open (strcat @::*prefix* ".cache/dxf-en.org")"r"))
  (write-line chat-title fp)
  (setq str-pre-title "")
  (setq str-pre "")
  (while (setq str-line (read-line fi))
    (cond
     ((= "* " (substr str-line 1 2))
      (cond
       ((and (/= "" str-pre-title)
	     (/= "" str-pre))
	;; 分析前组数据并生成QA	;; title , - 写其它问法	(setq qqq (@dev::parse-question str-pre-title))
	
	(write-line
	 (strcat 
	  "DXF,"(strcat "DXF"
			(car qqq))
	  ","
	  (if (cdr qqq)
	      (string:from-list 
	       (mapcar '(lambda(x)
			  (strcat "DXF"
				  (vl-string-trim " " x)))
		       (cdr qqq))
	       "##")
	    "")
	  ",,\""
	  (string:subst-all "\\\"" "\"" str-pre)
	  "\",false,false")
	 fp)
	(setq str-pre-title str-line)
	(setq str-pre "")
	)
       (t
	(setq str-pre-title str-line))))
     (t
      (setq str-pre (if (/= "" str-pre)
			(strcat str-pre "LINE_BREAK" str-line)
		      str-line
		      ))
      )
     )
    )
  ;; 写最后一个  (if (and (/= "" str-pre-title)
	   (/= "" str-pre))
      ;; 分析前组数据并生成QA      ;; title , - 写其它问法      (progn
	(setq qqq (@dev::parse-question str-pre-title))
	
	(write-line
	 (strcat 
	  "DXF,"(strcat "DXF"
			(car qqq))
	  ","
	  (if (cdr qqq)
	      (string:from-list 
	       (mapcar '(lambda(x)
			  (strcat "DXF"
				  (vl-string-trim " " x)))
		       (cdr qqq))
	       "##")
	    "")
	  ",,\""
	  (string:subst-all "\\\"" "\"" str-pre)
	  "\",false,false")
	 fp)
	;; (setq str-pre-title str-line)	(setq str-pre "")
	))
  (close fp)
  (close fi)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@dev::make-chat-dxf-en

上传记录