OPENDCL (AUTOCAD): избегайте выхода из диалогового окна моделирования, если нажата кнопка [ENTER]

Question

Я искал способ избежать выхода из немодальных диалогов в autocad (созданный opendcl) при нажатии [ENTER].

Любая идея?

Спасибо, Деннис

Answer 1

Я реализовал такую ​​функцию для системы сетки OpenDCL. Вам нужно активировать функцию OnCancelClose в вашей форме. Вот как я это сделал:

(defun c:MyFunction_Form1_OnCancelClose (Reason /) 
    ;; Reason = 0 when Enter is pressed 
    (if (= Reason 0) 
     (progn 
      ;; Shift active editing cell one row down 
      (setq rowAndCol(dcl_Grid_GetCurCell MyFunction_Form1_revisions)) 
      (dcl_Grid_StartCellEdit MyFunction_Form1_revisions (1+ (car rowAndCol)) (cadr rowAndCol)) 
     ) 
    ) 

    ;; Reason = 1 when ESC key is pressed, or the closing button in the titlebar 
    ;; is clicked. Hence, enter won't work to cancel the dialog 
    (/= Reason 1) 
)