简用钢筋翻样软件简图VBA参考.docx

简用钢筋翻样软件简图VBA参考.docx

《简用钢筋翻样软件简图VBA参考.docx》由会员分享，可在线阅读，更多相关《简用钢筋翻样软件简图VBA参考.docx（7页珍藏版）》请在冰豆网上搜索。

简用钢筋翻样软件简图VBA参考

简用钢筋翻样软件简图VBA参考

1.专用方法

名称

说明

示例

Label

表示简图上的一个标签

LabelA表示标签A

如果LabelA写的是200*10

LabelA返回2000

OpenVal

处理用*号表示的格式字符

如果LabelA写的是200*10

OpenVal（LabelA）.A返回200

OpenVal（LabelA）.B返回10

GjinBiao

处理用如C8@200的格式字符

如果LabelA写的是C8@200

GjinBiao（LabelA）.A返回C

GjinBiao（LabelA）.B返回8

GjinBiao（LabelA）.C返回200

GjinBiao（LabelA）.D返回C8

SetVal

更改标签的内容（不能放置在过程或函数中）

如果LabelA写的是200

SetVal（LabelA,1000）

将会使LabelA的内容更改为1000

SetRow

指示向料表上插入一行（不能放置在过程或函数中）

SetRow（楼梯/Im1,AT1,GjinBiao（LabelI）.D,GetL_2,底筋,,,GetL_1）

参数解释:

楼梯/Im1在简图列上插入楼梯文件夹中名为Im1的简图

AT1在构件号列写入AT1

GjinBiao（LabelI）.D在直径列列写入标签LabelI上表示直径的数据

GetL_2在数量列上写入由函数GetL_2计算的结果

单件数量列不写内容

构件数量列不写内容

GetL_1简图上各段的长度由函数GetL_1计算（结果是一个数组）

2.常用VB函数

名称

说明

Atn

返回一个数的反正切值

Cos

返回指定一个角的余弦值（弧度）

Sin

返回指定参数的正弦值（弧度）

Tan

返回指定一个角的正切值（弧度）

Round

返回指定的小数位数进行四舍五入运算的结果Round（3.1415）返回3Round（3.1415，1）返回3.1

Array

返回一个数组Array（2,3）返回具有两个元素的数组

更多可参考VB语言资料

示例程序

申明公共变量，可将常用值放在这是，就不用反复计算它

Dimk,kc,ks

DimFL

程序一开始将自动运行Main过程，可在这里给公共变量赋值（如果不用可以不写）

DimBH

SubMain

k=LabelK/OpenVal（LabelC）.A

kc=Cos（Atn（k））

用这个函数来计算下底筋的长度

ks=Sin（Atn（k））

BH=LabelJ

FL=BH/ks-BH/k

EndSub

FunctionGetL_1

a=Round（LabelA+LabelB+FL-50）

b=Round（LabelC/kc+BH/ks+LabelK/ks）-80

GetL_1=Array（a,b,200）

用这个函数来计算底筋的数量

EndFunction

FunctionGetL_2

GetL_2=Round（（LabelH-50）/GjinBiao（LabelG）.C）+1

用这个函数来计算上底筋的长度

EndFunction

FunctionGetL_3

a=LabelD+LabelE-OpenVal（LabelC）.A+Round（LabelJ/k）-80

GetL_3=Array（200,a）

用这个函数来计算下盖筋的长度

EndFunction

FunctionGetL_4

a=LabelA+LabelB+Round（FL+LabelJ/k）-80

GetL_4=Array（100,a,200）

计算盖筋的数量

EndFunction

FunctionGetL_5

用这个函数来计算上盖筋的长度

GetL_5=Round（（LabelH-50）/GjinBiao（LabelF）.C）+1

EndFunction

FunctionGetL_6

a=Round（LabelC/kc+BH/ks+LabelK/ks）-80

b=LabelD+LabelE-OpenVal（LabelC）.A-80

GetL_6=Array（200,a,b,100）

EndFunction

计算分步筋的长度

FunctionGetL_7

b=LabelH-50

GetL_7=Array（b）

计算分步筋的数量

EndFunction

FunctionGetL_9

S=（LabelB+LabelC/kc+LabelD）/GjinBiao（LabelI）.C+1

GetL_9=Round（S*2+1）

EndFunction

SetRow（楼梯/Im8,BT1,GjinBiao（LabelG）.D,GetL_2,底筋,,,GetL_1）

SetRow（楼梯/Im9,,GjinBiao（LabelG）.D,GetL_2,底筋,,,GetL_3）

SetRow（楼梯/Im7,,GjinBiao（LabelF）.D,GetL_5,下盖筋,,,GetL_4）

SetRow（楼梯/Im10,,GjinBiao（LabelF）.D,GetL_5,上盖筋,,,GetL_6）

SetRow（楼梯/Im4,,GjinBiao（LabelI）.D,GetL_9,分步筋,,,GetL_7）