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

用法及说明
源码

@text:inc-word

说明:递增

用法:

 (@text:inc-word)

参数:

返回值:

示例:

(defun @text:inc-word (/ z a ad ab str str2 str1 dxf adx len xlen loop i su zors p1 p2 pt box npt xpt pt10 zc pjz do)
  (if (or (setq a (entsel "\n选择数字或字母:"))
	  ;;(ssget (cadr a) '((0 . "*TEXT")))
	  )
      (progn
	(defun dxf (zm ent)(entity:getdxf ent zm))
      (setq ab(car a)
	    ad (dxf  1 ab )
	    pt10 (dxf 10 ab)
	    h(dxf 40 ab)
	    pt (cadr a)) 
      (setq box(textbox (cdr(entget(car a)))))
      (setq xpt(car pt))
      (setq zc (- (car (cadr box)) (car (car box))))
      (setq len	 (strlen ad) i 1 xlen len )
      (repeat len
	(if(member (substr ad i 1) '("'" "," "." "1"))(setq len(- len 0.5) j 2))
        (setq i(1+ i))
	)
       (setq pjz (/ zc len) pt0(car pt10) npt pt0 i  1)
       (if(= j 2)(setq p2 (/ pjz 2)))
       (repeat xlen
          (setq str(substr ad i 1))
	     (if(member str '("'" "," "." "1"))(setq npt(+ npt p2))(setq npt (+ npt pjz) ))
              (if (<= pt0  xpt npt)  (setq zors str  n i))
              (setq pt0 npt i (1+ i))
            )
      (cond( (= n 1)
	       (setq str1 "" str(ascii zors) str2(substr ad (1+ n)))
	    )
	   ( (= n xlen)
	     (setq str1(substr ad 1 (- xlen 1)) str(ascii zors) str2 "")
	    )
	  (t
	   (setq str1(substr ad 1 (- n 1)) str(ascii zors) str2(substr ad (1+ n)))
	   )
	   )
      (cond 
	    ((or (wcmatch zors  "~*[~.0-9]*" )(wcmatch zors "*[a-zA-Z]"))
               (setq p1 (getpoint "\n选择基点:") loop T)
	   (while loop
            (setq str(1+ str) tmp(strcat str1 (chr str) str2))
            (vla-copy (vlax-ename->vla-object ab))
	       (setq  adx (entget (entlast)))
	       (setq adx (subst (cons 1 tmp) (assoc 1 adx) adx))
	       (entmod adx)
	       (command ".move" (entlast) "" "non" p1 "non" pause)
               (if (= 0 (distance p1 (getvar "lastpoint")))
		    (progn (setq loop nil)(entdel(entlast)))
                    (progn (setq ab(entlast) p1(getvar "lastpoint")))
                )
	     )
	   )
      )
    )
  )  
 
  (princ)
)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@text:inc-word

上传记录