topic Re: Command line height in .NET Forum

Command line height

SRSDS — Wed, 06 Oct 2021 14:40:08 GMT

I want to add an invisible modeless form covering the ribbon to disable it while a command is active.

I have a couple of jigs where I don't know how to safely exit them if the user starts another command.

And I have a palette where I don't wanto to be constantly sending strings to execute.

The only problem is that I don't know how to determine the forms height without knowing the command line height.

acHeight= Application.MainWindow.DeviceIndependentSize.Height

docHeight= Application.DocumentManager.MdiActiveDocument.Window.DeviceIndependentSize.Height

cmdHeight=?

Can anyone help me with this last dimension?

Re: Command line height

norman.yuan — Wed, 06 Oct 2021 18:27:34 GMT

This would one of the most strange solution I can think of, sorry to say that.

In most cases, if not all, if a JIG operation is cancelled/not completed/interrupted, if the entity or entities being JIGed has/have been transformed during the dragging, it/they should be restored back to original conditions. This can be easily achieved by: either using Transaction properly, say, using a transaction to wrap the jig operation and commit or abort it, depending on if the jig is completed or not; or using non-database-residing entity clone for the dragging and leave the database-residing entity unchanged until the jig is done (then use the input from the jig to transform the real entity).

If your jig cannot be safely exited (eg. once it starts, user must complete it, right?), then something is wrong with the jig design (and I bet user would not like it). Add another weird solution on top of it would be waste of effort, IMO. While I do not know how complicated your JIGs are, use should be able to start it and then either complete it, or cancel it, and when cancelled, everything should be returned back to the original conditions as much as possible.

Re: Command line height

SRSDS — Wed, 06 Oct 2021 19:00:18 GMT

Hi Norman.

It is an odd workaround.

Could you help with the jig problem?

If a jig is interrupted by switching documents then it code must role back data added to the Nod.

When trying to access the NOD I get an eNotFromThisDocument error so the MdiActiveDocument must have already been reassigned to the new document. I guess the solution here would be to not add that data until the jigs are complete.

The other thing I was trying was to avoid the sendstringto execute from a pallete. It's sort of garbage on the screen, and I don't want the user to be able to repeat the last command sent.

Re: Command line height

SRSDS — Wed, 06 Oct 2021 20:04:00 GMT

I think it's only this one routine I have an issue with. I'll fix that.

An invisible modal form I thought was a clean way of freezing AutoCAD for long procedures until they complete.

It's the ones that require user input where the modal form is no good and I thought of the modeless form to cover the ribbon and document tabs.

The modal form at least allows me to use a pallete without sendstringtoexecute poluting the commandline.

Re: Command line height

SRSDS — Wed, 06 Oct 2021 20:14:34 GMT

Sorry again.. I'm just looking at it and it will be difficult to fix without being able to access the NOD on a document switch. Multiple jigs with each writing data to the NOD. Is there a way to determine the height of the command window?

Might be an awkward solution but I'm one number away from making it work.

Re: Command line height

SRSDS — Wed, 06 Oct 2021 21:43:11 GMT

I think this is close enough.

Private Sub frmWait_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim rps = Autodesk.AutoCAD.Ribbon.RibbonServices.CreateRibbonPaletteSet() Dim ptApp As System.Windows.Point = Application.MainWindow.DeviceIndependentLocation Dim Scaling As Single = Windows.Forms.Screen.PrimaryScreen.Bounds.Width / Windows.SystemParameters.PrimaryScreenWidth Me.Left = ptApp.X * Scaling Me.Top = ptApp.Y * Scaling Me.Width = Application.MainWindow.DeviceIndependentSize.Width * Scaling If rps.RibbonControl.IsVisible Then Me.Height = (rps.RibbonControl.ActualHeight + 60) * Scaling Else Me.Height = 60 * Scaling End If End Sub