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

用法及说明
源码

at-curve:per-length

说明:长度

用法:

 (at-curve:per-length)

参数:

返回值:

示例:

(defun at-curve:per-length (/ lst-curve pts)
  (@::prompt '("标注曲线的每段长度"))
  (@:prompt "请选择曲线:")
  (setq lst-curve (pickset:to-list
                   (ssget (list (cons 0 (@:get-config '@curve:types))))))
  (foreach curve lst-curve
	   (cond
	    ((= "MLINE" (entity:getdxf curve 0))
	     (setq pts (curve:get-points curve))
	     (if (equal (car pts)(cadr pts))
		 (setq pts (cdr pts)))
	     (while (> (length pts) 1)
	       (entity:putdxf
		(entity:make-text
		 (rtos (distance (car pts)(cadr pts)) 2
		       (if (@::get-config '@::num-precision)
			   (@::get-config '@::num-precision)
			   3
			   ))
		 (point:2d->3d (point:mid (car pts)(cadr pts)))
		 (* (@::get-config '@::text-baseheight) (@:get-config '@::draw-scale))
		 (angle (car pts)(cadr pts))
		 0.72
		 0
		 "mb")
		62
		1)
	       (setq pts (cdr pts))
	       ))
	    ((= "LWPOLYLINE" (entity:getdxf curve 0))
	     ;; 少闭合曲线最后段	     (setq i 0)
	     (setq bulges (curve:pline-convexity curve))
	     (repeat (curve:subsegments curve)
		     (entity:putdxf
		      (entity:make-text
		       (rtos (curve:subsegment-length
			      curve
			      (car (curve:subsegment-points curve i))
			      (cadr (curve:subsegment-points curve i)))
			     2 (if (@::get-config '@::num-precision)
				   (@::get-config '@::num-precision)
				   3
				   ))
		       (point:2d->3d
			(if (= 0 (nth i bulges))
			    (point:mid
			     (car (curve:subsegment-points curve i))
			     (cadr (curve:subsegment-points curve i)))
			  (polar
			   (point:mid
			    (car (curve:subsegment-points curve i))
			    (cadr (curve:subsegment-points curve i)))
			   (-(angle  (car (curve:subsegment-points curve i))
				     (cadr (curve:subsegment-points curve i)))
			     (* 0.5 pi)
			     )
			   (* (nth i bulges) 0.5
			      (distance 
			       (car (curve:subsegment-points curve i))
			       (cadr (curve:subsegment-points curve i)))))
			  ))
		       
		       (* (@::get-config '@::text-baseheight) (@:get-config '@::draw-scale))
		       (angle  (car (curve:subsegment-points curve i))
			       (cadr (curve:subsegment-points curve i)))
		       0.72
		       0
		       "mb")
		      62
		      1)
		     (setq i (1+ i))
		     ))
	    (t
             (entity:putdxf
              (entity:make-text
               (rtos (curve:length (e2o curve)) 2 (if (@::get-config '@::num-precision)
			   (@::get-config '@::num-precision)
			   3
			   ))
               (point:2d->3d (curve:midpoint curve))
               (* (@::get-config '@::text-baseheight) (@:get-config '@::draw-scale))
               0
               0.72
               0
               "mb")
              62
              1)

)))
  (princ))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-curve:per-length

上传记录