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

用法及说明
源码

plot:Plot-File

说明:打印

用法:

 (plot:Plot->File ConfigName MediaName Window FileName)

参数:ConfigName;MediaName;Window;FileName

返回值:

示例:

(defun plot:Plot->File (ConfigName MediaName Window FileName  /
				   AcadObj ActiveDocObj  ActiveLayoutObj PlotObj ret)

;; ConfigName -- 配置文件名  ;; MediaName -- 图纸尺寸  ;; Window -- 表（窗口左下点 右上点)  ;; FileName -- 输出文件名  (setq
   AcadObj         (vlax-get-acad-object)
   ActiveDocObj    (vla-get-ActiveDocument AcadObj)
   ActiveLayoutObj (vla-get-ActiveLayout ActiveDocObj))
  (vla-RefreshPlotDeviceInfo ActiveLayoutObj)
  (vla-Put-ConfigName ActiveLayoutObj ConfigName)
  (setq PlotObj (vla-get-Plot ActiveDocObj))
  (vla-Put-CanonicalMediaName ActiveLayoutObj MediaName)
  (vla-Put-StandardScale ActiveLayoutObj acScaleToFit)
  (vla-Put-PlotRotation ActiveLayoutObj ac0degrees)
  (vla-put-PlotOrigin ActiveLayoutObj
		      (vlax-make-variant
		       (vlax-make-safearray vlax-vbDouble '(0 . 1))))
  (vla-Put-CenterPlot ActiveLayoutObj :vlax-false)
  (vla-SetWindowToPlot
   ActiveLayoutObj
   (vlax-make-variant
    (vlax-safearray-fill
     (vlax-make-safearray vlax-vbDouble '(0 . 1))
     (car Window)))
   (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 1)) (cadr Window))))
  (setq ret nil)
  (vla-Put-PlotType ActiveLayoutObj acWindow)
  (and (xd::apply vla-PlotToFile (list PlotObj FileName)) (setq ret filename))
  (foreach o (list PlotObj ActiveLayoutObj ActiveDocObj AcadObj)
	   (vlax-release-object o)  )
  ret)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

plot:Plot-File

上传记录