选择集创建之后自动加载就提示选择集为空，请问怎么解决

CAD2222

(defun GGBJYS()
          (setvar "cmdecho" 0)                        ;取消系统回响
          (setq osm (getvar "osmode"))                ;取消二维捕捉
          (setvar "osmode" 0)
            (setq 3dosm (getvar "3dosmode"))        ;取消三维捕捉
          (setvar "3dosmode" 0)
        (setq dyn (getvar "DYNMODE"))                ;取消动态输入
          (setvar "DYNMODE" -3)
          (command "_ucs" "")

        ;更改标注样式
          (setq p1 (list (car p0) (cadr p0) (caddr p0)))                                                        ;选择集坐标点
          (setq p2 (list (+ (car p0) w) (cadr p0) (caddr p0)))
          (setq p3 (list (+ (car p0) w) (cadr p0) (+ (caddr p0) h)))
          (setq p4 (list (+ (car p0) w) (+ (cadr p0) d) (+ (caddr p0) h)))
          (setq p5 (list (car p0) (+ (cadr p0) d) (+ (caddr p0) h)))
          (setq p6 (list (car p0) (+ (cadr p0) d) (caddr p0)))
          (setq p7 (list (car p0) (cadr p0) (+ (caddr p0) h)))
          (setq p8 (list (+ (car p0) w) (+ (cadr p0) d) (caddr p0)))


          (if (= xnst 1)(setq ss (ssget "cp" (list p1 p2 p3 p4 p5 p6))))                                        ;创建选择集
        (if (= dnst 1)(setq ss (ssget "cp" (list p2 p8 p4 p5 p7 p1))))

          ;判断更改标注样式
        (cond                                                                                                ;标注样式
                  ((= bjys 0)(setq ggbjys "0.1三維"))
                ((= bjys 1)(setq ggbjys "0.2三維"))
                ((= bjys 2)(setq ggbjys "0.3三維"))
                ((= bjys 3)(setq ggbjys "0.4三維"))
                ((= bjys 4)(setq ggbjys "0.5三維"))
                ((= bjys 5)(setq ggbjys "0.6三維"))
                ((= bjys 6)(setq ggbjys "0.7三維"))
                ((= bjys 7)(setq ggbjys "0.8三維"))
                ((= bjys 8)(setq ggbjys "0.9三維"))
                ((= bjys 9)(setq ggbjys "10三維"))
                ((= bjys 10)(setq ggbjys "11三維"))
                ((= bjys 11)(setq ggbjys "12三維"))
                ((= bjys 12)(setq ggbjys "13三維"))
                ((= bjys 13)(setq ggbjys "14三維"))
                ((= bjys 14)(setq ggbjys "15三維"))
                ((= bjys 15)(setq ggbjys "16三維"))
                ((= bjys 16)(setq ggbjys "17三維"))
                ((= bjys 17)(setq ggbjys "18三維"))
                ((= bjys 18)(setq ggbjys "19三維"))
                ((= bjys 19)(setq ggbjys "20三維"))
                ((= bjys 20)(setq ggbjys "21三維"))
                ((= bjys 21)(setq ggbjys "22三維"))
                ((= bjys 22)(setq ggbjys "23三維"))
                ((= bjys 23)(setq ggbjys "24三維"))
                ((= bjys 24)(setq ggbjys "25三維"))
                (t (setq ggbjys "Standard"))       
        )                                                                       

          (setq n 0)                                                                                        ;循环
          (repeat (sslength ss)                                                                                ;循环函数
                  (setq ent (ssname ss n))                                                                ;获得图元
                  (setq ent_data (entget ent))                                                                ;获得图元属性列表
                  (setq ent_type (cdr (assoc 0 ent_data)))                                                ;获得图元类型
                  (if (= ent_type "DIMENSION")                                                                ;判断图元类型是否为标注
                          (progn
                                  (setq bj ggbjys)                                                        ;修改原标注样式
                                  (setq ent_data (subst (cons 3 bj) (assoc 3 ent_data) ent_data))                ;更新图元属性列表
                                  (entmod ent_data)                                                        ;更新图元属
                         )
                  )
                  (setq n (1+ n))
         )

        (setq n 0)                                                                                        ;循环
          (repeat (sslength ss)                                                                                 ;循环函数
                  (setq ent (ssname ss n))                                                                ;获得图元
                  (setq ent_data (entget ent))                                                                ;获得图元属性列表
                  (setq ent_type (cdr (assoc 0 ent_data)))                                                ;获得图元类型
                  (if (= ent_type "LWPOLYLINE")                                                                ;判断图元类型是否为标注
                          (progn
                                  (setq ent_data (subst (cons 6 "ACAD_ISO04W100") (assoc 42 ent_data) ent_data))        ;更新图元属性列表
                                  (entmod ent_data)                                                                ;更新图元
                                  (setq ent_data (subst (cons 43 5) (assoc 43 ent_data) ent_data))
                                  (entmod ent_data)
                                  (setq ent_data (subst (cons 62 5) (assoc 41 ent_data) ent_data))
                                  (entmod ent_data)
                         )
                  )
                  (setq n (1+ n))
         )

           (setvar "osmode" osm)                ;恢复二维捕捉
        (setvar "3dosmode" 3dosm)        ;恢复三维捕捉
          (setvar "DYNMODE" dyn)                ;恢复动态输入
   (princ)
)

huangpc27

好东西分享的吗