明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1775|回复: 2

发掘AutoLISP的潜力

[复制链接]
发表于 2005-2-1 20:36:00 | 显示全部楼层 |阅读模式

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2005-2-1 22:50:00 | 显示全部楼层
What?
发表于 2005-2-2 07:53:00 | 显示全部楼层
;;-------------------------------------------------------------------------------
;; Program Name: GetIcon.lsp [Get Icon R5]
;; Created By: Terry Miller (Email: terrycadd@yahoo.com)
;; Date Created: 4-1-00
;; Function: Various dialog Get functions enhanced with the icons AlertX,
;; Block, Computer, Delete, Exclam, Filefolder, Folder, Frown, Inform, Printer,
;; Quest, Replace, Smile and None. These functions and utilities get the true
;; dialog string widths to create a C:\Temp\Temp.dcl dialog file on the fly and
;; return a string of the name of the button selected.
;;-------------------------------------------------------------------------------
;; Revision History
;; Rev By Date Description
;;-------------------------------------------------------------------------------
;; 1 TM 4-1-00 Initial version
;; 2 TM 12-1-00 Revised functions to allow up to 4 lines and to allow
;; choosing different icons.
;; 3 TM 1-1-01 Added Printer, Smile and Frown icons.
;; 4 TM 7-21-03 Added EditBox for entering string values.
;; Syntax: (EditBox "Title" "Label" "EditText" EditWidth)
;; 5 TM 5-20-04 Revised functions to allow up to 10 lines closer together,
;; and added the None option of not including an icon.
;;-------------------------------------------------------------------------------
;; Overview of Main Functions
;;-------------------------------------------------------------------------------
;; c:GetIcon - [GetIcon Help] - Displays GetIcon Get functions and syntax.
;; GetOK - Returns "OK"
;; GetOKCancel - Returns "OK" or "Cancel"
;; GetYesNo - Returns "Yes" or "No"
;; GetYesNoCancel - Returns "Yes", "No" or "Cancel"
;; GetYestoAll - Returns "Yes", "Yes to All", "No" or "Cancel"
;; GetRetryCancel - Returns "Retry" or "Cancel"
;; TempDcl - Creates a Temp.dcl dialog file and returns the button selected.
;; GetDclWidth - Get the true dialog string width.
;; GetPT [Get integer Points] - Utility for vector_line.
;; vector_circle - Draws vector circles, arcs and ellipses in an image tile.
;; vector_line - Draws vector lines in an image tile.
;; c:Vector_Circle - Vector_Circle Dialog Examples <-- Try It!
;; dtr - Degrees to Radians function
;; EditBox - Dialog for entering string values.
;;-------------------------------------------------------------------------------
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-17 18:25 , Processed in 0.172387 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表