Hi Lukas,
Here is an example of how to do what you're wanting to do.
--
Joe Sutphin
Visual Basic How-To For AutoCAD
for more book details click on the link
http://eomnisource.hypermart.net
Option Explicit
Dim App As AcadApplication
Private Sub Command1_Click()
InsertABlock
End Sub
Private Sub Form_Load()
On Error Resume Next
Set App = GetObject(Class:="AutoCAD.Application")
If Err Then
Err.Clear
Set App = CreateObject(Class:="AutoCAD.Application")
If Err Then
MsgBox "Fatal error - AutoCAD is not available", vbCritical, "AutoCAD Not Available"
Exit Sub
End If
End If
End Sub
Private Sub InsertABlock()
Dim Point As Variant
On Error Resume Next
Point = App.ActiveDocument.Utility.GetPoint(Prompt:="Select an insertion point")
If Err Then
MsgBox "Valid point not selected"
Exit Sub
End If
App.ActiveDocument.ModelSpace.InsertBlock Point, "Block1", 1#, 1#, 1#, 0#
End Sub
If "Block1" is not a block that is already in the AutoCAD database, then you will need
to use a fully qualified path [i.e. "C:\Program Files\AutoCAD 2002\Block1.dwg"
"lukas" wrote in message news:3B67C9D87EFCCF983598E3BB18AFE6B2@in.WebX.maYIadrTaRb...
> Hi
>
> I want to execute an insert block comamnd from my vb form, ..
> but I want a user to specify an insertion point, so what I do is
>
> mform.hide
> acadDoc.SendComamnd( "(command ""insert"" """ & mblock & """)")
> mform.show
>
> ... happens nothing, but when I close this form, the insert command is
> executed at last.
>
> any help welcome & thx
> lukas
>
>
