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

用法及说明
源码

@::compile-kernel

说明:组件

用法:

 (@::compile-kernel)

参数:

返回值:

示例:

(defun @::compile-kernel () 
  ;; 生成版本文件。  ;;(load "@lisp")  (if (= 1 (getvar "lispsys")) 
    (alert 
      (strcat 
        (_ "Your CAD's version is higher. and LISPSYS=1.")
        "\n"
        (_ "And FAS files that it compiled can NOT run in LOW CAD version.\n")
        (_ "Please set LISPSYS's value as 0 or 2"))))
  (setq kernel-src (@::get-file-contents (@::path-os (strcat @::*prefix* "@lisp_u.lsp"))))
  (setq @fp (open (@::path-os(strcat @::*prefix* "kernel.lsp")) "w" "utf8"))
  (write-line 
    (vl-prin1-to-string 
      (read 
        (strcat "(progn" kernel-src ")")))
    @fp)
  (close @fp)
  (setq @fp (open (@::path-os(strcat @::*prefix* "@lisp.lsp")) "w"))
  (write-line 
    (vl-prin1-to-string 
      (read 
        (strcat "(progn" kernel-src ")")))
    @fp)
  (close @fp)
  ;; 生成 bricscad des 文件  (if (findfile "bin/DESCoder.exe")
      (progn
	(setvar "cmdecho" 0)
	(@::cmd 
	 "start-bg"
	 (strcat 
          " /D "
          (@::path-os @::*prefix*)
          " /MIN /B  "
          "bin\\DESCoder.exe @lisp.lsp"))
	(setvar "cmdecho" 1))
      (@::down-file "bin/DESCoder.exe"))
  (if (null (= 'subr (type vlisp-compile))) (C:vlide))
  (if 
    (and 
      (= 'subr (type vlisp-compile))
      (/= "F" (load "@lisp" "F"))
      (progn (@::init) t)
      (or 
        (< (@::acadver) 24) ;; 高版本不不兼容        (/= 1 (getvar "lispsys"))))
    (progn 
      (setq vfp (open (@::path-os (strcat @::*prefix* "version.lsp")) "w"))
      (write-line (strcat "(setq new-version \"" @::version "\")") vfp)
      (close vfp)
      (if (vlisp-compile 'lsa "@lisp.lsp") 
        (progn 
          (@::@debug "INFO" (strcat "Compile @lisp.lsp Success!"))
          T)
        (progn 
          (@::@log "ERROR" (strcat "Compile @lisp.lsp Faile!"))
          nil)))
    (progn 
      (if (= 1 (getvar "lispsys")) (alert (_ "Your CAD is higher version,And not compatible low version.")))
      (alert (_ "Please run visuallisp before the function. INPUT 'vlisp' or 'vlide' in commandline."))
      nil))
  ;; (if is-zwcad  ;;     (compile-zelx (strcat @::*prefix* "@lisp.lsp")(strcat @::*prefix* "@lisp.zelx")))  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@::compile-kernel

上传记录