[编程交流] 在逗号外调用函数

(Defun FUNCTION (reply)
(SETQ reply (ACET-UI-MESSAGE        "Content of questionbox" "Title of questionbox"
                                (+ Acet:YESNO Acet:ICONQuestion)
                )
)
)

(Defun c:command ()
(defun FUNCTION ( / a)
  (do something)
)
(FUNCTION (and do something with that function))
)

(Defun FUNCTION (reply)
(SETQ reply (ACET-UI-MESSAGE        "Content of questionbox" "Title of questionbox"
                                (+ Acet:YESNO Acet:ICONQuestion)
                )
)
)
(Defun c:CallFunction1 ()
FUNCTION
)
(Defun c:CallFunction2 ()
FUNCTION
)
(Defun c:CallFunction3 ()
FUNCTION
)

(defun FUNCTION ( / )
(setq reply (ACET-UI-MESSAGE "Choose dude " "Russells Dialog" (+ Acet:YESNO Acet:ICONQuestion)))
;; Yes = 6, No = 7
(if (= reply 6)
        (progn
                (ALERT "Yep")
        )
        (progn
                (ALERT "Nope")
        )
)
)
(defun C:CallFunction1 ( / )
(FUNCTION)
(princ)
)
(defun C:CallFunction2 ( / )
(FUNCTION)
(princ)
)
(defun C:CallFunction3 ( / )
(FUNCTION)
(princ)
)
(princ)

(defun TESTCOMMAND ( number / )
(setq reply (ACET-UI-MESSAGE "Choose dude " "Russells Dialog" (+ Acet:YESNO Acet:ICONQuestion)))
;; Yes = 6, No = 7
(if (= reply 6)
        (progn
                (cond
                        ((= number 1)
                                (princ "Voorwaarden voor CallFunction1")
                        )
                        ((= number 2)
                                (princ "Voorwaarden voor CallFunction2")
                        )
                        ((= number 3)
                                (princ "Voorwaarden voor CallFunction3")
                        )
                )
        )
        (progn
                (princ "NO, annuleren.")
        )
)
)
(defun C:CallFunction1 ( / )
(TESTCOMMAND 1)
(princ)
)
(defun C:CallFunction2 ( / )
(TESTCOMMAND 2)
(princ)
)
(defun C:CallFunction3 ( / )
(TESTCOMMAND 3)
(princ)
)
(princ)

(defun TESTCOMMAND ( number / )
(setq reply (ACET-UI-MESSAGE "Choose dude " "Russells Dialog" (+ Acet:YESNO Acet:ICONQuestion)))
;; Yes = 6, No = 7
(if (= reply 6)
        (progn
                (cond
                        ((= number 1)
                                (princ "Voorwaarden voor CallFunction1")
                        )
                        ((= number 2)
                                (princ "Voorwaarden voor CallFunction2")
                        )
                        ((= number 3)
                                (princ "Voorwaarden voor CallFunction3")
                        )
                )
        )
        (progn
                (princ "NO, annuleren.")
        )
)
)
(defun C:CallFunction1 ( / )
(TESTCOMMAND 1)
(princ)
)
(defun C:CallFunction2 ( / )
(TESTCOMMAND 2)
(princ)
)
(defun C:CallFunction3 ( / )
(TESTCOMMAND 3)
(princ)
)
(princ)