Autocad&VBA初级教程&第十三课块操作_机械行业_中国百科网
Autocad&VBA初级教程&第十三课块操作
    定义块方法：
Set blocksobj=ThisDrawing.Blocks.Add(基点, 块名)把选择集加入块中的方法：ThisDrawing.CopyObjects(选择集,块)插入块方法：ThisDrawing.ModelSpace.InsertBlock(插入点,块名, X轴比例,Y轴比例,Z轴比例, 旋转角度) 画块属性方法：ThisDrawing.ModelSpace.AddAttribute(文字高度,模式,提示字符, 插入点, 显示字符,默认值)一共有五种模式，在输入时会有提示，其中最常用的是“acAttributeModeNormal”普通模式
下面的例题是利用属性块画足球场的阵型图。程序画出一个球员块，然后把块写到用户指定位置，球员号码由程序自动递增，把球员姓名改为用户输入值。画足球场请参阅上一课内容。
编程思路：1．定义一个空块2．在块中画一段弧（球服衣领）3．画多段线，镜像画出球衣4．画块属性，由于块属性默认的对齐方式是左对齐，而球员号码应该居中，所以必须把块的对齐属性改为居中。但是当这个属性更改时块属性对齐点会自动归零，所以不得不再次更改对齐点属性5．把多段线和属性复制到块中6．提示用户点选球员位置和姓名7．插入块，修改球衣号码属性、球员姓名属性
以下是源码，附有详细的注释，如果有疑问，建议用变量跟踪法研究一下。Sub team()Dim playerlay As AcadLayer '定义球员图层Dim playerblock As AcadBlock '定义块变量Dim arcc(0 To 2) As Double '圆弧圆心Dim linep1(0 To 2) As Double '线条端点1Dim linep2(0 To 2) As Double '线条端点2Dim pline(0 To 20) As Double '定义队服右侧多段线7个顶点Dim basep(0 To 2) As Double '块基点Dim playernumberpoint(0 To 2) As Double '块属性插入点Dim mytxt As AcadTextStyle '定义mytxt变量为文本样式Dim blockRef As AcadBlockReference '定义块属性变量Dim Attr3 As Variant '插入块属性变量
Set playerblock = ThisDrawing.Blocks.Add(basep, "球员") '定义一个"球员"的块
arcc(0) = 0arcc(1) = 430Call playerblock.AddArc(arcc, 50, ThisDrawing.Utility.AngleToReal(180, 0), 0) '画弧并加入块中
pline(0) = 0pline(1) = 20
pline(3) = 100pline(4) = 20
pline(6) = 100pline(7) = 250
pline(9) = 125pline(10) = 207
pline(12) = 212pline(13) = 257
pline(15) = 112pline(16) = 430
pline(18) = 50pline(19) = 430
Set line1 = ThisDrawing.ModelSpace.AddPolyline(pline) '画队服右侧多段线
linep2(1) = 1 '镜像轴第二点位于Y轴上任一点Set line2 = line1.Mirror(linep1, linep2) '镜像获得另一半多段线
Dim p(0 To 2) As Double '定义坐标变量Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt样式mytxt.fontFile = "c:\windows\fonts\simfang.ttf" '设置字体文件为仿宋体ThisDrawing.ActiveTextStyle = mytxt '将当前文字样式设置为mytxt
playernumberpoint(0) = 0 '块属性位置playernumberpoint(1) = 200Set attr1 = ThisDrawing.ModelSpace.AddAttribute(100, acAttributeModeNormal, "号码", playernumberpoint, "X", 0) '画块属性attr1.Alignment = 7 '居中attr1.TextAlignmentPoint = playernumberpoint '重定义对齐点Set attr2 = ThisDrawing.ModelSpace.AddAttribute(100, acAttributeModeNormal, "姓名", playernumberpoint, "???", 0) '画块属性attr2.Alignment = 7 '居中
Dim objCollection(0 To 3) As Object '创建选择集Set objCollection(0) = line1 '线条1加入选择集Set objCollection(1) = line2 '线条2加入选择集Set objCollection(2) = attr1 '属性1加入选择集Set objCollection(3) = attr2 '属性2加入选择集
Call ThisDrawing.CopyObjects(objCollection, playerblock) '把选择集加入块中
For Each element In objCollection '在选择集中进行循环 element.Delete '删除线条和属性(此操作并不影响已创建的块)Next
Set playerlay = ThisDrawing.Layers.Add("球员") '新建图层playerlay.color = 2 '为黄色ThisDrawing.ActiveLayer = playerlay '将当前图层设置为球员图层
Dim p1 As Variant '块插入点位置
For i = 1 To 11 '插入块 pstring = CStr(i) & "号球员位置：" p1 = ThisDrawing.Utility.GetPoint(, pstring) '点选球员位置坐标 nstring = ThisDrawing.Utility.GetString(30, "球员姓名：") Set blockRef = ThisDrawing.ModelSpace.InsertBlock(p1, "球员", 1, 1, 1, 0) '插入块 Attr3 = blockRef.GetAttributes '获取块属性 Attr3(0).TextString = CStr(i) '赋值球员号码 Attr3(1).TextString = nstring '赋值球员姓名Next
本课思考题：1、在本课例程的最后一段增加出错代码，当用户输入非正常数值时退出程序2、画一个简易路灯块，用属性块做为路灯编号，由用户点选路灯位置，程序画路灯时自动为路灯编号
Copyright by ；All rights reserved.作者：鹤翼飞白[HP]&&花园养家最新章节,[HP]&&花园养家全文阅读无弹窗-合集-看书阁
当前位置： &
最新章节：状态：连载中更新时间： 00:35
内容简介：
不知剧情少女重生为6岁奶娃娃，濒临破产的书店，重伤几乎成为哑炮的监护人叔叔，外背负一笔欠款…………
这一段时期，救世主还未出现，亲世代的名人正意气风发……
还好有个随身花园，稚龄少女只得研究花茶药理，努力照顾病人努力养家……
“彼之砒霜，吾之蜜糖，有家人在真是太好了……”
少女：天然+勤奋+恋家+亲人控
叔叔：腹黑+毅力+恋家+兰妮控兰尼：
“噢，太令人惊喜了，叔叔，卢修斯辈分居然是我的侄子，
虽然他比我大很多，但是我们又多了一个亲人了，真是太棒了！”科维克：“……咳咳，要知道兰妮，仅仅族谱说的话，连食死徒都有很多【侄子】，
我们看重的不是族谱……”兰尼：
“但是，叔叔，血缘……”科维克：“太令我失望了，兰妮，血统论很重要么，
你要向神秘人靠拢么，难道我血统少点就不是你最亲密的叔叔么？”兰尼
your story may not have a such happy beginning,
but doesnt make who you are.
Its the rest of your story,who you choose to be这个故事：就是一个小妞，在魔法世界成长的故事，有友谊有爱情有原创，慢热文！那个.想一进去就看到J.Q的没可能了 = =|||女主还年幼，瓦不想让楠竹变成咸湿大叔。作者申明：第一卷，有原创人、剧情！ 练笔、节奏较快！铺垫卷…如果可以，希望能耐心点看！
第二卷，欢乐学院卷
第三卷，女主长大，那神马JQ之类的！嗯~XD 欢乐网王文——这就是苦逼作者，自己的旧文女主年龄太小！于是在围观群后，果断开的‘吡’文，举报神马的，同志我告诉你，这文一点都不辣。真的，看我纯洁的眼神。新坑在这里：好友的WW文，不错哦！
作品关键字：
看书阁提醒您：
①如果您发现，而本站又没有更新，请提醒我们，我们会立即处理。
②我们不保证的文字完整无错，但我们会尽力纠错，努力打造最好的[HP]&&花园养家吧。
③ 如果您发现本书《[HP]&&花园养家》错误章节，请及时，您的热心是对网站最大的支持。婚情薄&& 总裁的虐妻,婚情薄&& 总裁的虐妻最新章节,染颜久新书 - 无错小说网
& 婚情薄&& 总裁的虐妻最新章节列表
婚情薄&& 总裁的虐妻简介：冉颜从来不知道，一次偶然的救助，换来的是一场婚姻。嫁给一个素未相识的人，很显然她是不愿意的。但是这个世界上，有一种无能为力的事情，叫做“钱”所以她嫁了。那个叫做顾墨白的男人，听闻刚刚回国。他们的第一次见面，是冉颜万万没想到的，她知道自己的不愿意，但当看到顾墨白才知道他也无意。那样一个骄傲不羁，深不可测的男人在看旁边的人儿时透入着深深的宠。那天，他腥红着眼说，冉颜，嫁了我，等着守活寡。冉颜煞白的脸，紧握的手，嘴角却挂着牵强的笑，没关系，冉颜，你不爱他，守活寡又如何。结婚三年，顾墨白向她证明了他当时的那句诺言。冉颜告诫自己，冉颜，你要守的不是活寡，是自己的心，冉颜，你懂吗？一纸离婚协议，终究塌了她的心城。却不料，他们的婚姻才是真正的殇。结婚前，冉颜说，没关系，我不爱他。结婚后，冉颜说，冉颜，你要守的不是寡，是心。离婚前，冉颜说，顾墨白，这场戏，一直只有我一个人在演。伤到极致，她说，顾墨白，谢谢你们毁了我。后来的后来顾墨白说，冉颜，天堂地狱，即使是毁得彻底，你也只能呆在我身边。
推荐阅读：
《婚情薄&& 总裁的虐妻》最新的12章节列表（提示：已启用缓存技术，最新章节可能会延时显示，登录书架即可实时查看。）
《婚情薄&& 总裁的虐妻》全部章节列表}