Lisp option

[ROBP]

The instruction found in the DH04 DCL tell you to hit the right mouse button to bring the dialog box back up, change settings or exit from there.

 

Can that command line be added to the posted code of mine please feel free to add it so it does work and please do not foget to add your name as a contributor in it also i appreciate it, ypur name must be shown in any dialog box keep me posted

[ymg3]

Robert,

 

Study that section of code from dhv0.4.lsp

 

(if BUTTON
   (progn
     (DH_CUS)
     (while
       (if (/= (setq INPT (getpoint "\nSpecify head insertion point: ")) nil)
         (progn
           (setq IANG (getpoint INPT "\nDrag cursor to select head orientation angle.")
                 INPT (trans INPT 1 0)
                 IANG (trans IANG 1 0))
           (DH_CUS)
           (DH_SSP))))
     (DH_MF)))

 

Also see the assignment of variable button with the done_dialog command.

 

Above either pressing "enter" or "right-click" sends you back to the DCL.

 

ymg

[ROBP]

Robert,

 

Study that section of code from dhv0.4.lsp

 

(if BUTTON
   (progn
     (DH_CUS)
     (while
       (if (/= (setq INPT (getpoint "\nSpecify head insertion point: ")) nil)
         (progn
           (setq IANG (getpoint INPT "\nDrag cursor to select head orientation angle.")
                 INPT (trans INPT 1 0)
                 IANG (trans IANG 1 0))
           (DH_CUS)
           (DH_SSP))))
     (DH_MF)))

 

Also see the assignment of variable button with the done_dialog command.

 

Above either pressing "enter" or "right-click" sends you back to the DCL.

 

ymg

 

Can those command lines be added to the posted code of mine please feel free to add it so it does work and please do not foget to add your name as a contributor in it also i appreciate it, your name must be shown in any dialog boxes etheir in DCL or in acknowlegement dialog embeded in the lisp keep me posted

[ymg3]

Robert,

 

In order to test we would need the dcl file.

 

What is the command to start your program ??

 

All you need to do is to put your proggie in a while loop

 

In your program would be:

(while  (= ddiag 2)
  (cond
     .....
     .....
  );end of cond
  (cuv); here you restart
);end of while

 

After each different routine in the cond

you need to retart the dialog.

 

Remove the (if (= ddiag 1)

 

You will exit for any value other than 2

 

ymg

[ROBP]

Robert,

 

In order to test we would need the dcl file.

 

What is the command to start your program ??

 

All you need to do is to put your proggie in a while loop

 

In your program would be:

(while  (= ddiag 2)
  (cond
     .....
     .....
  );end of cond
  (cuv); here you restart
);end of while

 

After each different routine in the cond

you need to retart the dialog.

 

Remove the (if (= ddiag 1)

 

You will exit for any value other than 2

 

ymg

 

DCL can be sent along with slides files

command is dev

i can send an e-mail if you want to test it and make the necessary corrections to it and take part of the project as long as you add your name in a dialog box for acknowledgment like the one in DH_V0.4

[ymg3]

Robert,

 

For address check your private mail

 

ymg

[ROBP]

Robert,

 

For address check your private mail

 

ymg

 

ok files sent