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

用法及说明
源码

c:piv

说明:

用法:

 (c:piv)

参数:

返回值:

示例:

(defun c:piv (/)
  (if (and (setq path (psk-paths-pick 1))
           (setq key (car (psk-selectd
                            (mapcar
                              (function
                                (lambda (e) (cons (car e) (p-get (cdr e) "DESC")))
                              )
                              $psk-pipe-parts
                            )
                            nil
                          )
                     )
           )
      )
    (progn
      (setq def      (p-get $psk-pipe-parts key)
            tp       (p-get def "TYPE")
            templ    (p-get def "KEY")
            sizefile (p-get def "SIZEFILE")
            name     (p-template-eval templ (caar path))
            prop     (list (cons ".TYPE" key))
      )
      (if (and templ sizefile)
        (setq prop (append prop (psk-csvfile-get sizefile name)))
      )

(psk-set-customlayerbyid
        (strcat (psk-path-getservice (caar path)) "-IDEN")
      )

(cond ((= "ATTACH" tp)
             (psk-path-createattach (caar path) (cadar path) prop)
            )
            ((= "INLINE" tp)
             (setq p (psk-posangle-prompt (caar path) (cadar path)))

(psk-path-createinline (caar path) (car p) (cadr p) prop)
            )
            ((= "END" tp)
             (psk-path-createend (caar path) (cadar path) prop)
            )
      )
    )
  )
)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

c:piv

上传记录