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

用法及说明
源码

c:BlockViewFormOptionListOnSelChanged

说明:列出

用法:

 (c:BlockView/Form/OptionList#OnSelChanged ItemIndexOrCount Value)

参数:ItemIndexOrCount;Value

返回值:

示例:

(defun c:BlockView/Form/OptionList#OnSelChanged (ItemIndexOrCount Value /)
  (setq curBlk_Name nil) ;切换後.目前Blk_name设为nil
  (dcl-Control-SetEnabled BlockView/Form/PreView nil)
  (dcl-CONTROL-SetCaption BlockView/Form/Error "") ;Error_Tile Clear
  (setq old_curBlockName_Value CurBlockName_value)
  (setq curBlockName_value value)
  (setq curBlockName_Index ItemIndexOrCount)
  (cond ((and (= ItemIndexOrCount 0) (= Old_curBlockName_Value "匿名图块")) ;选到实名图块
					(BlockView_image_clear) ; 清空image
					(setq  block_page_inx 0)
					(dcl-ListBox-Clear   BlockView/Form/BlockList)
					(dcl-LISTBOX-ADDList BlockView/Form/BlockList tbl_List)
					(setq  block_list_all blkname_list)
					(setq BlkName_all Tbl_list)
					(if blkname_list (BlockView_BlockShow_Start))
				)
		((and (= ItemIndexOrCount 1) (= Old_curBlockName_Value "实名图块")) ;选到匿名图块.
			(BlockView_image_clear) ; 清空image
			(setq  block_page_inx 0)
			(dcl-ListBox-Clear   BlockView/Form/BlockList)
			(dcl-LISTBOX-ADDList BlockView/Form/BlockList tbl_UnName_List)
			(setq block_list_all unblkname_list)
			(setq BlkName_all Tbl_UnName_list)
			(if unblkname_list (BlockView_BlockShow_Start))
		)
		(T (dcl-CONTROL-SetCaption BlockView/Form/Error "重覆点取,请切换另一个"))
  )
  (if old_key_inx  (dcl-Control-SetBackColor  (eval (read (strcat "BlockView/Form/BlockView" (itoa old_key_inx ))))   -22)) ;清除Image Sel HighLight
)

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

c:BlockViewFormOptionListOnSelChanged

上传记录