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

用法及说明
源码

GL:GetNumber

说明:编号

用法:

 (GL:GetNumber ope)

参数:ope

返回值:

示例:

(defun GL:GetNumber (ope / *error* en en-lst lst n num pt ss ss_data)
  (defun *error* (x) ;出错函数    (UnHighLight en-lst)
    (setvar "ErrNo" 0)
    (princ x)
  )
  (setvar "ErrNo" 0)
  (setq en-lst (list))
  (while (/= (getvar "ErrNo") 52)
    (if (setq ss (ssget ":S" '((0 . "*TEXT,DIMENSION,INSERT,ATTDEF,ACAD_TABLE,TCH_ELEVATION,TCH_SPACE,TCH_DRAWINGNAME")))) ; 拾取文字、尺寸标注、属性字、CAD表格、天正：标高、面积、图名    (progn
	(if (= (caar (setq ss_data (ssnamex ss 0))) 1)
	  (progn ;点选时	    (setq pt (trans (cadr (last (car ss_data))) 0 1)
		      en (car (nentselp pt))
		      en-lst (reverse en-lst);表倒序		      en-lst (cons en en-lst)
		      en-lst (MJ:delsame en-lst)
		      en-lst (reverse en-lst);表倒序		      n (itoa (length en-lst))
	    )
	    (redraw en 3)
	    (princ (strcat "\n已拾取 " n " 个对象：" (GL:Formula en-lst ope)))
	  )
	  (progn ;框选时	    (setq lst (ss->lst ss)
		      lst (reverse lst)
		      en-lst (append en-lst lst)
		      en-lst (MJ:delsame en-lst)
		      n (itoa (length en-lst))
	    )
	    (HighLight lst)
	    (princ (strcat "\n已拾取" n "个对象：" (GL:Formula en-lst ope)))
	  )
	)
	))
  )
  (if en-lst
    (progn
      (setq Num (GL:Formula en-lst ope))
      (UnHighLight en-lst)
    )
  )
  (setvar "ErrNo" 0)
  Num
)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

GL:GetNumber

上传记录