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

用法及说明
源码

@pm:make-mulu-csv

说明:创建

用法:

 (@pm:make-mulu-csv frames)

参数:frames

返回值:

示例:

(defun @pm:make-mulu-csv (frames / ti% contents content% mlstr jsdw gcmc date stage banci
			  ml-file dir-path fp)
  (setq mlstr "")
  (setq contents (@pm:frames2contents frames))
  (if (null contents)
      (progn
	(princ "未选中任何图框。")(exit)))
  ;;(princ contents)  ;; 检查建设单位，工程名称，日期，阶段和版次等  (foreach ti%  (string:to-list (@:get-config '@pm:consistency) ";")
	   (if (< 1 (@:check-consistency contents ti%))
	       (progn
		 (setq mlstr (strcat mlstr  "!!! " ti% "不一致。自行判断是否有误\n"))
		 )))
  ;; (print "check-consistency ok!")  (if (/= mlstr "") 
      (@:alert mlstr)
    (progn
      ;; 生成目录文件      (setq ti% 0)
      (setq ml-file nil)
      (foreach content% contents
	       (setq dir-path (@pm:mulu-path content%))

(if (null (@pm:get-tubie content%)) (progn (@:alert "图别有误,请检查图框中的图号及图别。")(exit)))
	       (setq ml-file (strcat dir-path "\\" (@pm:get-tubie content%) ".csv"))
	       (print ml-file)
	       
	       (if (= ti% 0)
		   (setq fp (open ml-file "w"))
		 (setq fp (open ml-file "a")))
	       (write-line (strcat 
			    (if (and (@pm:have-tubie-attribute content%)
				     (= 1 (@:get-config '@pm:prefix-profession))
				     (/= "" (@pm:get-tubie content%))
				     (/= (@pm:get-tubie content%)
					 (cdr (assoc (@:get-config '@pm:drawing-number) content%)))
				     )
				(strcat (@pm:get-tubie content%) "-" (cdr (assoc (@:get-config '@pm:drawing-number) content%)))
			      (cdr (assoc (@:get-config '@pm:drawing-number) content%)))
			    ","(@pm:get-tuming content%)","
			    (@pm:get-map-sheet  content%))
			   fp)
	       
	       (close fp)(setq ti% (1+ ti%)))
      
      (if ml-file
	  (progn 
	    (@:alert (strcat "目录文件:" ml-file
			   "\n      可以用Excel或记事本打开。\n\n"
			   (@:get-file-contents ml-file)))
	    ;; 复制到云	    
	    )
	(@:alert "图框中没有设置正确的工程信息。")
	)))
  
  (princ))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@pm:make-mulu-csv

上传记录