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

用法及说明
源码

@block:numbering-by-route

说明:编号

用法:

 (@block:numbering-by-route)

参数:

返回值:

示例:

(defun @block:numbering-by-route (/  lwpl olwpl num1 start ss-list ss1)
  (@::prompt "按曲线路顺序对块进行递增编号")
  (@:prompt "请选择一条曲线:")
  (if (setq lwpl (ssname (ssget ":S" '((0 . "*line"))) 0))
      (progn
	(setq olwpl (e2o lwpl))
	(setq pts (curve:get-points lwpl))
	(if (= "" (@:get-config '@block:block-name))
	    (@block:setup))
	(if (progn
	      (setq ss1 (ssget "F" pts (list '(0 . "insert")'(66 . 1)
				     '(-4 . "<or")
				     (cons 2 (@:get-config '@block:block-name))
				     (cons 2 "`**")
				     '(-4 . "or>"))
			       ))
	      (setq ss-list
		    (vl-remove-if-not
		     '(lambda(x)
		       (= (block:get-effectivename x)
			(@:get-config '@block:block-name)))
		     (pickset:to-list ss1))))
	    (progn
	      (sssetfirst nil (pickset:from-list ss-list))
	      ;; 排序	      (setq ss-list
		    (vl-sort ss-list
			     '(lambda(x y / fun)
			       (defun fun (m)
				 (vlax-curve-getDistAtPoint
				  olwpl
				  (vlax-curve-getClosestPointTo
				   olwpl (entity:getdxf m 10))))
			       (<  (fun x)(fun y)))))
	      (setq start (getint "请输入块起始编号<1>:"))
	      (if (null start) (setq start 1))
	      (setq num1 0)
	      (foreach en0 ss-list
		       (block:set-attributes
		  en0
		  (list (cons (@:get-config '@block:attribute-name)
			      (strcat
			       (@:get-config '@block:attribute-prefix)
			       (if (< (+ num1 start) 10) "0" "")
			       (itoa (+ num1 start))
			       (@:get-config '@block:attribute-suffix)
			       ))))
		 (setq num1 (1+ num1))
		 ))
	    (progn
	      (alert "未选中设置的图块。请设置要进行操作的图块。")
	      (@block:setup))))))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@block:numbering-by-route

上传记录