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

用法及说明
源码

@layer:ent-to-clayer

说明:图层

用法:

 (@layer:ent-to-clayer)

参数:

返回值:

示例:

(defun @layer:ent-to-clayer ()
  (if (null layer:list)(require 'layer:*))
  (if curr-layer
      (cond
       ((= 'int (type curr-layer))
	(setvar "clayer" (itoa curr-layer)))
       ((= 'str (type curr-layer))
	(if (null (member curr-layer (layer:list)))
	    (layer:make curr-layer nil nil nil))
	(setvar "clayer" curr-layer))
       ((atom curr-layer)
	(if (null (member (vl-symbol-name curr-layer) (layer:list)))
	    (layer:make (vl-symbol-name curr-layer) nil nil nil))
	(setvar "clayer" (vl-symbol-name curr-layer)))))
  (@::prompt (list
	   (strcat "选择对象到" (getvar "clayer") "层")))
  (if (setq ss-curr (cadr (ssgetfirst)))
      (foreach ent (pickset:to-list ss-curr)
	       (entity:putdxf ent 8 (getvar "clayer"))
	       (entity:deldxf ent 6 )
	       (entity:deldxf ent 48)
	       (entity:deldxf ent 62)
	       )
    (while (setq ent (car (entsel)))
      (entity:putdxf ent 8 (getvar "clayer"))
      (entity:deldxf ent 6 )
      (entity:deldxf ent 48)
      (entity:deldxf ent 62)
      ))
  (setq curr-layer nil)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@layer:ent-to-clayer

上传记录