发掘AutoLISP的潜力
What? ;;-------------------------------------------------------------------------------<BR>;; Program Name: GetIcon.lsp <BR>;; Created By: Terry Miller (Email: <A href="mailto:terrycadd@yahoo.com" target="_blank" >terrycadd@yahoo.com</A>)<BR>;; Date Created: 4-1-00<BR>;; Function: Various dialog Get functions enhanced with the icons AlertX,<BR>;; Block, Computer, Delete, Exclam, Filefolder, Folder, Frown, Inform, Printer,<BR>;; Quest, Replace, Smile and None. These functions and utilities get the true<BR>;; dialog string widths to create a C:\Temp\Temp.dcl dialog file on the fly and<BR>;; return a string of the name of the button selected.<BR>;;-------------------------------------------------------------------------------<BR>;; Revision History<BR>;; Rev By Date Description<BR>;;-------------------------------------------------------------------------------<BR>;; 1 TM 4-1-00 Initial version<BR>;; 2 TM 12-1-00 Revised functions to allow up to 4 lines and to allow<BR>;; choosing different icons.<BR>;; 3 TM 1-1-01 Added Printer, Smile and Frown icons.<BR>;; 4 TM 7-21-03 Added EditBox for entering string values.<BR>;; Syntax: (EditBox "Title" "Label" "EditText" EditWidth)<BR>;; 5 TM 5-20-04 Revised functions to allow up to 10 lines closer together,<BR>;; and added the None option of not including an icon.<BR>;;-------------------------------------------------------------------------------<BR>;; Overview of Main Functions<BR>;;-------------------------------------------------------------------------------<BR>;; c:GetIcon - - Displays GetIcon Get functions and syntax.<BR>;; GetOK - Returns "OK"<BR>;; GetOKCancel - Returns "OK" or "Cancel"<BR>;; GetYesNo - Returns "Yes" or "No"<BR>;; GetYesNoCancel - Returns "Yes", "No" or "Cancel"<BR>;; GetYestoAll - Returns "Yes", "Yes to All", "No" or "Cancel"<BR>;; GetRetryCancel - Returns "Retry" or "Cancel"<BR>;; TempDcl - Creates a Temp.dcl dialog file and returns the button selected.<BR>;; GetDclWidth - Get the true dialog string width.<BR>;; GetPT - Utility for vector_line.<BR>;; vector_circle - Draws vector circles, arcs and ellipses in an image tile.<BR>;; vector_line - Draws vector lines in an image tile.<BR>;; c:Vector_Circle - Vector_Circle Dialog Examples <-- Try It!<BR>;; dtr - Degrees to Radians function<BR>;; EditBox - Dialog for entering string values.<BR>;;-------------------------------------------------------------------------------
页:
[1]