Visual LISP, AutoLISP and General Customization
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Best methodology to use for font selection...

4 REPLIES 4
Reply
Message 1 of 5
Anonymous
331 Views, 4 Replies

Best methodology to use for font selection...

I am writing an application and would like incorporatate the Text Style
dialog box similar to the way the dimstyle dialog box does...
but you cannot run an autocad command when dcl is running and a dialog
is active...
is this possible ?
4 REPLIES 4
Message 2 of 5
Anonymous
in reply to: Anonymous

Hi Mike

Hide the dialog box during execute the command.

Cheers
--
Juerg Menzi
MENZI ENGINEERING GmbH, Switzerland
http://www.menziengineering.ch
Message 3 of 5
Anonymous
in reply to: Anonymous

Mike

Maybe this snipplet can help you how to do:

- snip
(setq NxtDlg 3
Dcl_Id (load_dialog "MyDclFile")
)
(while (> NxtDlg 1)
(new_dialog "MyDclSection" Dcl_Id)
...
(action_tile "showtxtstyle" "(done_dialog 2)")
(action_tile "accept" "(DoTheAcceptStuff) (done_dialog 0)")
(action_tile "cancel" "(DoTheCancelStuff) (done_dialog 0)")
(setq NxtDlg (start_dialog))
(if (= NxtDlg 2)
(command ...)
)
(unload_dialog Dcl_Id)
)
- snip

Cheers
--
Juerg Menzi
MENZI ENGINEERING GmbH, Switzerland
http://www.menziengineering.ch
Message 4 of 5
Anonymous
in reply to: Anonymous

Oops... must be:

- snip
(setq NxtDlg 3
Dcl_Id (load_dialog "MyDclFile")
)
(while (> NxtDlg 1)
(new_dialog "MyDclSection" Dcl_Id)
...
(action_tile "showtxtstyle" "(done_dialog 2)")
(action_tile "accept" "(DoTheAcceptStuff) (done_dialog 0)")
(action_tile "cancel" "(DoTheCancelStuff) (done_dialog 0)")
(setq NxtDlg (start_dialog))
(if (= NxtDlg 2)
(command ...)
)
)
(unload_dialog Dcl_Id)
- snip

Cheers
--
Juerg Menzi
MENZI ENGINEERING GmbH, Switzerland
http://www.menziengineering.ch
Message 5 of 5
Anonymous
in reply to: Anonymous

I have done this before... I was hoping not to have to hide the dialog.

"Jürg Menzi" wrote:

> Oops... must be:
>
> - snip
> (setq NxtDlg 3
> Dcl_Id (load_dialog "MyDclFile")
> )
> (while (> NxtDlg 1)
> (new_dialog "MyDclSection" Dcl_Id)
> ...
> (action_tile "showtxtstyle" "(done_dialog 2)")
> (action_tile "accept" "(DoTheAcceptStuff) (done_dialog 0)")
> (action_tile "cancel" "(DoTheCancelStuff) (done_dialog 0)")
> (setq NxtDlg (start_dialog))
> (if (= NxtDlg 2)
> (command ...)
> )
> )
> (unload_dialog Dcl_Id)
> - snip
>
> Cheers
> --
> Juerg Menzi
> MENZI ENGINEERING GmbH, Switzerland
> http://www.menziengineering.ch

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report

”Boost