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

用法及说明
源码

@pm:replace-oldframe

说明:

用法:

 (@pm:replace-oldframe)

参数:

返回值:

示例:

(defun @pm:replace-oldframe ()
  (@:help '("替换图框,将其它图框替换为当前图框"))
  (@:prompt "请框选要替换的图框,")
  (setq tks (pickset:to-list  (ssget '((0 . "insert")(66 . 1)))))
  ;; 去当前图框  (setq tks (vl-remove-if
	     '(lambda(x)
	       (equal(block:get-effectivename x)
		(@::get-config '@pm:tukuang)))
	     tks))
  (setq maybe-names (string:to-list(@::get-config '@pm:drawing-names)","))
  (setq tks (vl-remove-if-not
	     '(lambda(x)
	       (apply 'or
		(mapcar '(lambda(title)
			  (assoc title (block:get-attributes x)))
		 maybe-names
		 )))
	     tks))
  (foreach
   tk tks
   (setq box (entity:getbox tk 0))
   (if (= 0 (@::get-config  '@pm:tukuang-base))
       (setq pt-ins (cadr (apply 'point:rec-2pt->4pt box)))
       (setq pt-ins (car (apply 'point:rec-2pt->4pt box))))
   (setq height (- (cadr (cadr box))
		   (cadr (car box))))
   (setq width (- (car (cadr box))
		  (car (car box))))
   
   (setq new-tk
	 (block:insert
	  (@::get-config '@pm:tukuang)
	  "D:\\Design\\standard\\"
	  pt-ins
	  (entity:getdxf tk 50)
	  (entity:getdxf tk 41)))
   ;; (block:set-dynprop new-tk "map-sheet" (entity:getdxf tk 2))   ;; 替换图名值，并复制其它属性值   (setq old-attrs  (block:get-attributes tk))
   (setq i 0)
   (while (null (assoc (nth i maybe-names) old-attrs))
     (setq i (1+ i)))
   (if (nth i maybe-names)
       (setq drawing-name (cdr (assoc (nth i maybe-names) (block:get-attributes tk)))))
   (if (null drawing-name)(setq drawing-name ""))
   (block:set-attributes new-tk
			 (if (assoc (@::get-config '@pm:drawing-name) old-attrs)
			     old-attrs
			     (append old-attrs
				     (list (cons (@::get-config '@pm:drawing-name)
						 drawing-name)))))

;;如果当前图框为动态块，设置图幅   (cond
     ((and (equal (vla-get-isdynamicblock(e2o new-tk)) :vlax-true)
	   (equal (vla-get-isdynamicblock(e2o tk)) :vlax-false))
      (progn
	(block:set-dynprop new-tk "map-sheet" (@pm:calc-mapsheet height width)))
      )
     ((and(equal (vla-get-isdynamicblock(e2o new-tk)) :vlax-true)
	  (equal (vla-get-isdynamicblock(e2o tk)) :vlax-true))
      (progn
	(foreach props (block:get-properties tk)
		 (if (not (equal (car props) "Origin"))
		     (block:set-dynprop new-tk (car props)(cdr props)))))
      ))
   (entdel tk)
   ))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@pm:replace-oldframe

上传记录