为什么参数太少？？？

aicr317

(DEFUN C:pma()  (SETQ DCL_ID (LOAD_DIALOG "aaa")) 
 (NEW_DIALOG "aaa" DCL_ID) 

 (ACTION_TILE "accept" "(S_RECT)(DONE_DIALOG)") 
 (START_DIALOG)(UNLOAD_DIALOG) 

 (PRINC))

(DEFUN S_RECT()
(setq fff (atoi (get_tile "pma_type")))
(if (>= fff 0)
(progn
(cond ((= 0 fff)
           (setq kkk (get_tile "pma_pn"))
           (ALERT (STRCAT KKK "YES"))
           )
            ((= 1 fff)
          (setq kkk (get_tile "pma_pn"))
         (ALERT (STRCAT KKK "NO"))
            )
    )))        

 )
(c:pma)

aicr317

DCL如下

dcl_settings : default_dcl_settings { audit_level = 3; }

aaa : dialog {
    label = "PMA系统";
    : boxed_row {
        label = "打印信息";
        mnemonic = "???";
        : edit_box {
            label = "打印张数";
            key = "pma_pn";
         
        }
        : popup_list {
            label = "纸张类型";
        
            key = "pma_type";
           
            list = "白图\n硫酸纸";
        }
    }
    ok_only;
}

ghost435

参数传递的问题？

yucpp

问题解决，修改后代码如下：

(DEFUN C:pma ()
  (SETQ DCL_ID (LOAD_DIALOG "aaa"))
  (NEW_DIALOG "aaa" DCL_ID)
  (ACTION_TILE "accept" "(S_RECT)(DONE_DIALOG)")
  (START_DIALOG)
  (UNLOAD_DIALOG DCL_ID)

  (PRINC)
)

(DEFUN S_RECT ()
  (setq fff (atoi (get_tile "pma_type")))
  (if (>= fff 0)
    (progn
      (cond ((= 0 fff)
      (setq kkk (get_tile "pma_pn"))
      (ALERT (STRCAT KKK "YES"))
     )
     ((= 1 fff)
      (setq kkk (get_tile "pma_pn"))
      (ALERT (STRCAT KKK "NO"))
     )
      )
    )
  )
)

dgygs

我也遇到这个问题，学习了！