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

CAD2222 · 发表于 2020-8-13 19:13:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(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 · 发表于 2020-8-14 08:08:13

好东西分享的吗

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。