@dev::make-ac-dxf

说明:创建

用法:

 (@dev::make-ac-dxf)

参数:

返回值:

示例:

(defun @dev::make-ac-dxf (/ fp *error* prefix page str-pre
				       str-pre-title qqq)
  (defun *error*(msg)
    (if fp (close fp))
    (if fi (close fi))
    (princ msg))
  (setq file-src (strcat (@::get-config '@dev::src) "docs/aibot/dxf.org"))
  ;; (setq qprefix (getstring t (@::speak "为了预防问题重复，请输入问题前缀（一般为空，但有例外,如DXF）:")))  ;; (setq prefix (vl-string-trim " " (getstring t (@::speak "请输入显示前缀:"))))  (setq prefix "")(setq qprefix "")
  (setq fi (open file-src "r"))
  
  (if(> (@::acadver) 24)
      (setq fp (open (strcat (@::get-config '@dev::src) "vscode/snippets/snippets." (vl-filename-base file-src) ".json")"w" "utf8"))
    (setq fp (open (strcat (@::get-config '@dev::src) "vscode/snippets/snippets." (vl-filename-base file-src) ".json")"w")))		
  ;; (write-line chat-title fp)  (write-line "{" fp)
  (setq str-pre-title "")
  (setq body nil)
  (setq str-desc "") (setq page 0)
  (while (setq str-line (read-line fi))
    (cond
     ((= "#+"  (substr str-line 1 2))
      )
     ((= "* " (substr str-line 1 2))
      (cond
       ((and (/= "" str-pre-title)
	     (/= "" str-desc)
	     )
	(princ str-pre-title)
	(setq qqq (@dev::parse-question str-pre-title))
	(setq paras (cdr body))

(foreach
	 qqq% qqq
	 (setq qqq% (vl-string-trim " " qqq%))
	 (write-line (strcat  "\"dxf" qqq%"\": {") fp)
	 (write-line (strcat "\"prefix\" : \"dxf" qqq% "\",") fp)
	 (write-line (strcat "\"body\": [") fp)
	 (if(= 'int (type (read qqq%)))
	     (progn
	       (setq dxfn (read qqq%))
	       (cond
		((or (<= 0 dxfn 9)
		     (<= 100 dxfn 102)
		     (<= 300 dxfn 309)
		     (<= 390 dxfn 399)
		     (<= 410 dxfn 419)
		     (<= 430 dxfn 439)
		     (<= 470 dxfn 479)
		     (<= 1000 dxfn 1009))
		 (write-line (strcat "\"("
				     (string:subst-all
				      "\\\"" "\""
				      (strcat qqq%
					      " . \"$1\""))
				     ")\"")
			     fp))
		((or (= 105 dxfn)
		     (<= 310 dxfn 319)
		     (<= 320 dxfn 329)
		     (<= 330 dxfn 339)
		     (<= 390 dxfn 399)
		     (<= 480 dxfn 481)
		     )
		 (write-line (strcat "\"("
				     (string:subst-all
				      "\\\"" "\""
				      (strcat qqq%
					      " . \"${1:HEX}\""))
				     ")\"")
			     fp))
		((or (<= 10 dxfn 39)
		     (= 1010 dxfn)
		     )
		 (write-line (strcat "\"(cons "
				     (string:subst-all
				      "\\\"" "\""
				      (strcat qqq%
					      " ${1:pt}"))
				     ")\"")
			     fp))
		((< dxfn -1)
		 (write-line (strcat "\"(cons "
				     (string:subst-all
				      "\\\"" "\""
				      (strcat qqq%
					      " \"$1\""))
				     ")\"")
			     fp))
		((= dxfn -1)
		 (write-line (strcat "\"(cons "
				     (string:subst-all
				      "\\\"" "\""
				      (strcat qqq%
					      " ${1:ename}"))
				     ")\"")
			     fp))
		
		(t
		 (write-line (strcat "\"(cons "
				     (string:subst-all
				      "\\\"" "\""
				      (strcat qqq%
					      " ${1:num}"))
				     ")\"")
			     fp))))
	   (write-line (strcat "\"("
			       (string:subst-all
				"\\\"" "\""
				(strcat "0 . \""
					qqq%"\""
					))
				")\"")
		       fp))
	 
	 (write-line "],"fp)
	 (write-line (strcat
		      "\"description\":"
		      "\""
		      (string:subst-all
		       " " "\n" (string:subst-all
				 "\\\"" "\""str-desc))
		      "\"")
		     fp)
	 (write-line "}," fp))
	(setq str-pre-title str-line)
	(setq body nil)
	(setq str-desc "")
	)
       (t
	(setq str-pre-title str-line))
       )
      )
     (t
      (if (/= "" (vl-string-trim " " str-line))
	  (if (= "" str-desc)
	      (setq str-desc str-line)
	    (setq str-desc (strcat str-desc "\\n " str-line) )))
      ))
    )
  ;; 写最后一个  (if (and (/= "" str-pre-title)
	   (/= "" str-desc)
	   )
      (progn 
	(setq qqq (@dev::parse-question str-pre-title))
    		
	(write-line (strcat  "\"" (strcat (car qqq)"\": {")) fp)
	(write-line (strcat "\"prefix\" : \"" (car qqq) "\",") fp)
	(write-line (strcat "\"body\": [") fp)
	(write-line (strcat "\"("(car qqq)
			    " . $1);"
			    "\"")
		    fp)
	(write-line "],"fp)
	(write-line (strcat
		     "\"description\":"
		     "\""
		     (string:subst-all
		      " " "\n" (string:subst-all
				"\\\"" "\""str-desc))
		     "\"")
		    fp)
	(write-line "}" fp)
	(setq str-pre-title str-line)
	(setq str-body "")
	(setq body nil)
	(setq str-desc "")

))
  (write-line "}" fp)
  (close fp)
  (close fi)
  ;;(@::speak "已生成聊天数据库，请到微信对话开放平台导入。")  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@dev::make-ac-dxf

上传记录