如图延伸的命令，如何让程序只正对 123的图层起作用

664571221

(defun c:EE()
    (setvar "EDGEMODE" 1) ;_设置系统变量
    (if        (setq ss(ssget)  ssl(sslength ss) pt(getpoint) )
      (progn
               (setq k 0)
           (repeat        ssl
              (setq en    (ssname ss k)
                              ven   (vlax-ename->vla-object en)
                              p1    (vlax-curve-getClosestPointTo ven pt )
                              k     (1+ k)
                       )
                   ;;调用命令
            (command "_extend" ss "" (list en p1) "")  
                      ;(setq ss(ssget "P"))
             );for
    ) ) ;if
      (princ)
)

evayleung

(SSGET (list '(8 . "123"))
这样吗？