ActiveDocument.Utility.Prompt

How come this doesn't prompt anything to the command window when I run the
macro from a lisp function?


ActiveDocument.Utility.Prompt "UCSFollow is " & IIf(val, "On", "Off") &
vbCrLf


Calling Lisp Routine:

(defun C:UF0 () (vl-vbarun "ToggleUCSFollow.FOff") (princ))

When I run the macro directly from the VBA IDE it displays the proper
prompt, but not when I enter UF0 at the command prompt.

Running from within the VBA IDE:
Command:
Command: UCSFollow is Off
UCSFollow is On
UCSFollow is Off
UCSFollow is On

Just running from lisp:
Command: (vl-vbarun "ToggleUCSFollow.FOff")
"ToggleUCSFollow.FOff"

Running the UF0 command:
Command:
UF0
Command: uf0

Command: move

Select objects:

 

Call AcadApplication.Update after the call to Prompt()

 

It only appears to work when cmdecho is set, see screen copy below:

Command: cmdecho

Enter new value for CMDECHO <0>: 1

Command: _.-VBARUN
Macro name: ToggleUCSFollow.FOff
UCSFollow is Off

Command:
Command:
Command: _.-VBARUN
Macro name: ToggleUCSFollow.FOn
UCSFollow is On

Command:
Command:
Command: cmdecho

Enter new value for CMDECHO <1>: 0

Command:
Command:
Command:
Command: cmdecho

Enter new value for CMDECHO <0>: 1

Command: _.-VBARUN
Macro name: ToggleUCSFollow.FOn
UCSFollow is On

Command:
Command:
Command: _.-VBARUN
Macro name: ToggleUCSFollow.FOff
UCSFollow is Off

Command:
Command:

 

I've had similar problems, the prompts show up fine when you call it straight from the IDE or using vbarun, but when called from a lisp you get garbage.Try using this technique.

(defun c:test()
(vla-runmacro
(vlax-get-acad-object) "c:/test.dvb!module.macro")
(princ)
)

Hope that helps.
Matthew Corbin

 

Thanks!
But where is (vla-runmacro ..) documented? Or is it? I can't find it in
Developer Documentation.

 

The vla- functions come from the ActiveX interface, and therefore are
documented in the ActiveX and VBA Reference. IOW, that function is using the
RunMacro method of the Application object.

--
R. Robert Bell


Thanks!
But where is (vla-runmacro ..) documented? Or is it? I can't find it in
Developer Documentation.

 

Using the RunMacro method from LISP will work, but you need
to remember that you can't hide a VB dialog to get input from
the Command line in that case, so if there's any need for it,
this is not the way to go.

Perhaps this might work:

Public Sub Prompt(Msg As String)
Dim OldCmdEcho As Short
With ThisDrawing
OldCmdEcho = .GetVariable("CMDECHO")
.SetVariable "CMDECHO", 1
.Utility.Prompt Msg
.SetVariable "CMDECHO" OldCmdEcho
End With
End Sub