cad 二次开发 插入图片_VB_NET进行AutoCAD二次开发_插入外部图块

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