By the way, would you please help me to one question? How to declare the object of DmisDialog? How to use the Dialog2? Your quick reply will be appreciated. Thanks
This code shows how to use the object / function in question to display the Edit Dialog for a command using script.
Sub Main ' 'Display the edit Dialog box For feature CIR1 '=================================== Dim pcd As Object 'PCDLRN.Application Dim cmd As Object 'PCDLRN.Command Dim dlg As Object 'PCDLRN.DmisDialog Dim b As Boolean Set pcd = CreateObject("PCDLRN.Application", "") Set cmd=pcd.ActivePartProgram.Commands("CIR1") b=cmd.Dialog2(dlg) End Sub