[经验]用VB进行图形编程1-创建环行剖面线
Dim objid As Long
Dim objid1 As Long
objid = MicroDrawOcx1.CreateEllipse(25, 25, 34, 12, 12 / 180 * 3.14159265)
MicroDrawOcx1.CreateHatchOffset objid, 2, 35, 0 '给椭圆填充环行剖面线,其中2是线宽,35是线的条数,0是扩充数
objid1 = MicroDrawOcx1.CreateCircle(89, 89, 35)
MicroDrawOcx1.CreateHatchOffset objid1, 2, 23, 0 '给圆填充环行剖面线,其中2是线宽,23是线的条数,0是扩充数
MicroDrawOcx1.ZoomAll
此代码用到了MicroDraw图形控件,可以到www.microdraw.cn 上免费下载
[此贴子已经被作者于2006-4-22 23:23:13编辑过]