创建ZWCAD实体--对齐标注

最新推荐文章于 2025-03-11 20:05:45 发布

原创最新推荐文章于 2025-03-11 20:05:45 发布 · 942 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#对齐标注 #zwcad #.net #api #AlignedDimension

ZWCAD .NET API开发专栏收录该内容

81 篇文章

订阅专栏

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

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 & "Specify second extension line origin:")
Dim per2 As PromptPointResult = ZcEd.GetPoint(peo2)
If per2.Status <> PromptStatus.OK Then
Return
End If
Dim pt2 As Point3d = per2.Value

Dim peo3 As New PromptPointOptions(vbLf & "Specify point:")
Dim per3 As PromptPointResult = ZcEd.GetPoint(peo3)
If per3.Status <> PromptStatus.OK Then
Return
End If
Dim pt3 As Point3d = per3.Value

Dim styleID As ObjectId = ZcDB.Dimstyle
Dim ent As AlignedDimension = New AlignedDimension(pt1, pt2, pt3, "<>", styleID)

Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction()
Dim ZcBLT As BlockTable = ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead)
Dim ZcBLTR As BlockTableRecord = ZcTran.GetObject(ZcBLT(BlockTableRecord.ModelSpace), OpenMode.ForWrite)

ZcBLTR.AppendEntity(ent)
ZcTran.AddNewlyCreatedDBObject(ent, True)

ZcTran.Commit()
End Using
End Sub

End Class