创建ZWCAD实体--对齐标注

最新推荐文章于 2024-04-21 10:03:53 发布

静喧

最新推荐文章于 2024-04-21 10:03:53 发布

阅读量870

点赞数

分类专栏： ZWCAD .NET API开发文章标签：对齐标注 zwcad .net api AlignedDimension

本文链接：https://blog.csdn.net/jingxuan84/article/details/9411659

版权

该博客介绍如何通过ZwSoft.ZwCAD.NET API在ZWCAD中创建对齐标注。首先获取文档和编辑器，然后提示用户输入两个延伸线起点和一个标注点，最后根据用户输入创建并添加对齐标注到模型空间。

摘要由CSDN通过智能技术生成

Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.EditorInput
Imports ZwSoft.ZwCAD.Geometry

Public Class ZwcadApps

<CommandMethod("CreateAlignD")> _
Public Sub CreateAlignD()
Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ZcDB As Database = ZcDoc.Database
Dim ZcEd As Editor = ZcDoc.Editor

Dim peo1 As New PromptPointOptions(vbLf & "Specify first extension line origin:")
Dim per1 As PromptPointResult = ZcEd.GetPoint(peo1)
If per1.Status <> PromptStatus.OK Then
Return
End If
Dim pt1 As Point3d = per1.Value

Dim peo2 As New PromptPointOptions(vbLf &