[求助]：更新不了实体,才学东西不是很清楚,麻烦帮忙

ago9999

(defun c:sd (/ bili bilimax bilimin vpt vpt_90 vpt_en var)
  (get_bili)
  (princ "当前视口比例：")
  (princ bili)
  (setq var (getvar "cvport"))
  (setq vpt (ssname (ssget "x" (list (cons 69 var))) 0))
  (setq vpt_en (entget vpt))
  (setq vpt_90 (+ 16384 (cdr (assoc '90 vpt_en))))
  (setq vpt_en (subst (cons '90 vpt_90) (assoc '90 vpt_en) vpt_en))
  (entmod vpt_en)
  (entupd vpt)
  (princ "当前视口已经锁定。")
  (princ)
  )
(defun c:gx1 (/ bili ssget_gx m n ssget_gx_n ssget_gx_en bili_x bili_y bili_z pt0)
  (princ "请选择更新对象")
  (setq ssget_gx (ssget (list (cons 0 "INSERT"))))
  (get_bili)                           (princ "\nbili")(princ bili)
  (setq n 0)
  (while (< n (sslength ssget_gx));+1
    (setq ssget_gx_n (ssname ssget_gx n))             (setq ssget_gx_en (entget ssget_gx_n))         ;(princ "\nssget_gx_en")
    (setq gx_name (cdr (assoc '2 ssget_gx_en)))        (setq bili_x (cdr (assoc '41 ssget_gx_en)))     ;(princ "\nbili_x")(princ bili_x)
    (setq bili_y (cdr (assoc '42 ssget_gx_en)))         (setq bili_z (cdr (assoc '43 ssget_gx_en)))     ;(princ "\nbili_y")
           (or (= gx_name "标高符号")
                            )
       
           (cond(
                 (or
                  (/= bili_x bili )(/= bili_y bili )(/= bili_z bili )
                  )
                  (setq ssget_gx_en (subst (cons '41 bili) (assoc '41 ssget_gx_en) ssget_gx_en));(princ "\nssget_gx_n")(princ ssget_gx_en)
                  (setq ssget_gx_en (subst (cons '42 bili) (assoc '42 ssget_gx_en) ssget_gx_en));(princ "\nssget_gx_n")(princ ssget_gx_en)
                  (setq ssget_gx_en (subst (cons '43 bili) (assoc '43 ssget_gx_en) ssget_gx_en));(princ "\nssget_gx_n")(princ ssget_gx_en)
                  (princ "OK")
                  (entmod ssget_gx_en)
                  (entupd ssget_gx_n)
                  )
                 )
    ))
    (setq n (1+ n))
    )
  (princ)
  )

陌生人

insert恐怕要regon

aeo

(defun c:gx1 (/ bili ssget_gx m n ssget_gx_n ssget_gx_en bili_x bili_y bili_z pt0)
(princ "请选择更新对象")
(setq ssget_gx (ssget (list (cons 0 "INSERT"))))
(get_bili)
-------------------------------------
不知你的(get_bili)怎么写的。
因为bili是局部变量，如果(get_bili)里面的bili再是，肯定就出错了.
(setq bili (get_bili)) :比较好.只要设好(get_bili)的返回值.