[编程交流] 子功能放置

(defun C:test  ( / subfunction ) ;will release the sub-function from memory.
                                ;; if sub-function isn't declared then it will be global
                                ;; but this routine must be called first before the other
                                ;; routines can call it.
                                                                 
(subfunction)
(functions)
)
by doing this one below
(subfunction) ; by making this global any of you routine can call this function
(defun C:test2 ()
(subfunction)
)
(defun C:test3 ()
(subfunction)
)

(defun c:TESTALIAS ( / *error* massoc ent elist typ laypipe layalias laycolor alias)
 (while (setq ent (entsel "\nSelect CADmep object: "))
   (progn
     (setq elist (entget (car ent))
             typ (cdr (assoc 0 elist))
     )
     (if (= typ "MAPS_SOLID")             
       (progn
         (setq laypipe (cdr (assoc 8 elist))
              layalias (strcat laypipe "-TEXT")
              laycolor (cdr (assoc 62 (tblsearch "LAYER" laypipe)))
                 alias (nth 4 (massoc 300 elist))
         )
         (if (null (tblsearch "LAYER" layalias))
           (progn
             (entmake (list '(0 . "LAYER")
                            '(100 . "AcDbSymbolTableRecord")
                            '(100 . "AcDbLayerTableRecord")
                             (cons 2 layalias)
                            '(70 . 0)
                             (cons 62 laycolor)
                            '(6 . "Continuous")
                            '(290 . 1)
                            '(370 . 25)
                      )
             )
             (setvar "clayer" layalias)
           )
           (setvar "clayer" layalias)
         )
         (command "mleader" pause pause alias)
       )
       (prompt "\nNot a CADmep object.")
     )
   )
 )
 (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun *error* (msg)
 (if (not (member msg '("Function cancelled" "quit / exit abort")))
     (princ (strcat "\nError: " msg))
 )
 (princ)
)
(defun massoc ( key lst / item )
 (if (setq item (assoc key lst))
     (cons (cdr item) (massoc key (cdr (member item lst))))
 )
)

(defun massoc ( key lst / item )
 (if (setq item (assoc key lst))
     (cons (cdr item) ([b]massoc[/b] key (cdr (member item lst))))
 )
)