(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:match-att-style

说明:块

用法:

 (@block:match-att-style)

参数:

返回值:

示例:

(defun @block:match-att-style ()
  (@::prompt "将修改的属性样式刷到其它同名块引用的同名属性上。")
  (setq srcatt (car (nentsel (@::prompt "请选择源属性:"))))
  (if (eq "ATTRIB" (entity:getdxf srcatt 0))
      (progn
	;;上级块名	(@::prompt "请选择目标块:")
	(setq bname (block:get-effectivename
		     (setq srcblk (entity:getdxf srcatt 330))))
	;;选择目标块	(setq blks (block:ssget nil (list bname) nil))
	(mapcar '(lambda(blk)
		  (mapcar
		   '(lambda(targetatt)
		     ;;(foreach dxf '(7 40 41 50 72 74)		     (entity:putdxf targetatt 7 (entity:getdxf srcatt 7))
		     (entity:putdxf targetatt 41 (entity:getdxf srcatt 41))
		     (entity:putdxf targetatt 72 (entity:getdxf srcatt 72))
		     (entity:putdxf targetatt 74 (entity:getdxf srcatt 74))
		     
		     (entity:putdxf targetatt 40
		      (* (/ (entity:getdxf srcatt 40)
			    (entity:getdxf srcblk 41))
		       (entity:getdxf blk 41)))
		     (entity:putdxf targetatt 50
		      (+ (- (entity:getdxf srcatt 50)
			    (entity:getdxf srcblk 50))
		       (entity:getdxf blk 50)))
		     )
		   (vl-remove-if-not
		    '(lambda(y)
		      (eq (entity:getdxf srcatt 2)
		       (entity:getdxf y 2)))
		    (block:get-attrib-ents blk))))
		(pickset:to-list blks))))
  (princ))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@block:match-att-style

上传记录