[编程交流] 条件块插入

(defun c:GT ()
(setq CL (getvar "CLAYER"))
(setq MFR "GLASTENDER")
(setq MODEL "CBA-36L")
(setq ORN (getstring "Enter Orientation [PLAN / ELEV / SIDE / 3D]:"))
(setq MFRMODEL (strcat MFR "_" MODEL "_" ORN))
   (lambda ( nbnm obnm nlyr olyr cmd )
       (cond
             ((not (tblsearch "LAYER" nlyr)) (princ (strcat "\nLayer "" nlyr "" does not exist.")))
             ((not olyr) (princ "\nInvalid "CL" symbol.") )
             ((not (tblsearch "LAYER" olyr)) (princ (strcat "\nLayer "" olyr "" does not exist.")))
             (
               (setvar 'cmdecho 0)(setvar 'clayer nlyr)
               (cond
                     ((not nbnm) (princ "\nInvalid "MFRMODEL" symbol.") )
                     ((tblsearch "BLOCK" nbnm) (not (command "_.INSERT" nbnm "\" "1" "1" "\")) )
                     ((not obnm) (princ "\nInvalid "ORN" symbol.") )
                     ((not (tblsearch "BLOCK" obnm)) (princ (strcat "\nBlock "" obnm "" does not exist.")) )
                     (T (not (command "_.INSERT" obnm "\" "1" "1" "\")) (command "_.RENAME" "block" obnm nbnm) )
           )
               (setvar 'clayer olyr)(setvar 'cmdecho cmd)
           )
       )
           (princ)
     )
   (if (and (eq 'STR (type MFRMODEL)) (snvalid MFRMODEL)) MFRMODEL)
   (cdr (assoc ORN '(("PLAN" . "GTC005P") ("ELEV" . "GTC005E") ("SIDE" . "GTJ011S") ("3D" . "GTC0053"))))
   "QF-EQPM"
   (if (and (eq 'STR (type CL)) (snvalid CL)) CL)
   (getvar 'cmdecho)
)

(defun c:GT ( / CL MFR MODEL ORN MFRMODEL ) [color="green"]; Localise your variables (important)[/color]
[color="green"]  ; Declare the initial variables:[/color]
 (setq CL (getvar "CLAYER"))
 (setq MFR "GLASTENDER")
 (setq MODEL "CBA-36L")
 
 (initget "Plan Elev Side 3D")
 (if (setq ORN (getkword "Enter Orientation [Plan/Elev/Side/3D]:")) [color="green"]; get user input(s)[/color]
   (progn [color="green"]; if the user input(s) are correct, proceed...[/color]
     (setq MFRMODEL (strcat MFR "_" MODEL "_" ORN))
     ; ...
   )[color="green"]; progn[/color]
 )[color="green"]; if[/color]
)[color="green"]; defun [/color]

(set (quote var) value)
(set 'var value)

_$ (boundp 'a)
nil
_$ (set 'a "something")
"something"
_$ (boundp 'a)
T
_$ 

_$ (mapcar 
 (quote (lambda (x) (strcat (strcase x) (strcase x t))))
 (quote ("A" "B" "C" "D" "E"))
)
("Aa" "Bb" "Cc" "Dd" "Ee")
_$ 

(defun c:GT ( / CL MFR MODEL ORN MFRMODEL ) ; Localise your variables (important)
 ; Declare the initial variables:
 (setq CL (getvar "CLAYER"))
 (setq MFR "GLASTENDER")
 (setq MODEL "CBA-36L")
 (initget "Plan Elev Side 3D")
 (if (setq ORN (getkword "Enter Orientation [PLAN/ELEV/SIDE/3D]:")) ; get user input(s)
   (progn ; if the user input(s) are correct, proceed...
     (setq MFRMODEL (strcat MFR "_" MODEL "_" ORN))
     ; ...
   ); progn
 ); if
 (lambda ( nbnm obnm nlyr olyr cmd )
   (cond
     ( (not (tblsearch "LAYER" nlyr)) (princ (strcat "\nLayer "" nlyr "" does not exist.")) )
     ( (not olyr) (princ "\nInvalid "CL" symbol.") )
     ( (not (tblsearch "LAYER" olyr)) (princ (strcat "\nLayer "" olyr "" does not exist.")) )
     (
       (setvar 'cmdecho 0)(setvar 'clayer nlyr)
       (cond
         ( (not nbnm) (princ "\nInvalid "MFRMODEL" symbol.") )
         ( (tblsearch "BLOCK" nbnm) (not (command "_.INSERT" nbnm "\" "1" "1" "\")) )
         ( (not obnm) (princ "\nInvalid "ORN" symbol.") )
         ( (not (tblsearch "BLOCK" obnm)) (princ (strcat "\nBlock "" obnm "" does not exist.")) )
         (T (not (command "_.INSERT" obnm "\" "1" "1" "\")) (command "_.RENAME" "block" obnm nbnm) )
       )
       (setvar 'clayer olyr)(setvar 'cmdecho cmd)
     )
   )
   (princ)
 )
 (if (and (eq 'STR (type MFRMODEL)) (snvalid MFRMODEL)) MFRMODEL)
 (cdr (assoc ORN '(("PLAN" . "GTC005P") ("ELEV" . "GTC005E") ("SIDE" . "GTJ011S") ("3D" . "GTC0053"))))
 "QF-EQPM"
 (if (and (eq 'STR (type CL)) (snvalid CL)) CL)
 (getvar 'cmdecho)
)

(defun C:GT ( / MFR MODEL nlyr olyr cmd vb MFRMODEL ) ; always localise your variables (unless you know what you're doing)
 (if ; main (if) function: (if <User Inputs> <Code do its stuff> <Else print whats wrong>)
   (setq ; Declare the initial variables (assign value to each symbol):
     MFR "GLASTENDER"
     MODEL "CBA-36L"
     nlyr "QF-EQPM"
     olyr (getvar 'clayer)
     cmd (getvar 'cmdecho)
     vb ; get user input (find the orientation and the corresponding block)
     (assoc  
       (progn 
         (initget "Plan Elev Side 3D")
         (getkword "Enter Orientation [Plan/Elev/Side/3D]:")
       ) 
       '(("Plan" . "GTC005P") ("Elev" . "GTC005E") ("Side" . "GTJ011S") ("3D" . "GTC0053"))
     ); assoc
   ); setq
   (progn ; if the user input are correct, proceed...
     (setq MFRMODEL (strcat MFR "_" MODEL "_" (strcase (car vb)))) ; assemble the total name
     (setvar 'cmdecho 0) (if (tblsearch "LAYER" nlyr) (setvar 'clayer nlyr)) ; temporarily change system variables
     (cond
       ( (tblsearch "BLOCK" MFRMODEL) ; if such block exist
         (command "_.INSERT" MFRMODEL "\" "1" "1" "\") ; prompt the user to inser it and exit
       )
       ( (tblsearch "BLOCK" (cdr vb)) ; if MFRMODEL block do not exist, check if a corrseponding block exist
         (and 
           (not (command "_.INSERT" (cdr vb) "\" "1" "1" "\")) ; if a corresponding block exist, prompt to insert it
           (not (command "_.RENAME" "block" (cdr vb) MFRMODEL)) ; if the block is inserted, rename it
         )
       )
       ( (princ (strcat "\nBlocks "" MFRMODEL "" and "" (cdr vb) "" were not found.")) ) ; if none of the blocks were found, display this message
     )
     (setvar 'clayer olyr)(setvar 'cmdecho cmd) ; restore the system variables
   ); progn
   (princ "\nOrientation was not specified.") ; print what went wrong
 ); if
 (princ) ; exit cleanly
); defun