[编程交流] 错误

(defun c:Test(/ activedoc newsset ssets ssnm)
(vl-load-com)
   (setq activedoc(vla-get-activedocument (vlax-get-acad-object)))
(setq ssets(vla-get-selectionsets activedoc))
(setq newsset(vla-add ssets "ss1"))
(vla-selectonscreen newsset)
(setq cntr 0)
(repeat (vla-get-count newsset)
    (setq iteam(vla-item newsset cntr))
        (setq check(vlax-property-available-p item "Color" t))
        (if check
           (vlax-put-property item "color" 4 )
        )
    (setq cntr(1+ cntr))
  )
   
 )

[color="red"]; error: Automation Error. The named selection set exists[/color]

(vla-delete(vla-item ssets "ss1"))

(defun c:Test (/ activedoc newsset ssets ssnm)
     (vl-load-com)
     (setq activedoc (vla-get-activedocument (vlax-get-acad-object)))
     (setq ssets (vla-get-selectionsets activedoc))
     [color="blue"](if (not (vl-catch-all-error-p
                    (setq exs (vl-catch-all-apply
                                    'vla-item
                                    (list ssets "ss1")
                                    ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of vl-catch-all-error-p
              ) ;_ end of not
           (vla-delete exs)
           ) ;_ end of if[/color]
     (setq newsset (vla-add ssets "ss1"))
     (vla-selectonscreen newsset)
     (setq cntr 0)
     (repeat (vla-get-count newsset)
           (setq [b][color="red"]item[/color][/b] (vla-item newsset cntr))
           (setq check (vlax-property-available-p item "Color" t))
           (if check
                 (vlax-put-property item "color" 4)
                 ) ;_ end of if
           (setq cntr (1+ cntr))
           ) ;_ end of repeat
     )

(defun c:test ( / ssc sso )
   (setq ssc (vla-get-selectionsets (vla-get-activedocument (vlax-get-acad-object))))
   (if (vl-catch-all-error-p (setq sso (vl-catch-all-apply 'vla-item (list ssc "ss1"))))
       (setq sso (vla-add ssc "ss1"))
       (vla-clear sso)
   )
   (vla-selectonscreen sso)
   (vlax-for obj sso (vla-put-color obj accyan))
   (vla-delete sso)
   (princ)
)
(vl-load-com)