lisp程序--autocad和浩辰gstarcad

《lisp程序--autocad和浩辰gstarcad》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、mylisp_gcad20160902.lsp;;-------------------------------------------------------------------------------;000fff;日期：2016-09-05;简介：AutoCAD和浩辰GCAD都能用的lisp小程序。;文件名：mylisp20160113.lsp。;可以替换该文件内容：C:Gstarsoft浩辰CAD电气2013GRX8OtherApp.lsp;或者替换autocad中的C:ProgramFilesAutoCAD2005Supportac

2、ad2005doc.lsp;NextavailableMSGnumberis104;MODULE_IDACAD2005doc_LSP_;;;ACAD2005DOC.LSPVersion1.0forAutoCAD2005;;;;;;Copyright(C)1994-2003byAutodesk,Inc.;;;;;;Permissiontouse,copy,modify,anddistributethissoftware;;;foranypurposeandwithoutfeeisherebygranted,provided;;;thattheabovecopyri

3、ghtnoticeappearsinallcopiesand;;;thatboththatcopyrightnoticeandthelimitedwarrantyand;;;restrictedrightsnoticebelowappearinallsupporting;;;documentation.;;;;;;AUTODESKPROVIDESTHISPROGRAM"ASIS"ANDWITHALLFAULTS.;;;AUTODESKSPECIFICALLYDISCLAIMSANYIMPLIEDWARRANTYOF;;;MERCHANTABILITYORFITN

4、ESSFORAPARTICULARUSE.AUTODESK,INC.;;;DOESNOTWARRANTTHATTHEOPERATIONOFTHEPROGRAMWILLBE;;;UNINTERRUPTEDORERRORFREE.;;;;;;Use,duplication,ordisclosurebytheU.S.Governmentissubjectto;;;restrictionssetforthinFAR52.227-19(CommercialComputer;;;Software-RestrictedRights)andDFAR252.227-7013(c)

5、(1)(ii);;;(RightsinTechnicalDataandComputerSoftware),asapplicable.;;;;;;.;;;;;;Note:;;;ThisfileisloadedautomaticallybyAutoCADeverytime;;;adrawingisopened.Itestablishesanautoloaderand;;;otherutilityfunctions.;;;;;;GlobalizationNote:;;;Wedonotsupportautoloadingapplicationsbythenative;;

6、;languagecommandcall(e.g.withtheleadingunderscore;;;mechanism.);;;=====RasterImageSupportforClipboardPasteSpecial=====;;;;IMAGEFILE;;;;AllowtheIMAGEcommandtoacceptanimagefilenamewithout;;presentingthefiledialog,eveniffilediaison.;;Example:(imagefile"c:/images/house.bmp");;(defunimage

7、file(filename/filedia-savecmdecho-save)(setqfiledia-save(getvar"FILEDIA"))(setqcmdecho-save(getvar"CMDECHO"))(setvar"FILEDIA"0)(setvar"CMDECHO"0)(command"_.-image""_attach"filename)(setvar"FILEDIA"filedia-save)(setvar"CMDECHO"cmdecho-save)(princ));;;===GeneralUtilityFunctions===;R12c

8、ompatibility