请教高手一下哪个地方有问题！

cunshangkan

(DEFUN C:11 ()
  (SETVAR "CMDECHO" 0)
         (SETQ S1 (SSGET "X" '( (0 . "LINE")(62."cyan") (8 . "0") (6 . "CENTER2")))
         
         (SETQ S2 (SSGET "X" '( (0 . "LINE")(62."White") (8 . "0") (6 . "CONT...UOUS")))
         (SETQ S3 (SSGET "X" '( (0 . "LINE")(62."cyan") (8 . "0") (6 . "DASHED2")))
         (SETQ S4 (SSGET "X" '( (0 . "LINE")(62."cyan") (8 . "0") (6 . "PHANTOM2")))



       (cond  
           (S1) (COMMAND "_CHPROP" S1 "" "LA" "01_CENTER" "C" "BYLAYER" "LT" "BYLAYER" "")
           (S2)(COMMAND "_CHPROP" S2 "" "LA" "01_OUTLINE" "C" "BYLAYER" "LT" "BYLAYER" "")
           (S3)(COMMAND "_CHPROP" S3 "" "LA" "01_HIDE" "C" "BYLAYER" "LT" "BYLAYER" "")
           (S4)(COMMAND "_CHPROP" S4 "" "LA" "01_CHECK" "C" "BYLAYER" "LT" "BYLAYER" "")
 
           )  
 
(SETVAR "CMDECHO" 1)
  (PRINC)
)

liu_kunlun

如果你仅处理最先满足条件的,则改为:
(cond 
           (S1  (COMMAND "_CHPROP" S1 "" "LA" "01_CENTER" "C" "BYLAYER" "LT" "BYLAYER" ""))
           (S2  (COMMAND "_CHPROP" S2 "" "LA" "01_OUTLINE" "C" "BYLAYER" "LT" "BYLAYER" ""))
           (S3  (COMMAND "_CHPROP" S3 "" "LA" "01_HIDE" "C" "BYLAYER" "LT" "BYLAYER" ""))
           (S4  (COMMAND "_CHPROP" S4 "" "LA" "01_CHECK" "C" "BYLAYER" "LT" "BYLAYER" ""))
           (T)
 )
如果有的你都要处理,则去掉COND结构,改为:
  (IF S1  (COMMAND "_CHPROP" S1 "" "LA" "01_CENTER" "C" "BYLAYER" "LT" "BYLAYER" ""))
  (IF S2  (COMMAND "_CHPROP" S2 "" "LA" "01_OUTLINE" "C" "BYLAYER" "LT" "BYLAYER" ""))
  (IF S3  (COMMAND "_CHPROP" S3 "" "LA" "01_HIDE" "C" "BYLAYER" "LT" "BYLAYER" ""))
  (IF S4  (COMMAND "_CHPROP" S4 "" "LA" "01_CHECK" "C" "BYLAYER" "LT" "BYLAYER" ""))