Public
Sub
InserBlock()
Dim
acDoc
As
Document
=
Application
.DocumentManager.MdiActiveDocument
Dim
acDatabase
As
Database
= acDoc.Database
Dim
acEditor
As
Editor
= acDoc.Editor
Dim
pPtRes
As
PromptPointResult
Dim
pPtOpts
As
PromptPointOptions
=
New
PromptPointOptions
(
""
)
pPtOpts.Message = vbLf &
"Insert Point of Block:"
pPtRes = acEditor.GetPoint(pPtOpts)
Dim
InsertPt
As
Point3d
= pPtRes.Value
If
pPtRes.Status =
PromptStatus
.Cancel
Then
Exit Sub
End
If
Us