询问画表格

import random
import turtle


def xian(a, b):
    turtle.goto(0, 0)
    turtle.goto(a, 0)
    turtle.goto(b, 0)
    turtle.goto(0, 0)


def draw():
    draw_number = turtle.textinput("输入重复次数", "重复次数?")
    draw_number = int(draw_number)
    draw_number2 = turtle.textinput("输入宽度", "宽度?")
    draw_number2 = int(draw_number2)
    a1 = draw_number * 100 / 2
    a1 = int(a1)
    a2 = draw_number * 100 / 2
    b2 = draw_number * 100 / 2 - a2 - a2
    turtle.screensize(1600, a1)
    bc1 = draw_number2 * 100 / 2
    bc2 = draw_number2 * 100 / 2 - bc1 - bc1
    random.randint(bc2, bc1)
    random.randint(b2, a2)
    draw_number = draw_number + 1
    b = draw_number
    xian(bc1, bc2)
    turtle.hideturtle()
    turtle.speed(0)
    turtle.penup()
    turtle.goto(-125, a1)
    turtle.pendown()
    turtle.write('K最临近算法表格', font=("Arial", 15, "normal"))
    turtle.penup()
    c = 1
    a3 = a1 + 100
    for u in range(draw_number):
        yi = a3 - 100
        a3 = yi
        if c >= 1:
            if c < draw_number:
                turtle.penup()
                turtle.goto(bc2, yi)
                turtle.backward(30)
                b = b - 1
                turtle.write(b, font=("Arial", 15, "normal"))
                turtle.goto(bc2, yi)
                turtle.pendown()
                for i in range(draw_number2):
                    turtle.forward(100)
                    turtle.right(90)
                    turtle.forward(100)
                    turtle.right(90)
                    turtle.forward(100)
                    turtle.right(90)
                    turtle.forward(100)
                    turtle.right(90)
                    turtle.forward(100)
                c = c + 1
            else:
                turtle.penup()
                turtle.goto(bc2, yi)
                turtle.backward(30)
                b = b - 1
                turtle.write(b, font=("Arial", 15, "normal"))
                turtle.goto(bc2, yi)
                for o in range(draw_number2):
                    turtle.forward(100)
                    turtle.right(90)
                    turtle.forward(100)
                    turtle.right(90)
                    turtle.forward(100)
                    turtle.right(90)
                    turtle.forward(100)
                    turtle.right(90)
                    turtle.forward(100)
                c = c + 1
        else:
            b = b - 1
            turtle.penup()
            turtle.goto(bc2, yi)
            turtle.pendown()
            for _ in range(draw_number2):
                turtle.forward(100)
                turtle.right(90)
                turtle.forward(100)
                turtle.right(90)
                turtle.forward(100)
                turtle.right(90)
                turtle.forward(100)
                turtle.right(90)
                turtle.forward(100)
            c = c + 1
    turtle.penup()
    turtle.right(90)
    turtle.forward(bc1 / 10)
    turtle.left(90)
    turtle.backward(bc1)
    turtle.backward(bc1)
    b = 0
    for o in range(draw_number2 + 1):
        turtle.penup()
        turtle.write(b, font=("Arial", 15, "normal"))
        b = b + 1
        turtle.forward(100)
    draw_number3 = turtle.textinput("输入重复次数", "重复次数?")
    draw_number3 = int(draw_number3)
    turtle.speed(0)
    turtle.showturtle()
    for e in range(draw_number3 * 10):
        sd = draw_number3 * 50 - draw_number3 * 100
        sd = int(sd)
        ad = draw_number3 * 100 / 2
        ad = int(ad)
        ran_dom = random.randint(sd, ad)
        ram_dom = random.randint(bc2, bc1)
        m = ram_dom
        n = ran_dom
        print(m, n)
        turtle.goto(m, n)
        turtle.clone()


turtle.hideturtle()

draw()
turtle.done()

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在CAD中,通过VBA编程可以实现将不规则表格绘制到CAD图纸中。以下是一个简单的示例代码: 首先,我们需要创建一个Excel表格,其中包含了需要绘制到CAD中的不规则表格的数据。数据可以包括行列的数量、单元格的样式和内容等。这个Excel表格可以通过VBA代码进行操作和处理。 接下来,我们需要编写VBA代码来连接到CAD软件,并将Excel中的数据读取到CAD图纸中。下面是一个简单的示例代码: ```vba Sub DrawTableToCAD() '连接到CAD软件 Dim acadApp As AcadApplication Set acadApp = GetObject(, "AutoCAD.Application") '获取当前激活的CAD文档和模型空间 Dim acadDoc As AcadDocument Set acadDoc = acadApp.ActiveDocument Dim acadModelSpace As AcadModelSpace Set acadModelSpace = acadDoc.ModelSpace '打开Excel表格,并读取需要绘制的不规则表格数据 Dim excelApp As Excel.Application Set excelApp = CreateObject("Excel.Application") Dim excelWorkbook As Excel.Workbook Set excelWorkbook = excelApp.Workbooks.Open("C:\Path\To\Your\Excel\File.xlsx") Dim excelWorksheet As Excel.Worksheet Set excelWorksheet = excelWorkbook.Sheets("Sheet1") '获取表格的行数和列数 Dim numRows As Integer numRows = excelWorksheet.Cells(Rows.Count, 1).End(xlUp).Row Dim numCols As Integer numCols = excelWorksheet.Cells(1, Columns.Count).End(xlToLeft).Column '循环遍历表格中的每个单元格,绘制到CAD图纸中 Dim i As Integer, j As Integer For i = 1 To numRows For j = 1 To numCols Dim cellValue As String cellValue = excelWorksheet.Cells(i, j).Value '创建CAD文本对象,将表格中的内容写入到CAD图纸中的对应位置 Dim textObj As AcadText Set textObj = acadModelSpace.AddText(cellValue, Array(0, 0, 0), 1) '设置CAD文本对象的位置和样式 textObj.InsertionPoint = Array(j * 10, -i * 10, 0) '假设单元格的宽度和高度都为10 textObj.Height = 2 Next j Next i '保存并关闭Excel表格 excelWorkbook.Close SaveChanges:=False excelApp.Quit '清除对象的引用 Set excelWorksheet = Nothing Set excelWorkbook = Nothing Set excelApp = Nothing Set acadModelSpace = Nothing Set acadDoc = Nothing Set acadApp = Nothing End Sub ``` 以上示例代码仅仅是一个基础示例,实际项目中可能会根据实际需求进行调整和扩展。希望以上内容能对您有所帮助,如果还有其他问题,请随时询问
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值