(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:dualline

说明:双线

用法:

 (at-curve:dualline)

参数:

返回值:

示例:

(defun at-curve:dualline ()
  (@::prompt '("将单线双向偏移成双线。"))
  (if (null (member "DASHDOT" (tbl:list "linetype")))
      (vla-load *LTS* "DASHDOT" (findfile "acadiso.lin")))
  (setq dualline-width (getdist (strcat"\n"(@:speak"输入双线宽度")"<"(rtos (@:get-config '@curve:dualline-width) 2 3)">：")))
  (if dualline-width (@::set-config '@curve:dualline-width dualline-width))
  (setq lst-curve (pickset:to-list
                   (ssget (list (cons 0 (@:get-config '@curve:types))))))
  (foreach curve lst-curve
	   (setq curve1 (car (vla:get-value (vla-offset (e2o curve) (* 0.5 (@:get-config '@curve:dualline-width))))))
	   (setq curve2 (car (vla:get-value(vla-offset (e2o curve) (* 0.5 (@:get-config '@curve:dualline-width) -1)))))
	   (entity:putdxf curve 6 "DASHDOT")
	   (entity:putdxf curve 62 1)
	   ;;封口	   (if (> (@::get-config '@curve:dualline-closed) 0)
	       (progn
		 (setq pts-curve1  (curve:get-points curve1))
		 (setq pts-curve2  (curve:get-points curve2))
		 (if (= "LINE"(entity:getdxf curve1 0))
		     (setq pts-curve1  (reverse pts-curve1)))
		 (if (= "LINE"(entity:getdxf curve2 0))
		     (setq pts-curve2  (reverse pts-curve2)))
		 (cond
		   ((= 1 (@::get-config '@curve:dualline-closed))
		    (entity:make-line (car pts-curve1)(car pts-curve2))
		    (entity:make-line (last pts-curve1)(last pts-curve2))
		    )
		   ((= 2 (@::get-config '@curve:dualline-closed))
		    (entity:make-lwpolyline
		     (list (car pts-curve1)(car pts-curve2))
		     (list -1 -1)
		     0 0 0)
		    (entity:make-lwpolyline
		   (list (last pts-curve1)(last pts-curve2))
		   (list 1 1)
		   0 0 0))
		   )
		 ))
	   )
  (princ)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

at-curve:dualline

上传记录