您好,我正在努力理解这里的一些Lisp程序的东西。如果你愿意的话,请用红色解释一下
- ;;;;AUTOLISP CODING STARTS HERE
- (prompt "\nType WSIPart to run.....")
- (defun C:InsP ()
- ;;;--- Load the WSI Part DCL file
- (setq dcl_id (load_dialog "InsP.dcl")) [b][color=Red];;;I'm assuming this sets dcl_id to InsP dialog box.[/color][/b]
- ;;;---Load the dialog Definition if it is not already loaded
- (if (not (new_dialog "InsP" dcl_id)) [b][color=Red];;; I dont' understand this at all. [/color][/b]
- (exit )
- );;;close if statment, i think I get the rest
- (start_list "lvl1" 3)
- (mapcar 'add_list lvl1)
- (end_list)
- (action_tile "insert"
- "(done_dialog)"
- );;; close action_tile
- (start_dialog)
- (unload_dialog dcl_id)
- (princ)
- );;;; close defun
- (princ)
- ;;;;AUTOLISP CODING ENDS HERE
|