topic Re: Interaction between userform and model space in .NET Forum

Interaction between userform and model space

Anonymous — Tue, 17 Nov 2015 09:12:08 GMT

Hi All,

How can we made interactive between user form button and model space? When I click a button in user form, it needs me to click the model space first. Only after that the task will begin.

I want it to be like what autocad have. Click on the button and directly begin the work in the model space, without needing to click the model space first.

Here is my code :

User Form setting :

Public Class UICall

Implements Autodesk.AutoCAD.Runtime.IExtensionApplication

Friend Shared AcPs As Autodesk.AutoCAD.Windows.PaletteSet = Nothing

Private UIClass As LogicUI = Nothing

<CommandMethod("LogicUI")> _

Public Sub CallLogicUserInterface()

If AcPs = Nothing Then

AcPs = New Autodesk.AutoCAD.Windows.PaletteSet("Logic User Interface", New Guid("{3AD1B2B3-8194-4FA9-B91E-91BBB45279E3}"))

AcPs.Style = Autodesk.AutoCAD.Windows.PaletteSetStyles.ShowCloseButton

UIClass = New LogicUI

AcPs.Add("Logic UI", UIClass)

AcPs.Size = New Drawing.Size(200, 700)

End If

AcPs.Visible = False : AcPs.Visible = True

AcPs.WindowState = Autodesk.AutoCAD.Windows.Window.State.Normal

AcPs.Dock = Autodesk.AutoCAD.Windows.DockSides.Left

End Sub

Public Sub Initialize() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Initialize

CallLogicUserInterface()

End Sub

Public Sub Terminate() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Terminate

AcPs = Nothing

AcPs.Dispose()

End Sub

End Class

Click Event in the userform :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim cl As Class1 = New Class1

cl.CreateLine()

End Sub

Cad function :

Public Sub CreateLine()

Dim ed As Editor = App.DocumentManager.MdiActiveDocument.Editor

Dim db As Database = HostApplicationServices.WorkingDatabase

Using tr As Transaction = db.TransactionManager.StartTransaction

Dim ppr As PromptPointResult = ed.GetPoint(vbLf & "Specify base point")

Dim pt1 As Point3d = ppr.Value

ppr = ed.GetPoint(vbLf & "Specify next point")

Dim pt2 As Point3d = ppr.Value

Dim acLine As Line = New Line(pt1, pt2)

Dim btr As BlockTableRecord = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite)

btr.AppendEntity(acLine)

tr.AddNewlyCreatedDBObject(acLine, True)

tr.Commit()

End Using

End Sub

Re: Interaction between userform and model space

Balaji_Ram — Tue, 17 Nov 2015 10:28:43 GMT

Hello Abu,

Please try this :

http://adndevblog.typepad.com/autocad/2013/03/use-of-windowfocus-in-autocad-2014.html

Regards,

Balaji

Re: Interaction between userform and model space

Keith.Brown — Tue, 17 Nov 2015 13:04:16 GMT

I would also add that it might be better if you put your logic to draw the line inside of a command and then have your button call the command. This will give your power users the opportunity to use the keyboard instead of using your form if they want.

Re: Interaction between userform and model space

Anonymous — Wed, 18 Nov 2015 09:05:45 GMT

@Balaji_Ram wrote:
Hello Abu,

Please try this :
http://adndevblog.typepad.com/autocad/2013/03/use-of-windowfocus-in-autocad-2014.html

Regards,
Balaji

Hi Balaji,

This use for Autocad 2014 and above. Mine is 2013 version.

Sorry not inform this before

Re: Interaction between userform and model space

Anonymous — Wed, 18 Nov 2015 09:28:03 GMT

@Keith.Brown wrote:
I would also add that it might be better if you put your logic to draw the line inside of a command and then have your button call the command. This will give your power users the opportunity to use the keyboard instead of using your form if they want.

Thanks for the idea keith. I'll do it that way then