板鞋厂家
免费服务热线

Free service

hotline

010-00000000
板鞋厂家
热门搜索:
成功案例
当前位置:首页 > 成功案例

最火VBA绘制多边形并返回多边形顶点坐标

发布时间:2021-09-21 18:51:37 阅读: 来源:板鞋厂家

VBA绘制多边形,并返回多边形顶点坐标

Sub polygon() 项目产品实现了高效、低阻、长寿命的目标

'以下语句绘制正多边形

Dim num As Integer

Dim pnt As Variant

Dim lpnt As Variant

num = tInteger("请选择正多边形的边数:")

齐丁预测Dim fpnt As Variant

fpnt = tPoint(, "请选择正多边形的起点:")

Dim leng As Double

leng = tDistance(fpnt, "请选择正多边形的边长:")

ReDim lpnt(0 To num * 2 - 1) As Double

pnt = fpnt

lpnt(0) = pnt(0)

lpnt(1) = pnt(1)

Dim st As Integer

For st = 1 To num - 1

pnt = larPoint(pnt, (3. * 2 / num) * (st - 1), leng)

lpnt(st * 2) = pnt(0)

lpnt(st * 2 + 1) = pnt(1)

Next st

Dim pgon As AcadLWPolyline

Set pgon = dLightWeightPolyline(lpnt)

osed = True

ThisDraw随着我国科学技术的进步gen (True)

'以下语句获取多边形的顶点

Dim gpnt As Variant

gpnt = p重启实验仪机箱电源与软件查验是否是1切正常ordinates

Dim pntcnt As Integer

pntcnt = UBound(gpnt)

Dim disptxt As String

disptxt = "多边形共有" (pntcnt + 1) / 2 "个顶点" vbCrLf

Dim i As Integer

For i = 0 To pntcnt - 1 Step 2

disptxt = disptxt "第" i / 2 + 1 "个顶点的坐标为:" _

gpnt(i) "," gpnt(i + 1) vbCrLf

Next i

disptxt = disptxt "明经通道VBA示例";

MsgBox disptxt, , "多边形的坐标显示"

End Sub

预防妇科疾病女性饮食应注意什么
预防交叉感染的措施
预防交叉感染的洗涤液有哪些
预防交叉感染的注意事项