資源描述:
《lisp程序--autocad和浩辰gstarcad》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫(kù)。
1、mylisp_gcad20160902.lsp;;-------------------------------------------------------------------------------;000fff;日期:2016-09-05;簡(jiǎn)介:AutoCAD和浩辰GCAD都能用的lisp小程序。;文件名:mylisp20160113.lsp。;可以替換該文件內(nèi)容: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