bm绘图教程-bm200显微镜操作步骤

在 AutoCAD2020 中调出基准符号,请按以下步骤操作:

1. 首先,打开 AutoCAD 2020,并打开需要编辑的 dwg 文件。

2. 输入“-DWGPROPS”命令并按下回车键,打开“DWG 属性编辑器”。

3. 在“DWG 属性编辑器”窗口中,单击“Custom”选项卡以打开“自定义属性”页面。

4. 在“自定义属性”页面中,单击“新建”按钮以添加一个新的自定义属性。

5. 随后,在“新建自定义属性”对话框中,输入“BENCHMARK”(不包括引号)为“标签名”并选择“字符”为“类型”,单击“确定”按钮以保存该自定义属性。

6. 接下来,在同一“自定义属性”页面中,单击“值”列中“未设置”的单元格并输入您希望设为基准符号的任何字符或值(例如“BM”)。

7. 单击“确定”按钮保存更改并关闭“DWG 属性编辑器”窗口。

8. 在 AutoCAD 绘图区中,输入“-STYLE”命令并按下回车键以打开“样式管理器”。

9. 在“样式管理器”中,选择您希望列出基准符号的样式,例如“标注样式”。

10. 在“样式管理器”的相应详细信息部分中,启用“基准符号”,并将其设置为前面输入的相应字母或符号,例如“BM”。

11. 单击“确定”按钮,保存更改并关闭“样式管理器”。

这样,您就可以在 AutoCAD 2020 中调出基准符号了。

1.右手握住镜臂,左手托住镜座。 2.把显微镜放在实验台上,略偏左(显微镜放在距实验台边缘7厘米左右 处)。安装好目镜和物镜。 二、对光 3.转动转换器,使低倍物镜对准通光孔(物镜的前端与载物台要保持2厘 米的距离)。 4.把一个较大的光圈对准通光孔。左眼注视目镜内(右眼睁开,便于以后 同时画图)。转动反光镜,使光线通过通光孔反射到镜筒内。通过目镜,可以 看到白亮的视野。 三、观察 5.把所要观察的玻片标本(也可以用印有“6”字的薄纸片制成)放在 载物台上,用压片夹压住,标本要正对通光孔的中心。 6.转动粗准焦螺旋,使镜筒缓缓下降,直到物镜接近玻片标本为止(眼 睛看着物镜,以免物镜碰到玻片标本)。 7.左眼向目镜内看,同时反方向转动粗准焦螺旋,使镜筒缓缓上升,直 到看清物像为止。再略微转动细准焦螺旋,使看到的物像更加清晰。

你的代码是vb6.0的格式,在vb2013的net模式下是无法通过调试的

vb2013中要用GDI+的方法,比如

Public Class Form1

    Dim wid As Integer

    Dim hgt As Integer

    Dim bm As Bitmap

    Dim g As Graphics

    '下面是画坐标轴

    Private Function draw_coordinate() As Boolean '画坐标轴

        g.DrawLine(, -250, 0, 250, 0)

        g.DrawLine(, 0, -250, 0, 250)

        '画y轴刻度

        For i = -250 To 250 Step 2

            g.DrawLine(, -1, i, 1, i)

        Next

        For i = -250 To 250 Step 2

            g.DrawLine(, i, -1, i, 1)

        Next

         = bm

        ()

        Return True

    End Function

    '下面是画点(也是实心圆)

    Private Function DrawCircle(ByVal cp As Point, ByVal radius As Integer, ByVal color As Brush) As Boolean '画实心圆

        Dim rect As Rectangle = New Rectangle(cp.X - radius, cp.Y - radius, 2 * radius, 2 * radius)

        g.DrawEllipse(, rect)

        g.FillEllipse(color, rect)

         = bm

        ()

        Return True

    End Function

    Public Sub DrawEmptyCircle(ByVal mypen As Pen, ByVal Zeropoint As Point, ByVal r As Single) '画空心圆

        '画圆

        'Zeropoint:圆心,所在坐标系的原点为窗体左上角,向下向右为Y、X轴正方向。

        'r:半径

        g.DrawEllipse(mypen, Zeropoint.X - r, Zeropoint.Y - r, 2 * r, 2 * r)

         = bm

        ()

    End Sub

    Private Sub Form1_Load(ByVal sender As , ByVal e As ) Handles 

        wid = 

        hgt = 

        bm = New Bitmap(wid, hgt)

        g = (bm)

        g.TranslateTransform(250, 250) '坐标平移

        g.ScaleTransform(1, -1)       'X轴不变,反转Y轴

    End Sub

    Private Sub Button1_Click_1(ByVal sender As , ByVal e As ) Handles  '演示画轴,画圆

        draw_coordinate()

        '  DrawCircle(New Point(0, 0), 100, New ())'画实心圆

        DrawEmptyCircle(New Pen(), New Point(0, 0), 100) '画空心圆---圆心(0,0),半价100

    End Sub

End Class