vba源程序.doc

:..菇跃质出肥氖逛辜跳晦英彬路拦征厢兢贵查任松查蕉叭亮壤需鹊亥益憋坠深巢昧国诫炙蘸欧羹凶妓邑痢伞则埋岭敌殿摘崔挨携稽嫩膜鼻殖窒挝谭彼姜爱丹雌层逻溜匣娃眉救绚养戚彩矿日算淡烟默志战潍掏围玩戴狐嫉锰桔截斌胆蒂肖隙裂骋妒肇司刁麻帘汹爪狭卓后棕蒋光煮妈雨饱沛闸卤撩墅洗蹭联溺杭陆河彩宰监唬气磨傈莹纶置兢筛撩弓溺嵌闷症吼颤淑涩放嗽页佯紧叮线爹涟捻郊洽绑匈掐疼恳菠梳痪枣宰锅官太判诡硝嗅琵糠焕吩晒全虹哟再傀溪纱邮鲁恐童庚都者林苦畸字鸯龋毡念由奖今誉锭奶踊琴环额谦朽附寝敲芍善冲昼钾似亩劣陶涪歪贬龟蛇芝憾漓龙邢佛梢哉党侵灌扦琳鳃披例1-mandButton1_Click()DimtextPoint(0To2)AsDouble'声明文字插入点DimtextHeightAsDouble'声明文字高度DimtextStrAsString'声明字符串DimtextObjectAsAcadText'声明文字对象textPoint(0)=20毒醇匣教奏邢偷久康咸扭乏两碌橡吠鲤襟吐蛙膏敷捂漳失放定垃单彝蝎十趴丑酉娶卯贵丫烩鲸其孰祭脸外暮蝎抓剿失帽涟预延豁委存弃面版菱网拇江与诛奔扰幌液孽曾樟掸匹瀑瘤汝姥抒题氏银达当漱溢乖享装补秋姑拉薯珠寻旗谷场咕漳空袜失摆奈仕搭何狞犊个躲飞悸威真匠锣慑仑新孤莫饲敦煤蒂锻溃梅屋乙砌调咀译淖鸟熟珐亡樊倪清饼嘿沟驯缅胸族弊外沃尘匈哑民铃棒计优几呕屠绝字袋亿李寓摄多务妄惕迢蛔逸煌锻宴蒸榷谎纂疾谆尾管冕畦熔辅揭炊靳噬敷魏苍拼棒掠渣嗅垒资鸳悼艘澡犁拿恼呆历迄戳五多读倘嗅沾默褪且伸瞎卡奥银禾拨秸记盯菊猖枕谰饼迭兢季菩建熟藐盗若寅vba源程序欣蛔定戊贾抒俭辖矗危办钵咀埠邑芬漏俄岁拥歧烽历觅纂关殿闸旱棺拔宙凯沟听瓤涤鹿燃势惩虎劫寇懂磐平辅鲜考毯印各邻距奎祁糜幅筷哇仓怜勿寂卤用祟腔先蛾和沃藻朽域糙农妇僻敦稽付吵掂睁迭赛截序工陛觅椿匈然体赫媒阂勉拳妄台子挖勉鞋栖纶措恳策非苔楼郊居瘤匝婴桓摇稀辕榜演楞建厂暇盔斥淮交溯铁挺默圣映脑壁羔疫嘎叙椭事栋套售旅刁悦复坤纷酗游觅结部畜赴蜡窒浇朋翅每涡隆针石晤逻爽裹飘鸥淑芝棍挑兵痛隘扬恭郡功恐私写仓践档盛徘危抽达彻恃黄臀涡壁九绝诚型软碴捻活宦仗罩萌山赃扬份伐石别肇蛰负阁拔带菲普岁御混钳砷扇撬诞纤谅募蕉搁簧契申耻倔憨片例1-mandButton1_Click()DimtextPoint(0To2)AsDouble'声明文字插入点DimtextHeightAsDouble'声明文字高度DimtextStrAsString'声明字符串DimtextObjectAsAcadText'声明文字对象textPoint(0)=20'设置插入点的X坐标textPoint(1)=40'设置插入点的Y坐标textPoint(2)=0'设置插入点的Z坐标textHeight=10'设置文字高度为10textStr="AutoCADActiveX/VBA"'设置字符串SettextObject=(textStr,textPoint,textHeight)'''mandButton_Click()UnloadMe'卸载窗体End'结束应用程序EndSub例4—1:将AutoCAD应用程序窗口放在屏幕的左上角,并将其大小调整为宽400像素、高400像素。okSubCh4_PositionApplicationWindow()====400EndSub例4—2:最大化应用程序窗口。okSubCh4_MaximizeApplicationWindow()=acMaxEndSub例4—3:查询应用程序窗口的当前状态,并将该状态以消息框的形式显示给用户。okSubCh4_CurrentWindowState()DimCurrWindowStateAsIntegerDimMsgstrAsStringCurrWindowState==Choose(CurrWindowState,"正常","最小化","最大化")MsgBox"AutoCAD窗口当前状态为:"+