JIG（即时绘图）-多实体即时绘图-DrawJig（拖拽即时绘图）

最新推荐文章于 2026-05-01 02:45:00 发布

原创

最新推荐文章于 2026-05-01 02:45:00 发布 · 3.2k 阅读

收录于

当前文章被以下社区和专栏收录：

本文介绍了如何运用JIG（即时绘图）和DrawJig库来实现实时的多实体绘图操作。通过执行ENTSPREVIEW命令，用户可以选择单行文本并输入新文本，系统会即时动态预览直线与更新后的文本效果。

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

Namespace ZwZpps
Public Class JIGclass
<CommandMethod("EntsPreview")> _
Public Sub EntsPreview()
Dim ZcDoc As Document = ZwSoft.ZwCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim ZcDb As Database = ZcDoc.Database
Dim ZcED As Editor = ZcDoc.Editor

Dim TextID As ObjectId = Nothing
Do
Dim peo As New PromptEntityOptions(vbLf & "Select a text:")
peo.SetRejectMessage(vbLf & "Must be a text.")
peo.AddAllowedClass(GetType(DBText), True)

Dim per As PromptEntityResult = ZcED.GetEntity(peo)
If per.Status <> PromptStatus.OK Then

标签