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

用法及说明
源码

prefabricated-building:draw-elec

说明:绘制

用法:

 (prefabricated-building:draw-elec wall pt-base AorB)

参数:wall;pt-base;AorB

返回值:

示例:

(defun prefabricated-building:draw-elec (wall pt-base AorB)
  "在墙立面图上绘制电盒，AorB: t为 A"
  (setq elecs (prefabricated-building:gen-elecdata wall))
  (setq w (cond
	    ((wcmatch (entity:getdxf wall 2) "Q@600")
	     300)
	    ((wcmatch (entity:getdxf wall 2) "Q@750")
	     375)))
  (setq pt-wall (entity:getdxf wall 10))
  (setq pt-wall-l (polar pt-wall
			 (+ pi (entity:getdxf wall 50))
			 w))
  (setq pt-wall-r (polar pt-wall
			 (entity:getdxf wall 50)
			 w))
  (if (setq elec (if aorb (car elecs)(cadr elecs)))
      (foreach
       elec% elec
       (setq pt-i
	     (inters pt-wall-l
		     pt-wall-r
		     (entity:getdxf elec% 10)
		     (polar (entity:getdxf elec% 10)
			    (+ (* 0.5 pi)(entity:getdxf wall 50))
			    100)
		     nil))
       ;; 到墙构件的水平距离       (setq dis-w (distance pt-wall-l pt-i))
       (if (< dis-w 44)(setq dis-w 44))
       (if (> dis-w (- (* 2 w) 44)) (setq dis-w (- (* 2 w) 44)))
       ;; 竖直距       (setq dis-h (prefabricated-building:elec-h elec%))
       (setq pt-center	(polar (polar pt-base 0 (if aorb dis-w
				    (- (* 2 w) dis-w)
				    ))
			       (* 0.5 pi) dis-h))
       ;;安装盒       (cond
	 ((wcmatch (cdr (assoc "A" (block:get-attributes elec%)))
		   "*配电箱")
	  (entity:make-rectangle
	   (polar pt-center pi 200)
	   (polar (polar pt-center 0 200) (* 0.5 pi) 500)
	   ))
	 ((wcmatch (cdr (assoc "A" (block:get-attributes elec%)))
		   "*交接线")
	  (entity:make-rectangle
	   (polar pt-center pi 175)
	   (polar (polar pt-center 0 175) (* 0.5 pi) 300)
	   ))
	 (t
	  (entity:make-rectangle
	   (polar pt-center (* 1.25 pi) (* 1.414 44))
	   (polar pt-center (* 0.25 pi) (* 1.414 44))
	   )))
       ;;  TODO 电箱       
       ;;接线盒       (setq pt-center2	(polar (polar pt-base 0 (if aorb dis-w
						    (- (* 2 w) dis-w)
						    ))
			       (* 0.5 pi)
			       (if (< dis-h 450)
				   44
				   (- 3080 44))))
       (entity:make-rectangle
	(polar pt-center2 (* 1.25 pi) (* 1.414 44))
	(polar pt-center2 (* 0.25 pi) (* 1.414 44))
	)
       (entity:make-lwpolyline
	(list pt-center pt-center2)
	nil 30 0 0)
       ))
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

prefabricated-building:draw-elec

上传记录