(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-lab:center-ss-in-rectangle

说明:角度

用法:

 (at-lab:center-ss-in-rectangle s1)

参数:s1

返回值:

示例:

(defun at-lab:center-ss-in-rectangle (s1 / elis tp n d en p0 p1 p11 p13 pts pls ss nam obj)
  (setq elis (pickset:to-list s1)) ;选择集转为图元表  (while (setq en (car elis))
    (setq tp (cdr (assoc 0 (entget en))))
    (cond 
     ((= tp "CIRCLE")
      (setq  pts
	     (curve:circle2pts en 32))
      )
     ((= tp "ELLIPSE")
      (earc->pline en);;转拟合多段线      (setq pts (entity:getbox (entlast) 0))
      )
     (t
      (setq pts (entity:getbox en 0))
      (entdel en)
      (if (setq nam
		(bpoly (point:centroid pts)))  
          (progn 
            (setq pts (curve:get-points nam))
            (entdel nam)
            )
        )
      (entdel en)
      )
     )
    (if pts 
	(progn 
          (setq p0 (mapcar '(lambda (x y) (* (+ x y) 0.5)) (apply 'mapcar (cons 'min pts)) (apply 'mapcar (cons 'max pts))))
        (setq ss (ssget "WP" pts))
        (if (and ss (> (sslength ss) 0))
          (progn
            (setq n -1)
            (while (setq nam (ssname ss (setq n (1+ n)))) (if (not (ssmemb nam s1)) (ssdel nam ss)))
            (setq pls (pickset:getbox ss 0)
		  p1 (point:centroid pls))
	    (if (> (distance p1 p0) 0.01)
		(mapcar '(lambda(x)
			   (vla-move
			    (e2o x)
			    (point:to-ax p1)
			    (point:to-ax p0))
			   )
			   (pickset:to-list ss))
	      )
          
            (setq n -1)
            (while (setq nam (ssname ss (setq n (1+ n)))) 
              (if (member (cdr (assoc 0 (entget nam))) '("ELLIPSE" "CIRCLE"))
                  (setq elis (append elis (list nam)))
                (vl-remove nam elis)
              )
            )
          )
        )
      )
    )
    (setq elis (cdr elis))
  )
)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-lab:center-ss-in-rectangle

上传记录