求助高手指点关于标注反向修改LISP程式，有的时候可以用，有的时又不能用的问题

zzwpress

;====坐标标注反向====;
(defun c:qr(/ en en_data name assoc10_old assoc11_old assoc13_old assoc14_old assoc42 pt10_old pt11_old pt13_old pt14_old
       dimsize ptx pty pt11_new pt14_new assoc11_new assoc14_new)
  (OSMODE 0)                         ;====捕捉控制0 16383的程式====;
  (setq en(entsel"\n->选取标注对象"));====选取标注对象====;
  (setq en_data(entget(car en)))     ;====取得列表属性====;
  (setq name(cdr(assoc 0 en_data)))  ;====取得图元类型名称====;
  (if(= name "DIMENSION")
     (progn(setq assoc10_old (assoc 10 en_data))
           (setq assoc11_old (assoc 11 en_data));====取得文字位置点属性列表====;
           (setq assoc13_old (assoc 13 en_data));====取得标注点属性列表====;
           (setq assoc14_old (assoc 14 en_data));====取得标注点属性列表====;
           (setq assoc42 (assoc 42 en_data))    ;====取得标注实测属性列表====;
           (setq pt10_old(cdr assoc10_old) pt11_old(cdr assoc11_old)
   pt13_old(cdr assoc13_old) pt14_old(cdr assoc14_old));====取得定义点的坐标值====;
           (setq dimsize(cdr assoc42))
           (setq ptx (-(car pt13_old)(car pt10_old)) pty (-(cadr pt13_old)(cadr pt10_old)))
           (cond((and(= dimsize ptx)(>(cadr pt14_old)(cadr pt13_old)));====条件标注为X坐标且坐标为向上标注====;
   (progn(setq pt11_new (polar pt11_old (* pi 1.5)(*(-(cadr pt11_old)(cadr pt13_old))2))
               pt14_new (polar pt14_old (* pi 1.5)(*(-(cadr pt14_old)(cadr pt13_old))2)))
                       (setq assoc11_new (cons 11 pt11_new)  assoc14_new (cons 14 pt14_new))
                       (setq en_data(subst assoc11_new assoc11_old en_data))
                       (setq en_data(subst assoc14_new assoc14_old en_data))
         (entmod en_data) ) )
         ((and(= dimsize ptx)(<(cadr pt14_old)(cadr pt13_old)));====条件标注为X坐标且坐标为向下标注====;
                 (progn(setq pt11_new (polar pt11_old (* pi 0.5)(*(-(cadr pt13_old)(cadr pt11_old))2))
               pt14_new (polar pt14_old (* pi 0.5)(*(-(cadr pt13_old)(cadr pt14_old))2)))
                       (setq assoc11_new (cons 11 pt11_new)  assoc14_new (cons 14 pt14_new))
                       (setq en_data(subst assoc11_new assoc11_old en_data))
                       (setq en_data(subst assoc14_new assoc14_old en_data))
         (entmod en_data) ) )
  ((and(= dimsize pty)(>(car pt14_old)(car pt13_old)));====条件标注为Y坐标且坐标为向右标注====;
                 (progn(setq pt11_new (polar pt11_old pi(*(-(cadr pt11_old)(cadr pt13_old))2))
               pt14_new (polar pt14_old pi(*(-(cadr pt14_old)(cadr pt13_old))2)))
         (setq assoc11_new (cons 11 pt11_new)  assoc14_new (cons 14 pt14_new))
                       (setq en_data(subst assoc11_new assoc11_old en_data))
                       (setq en_data(subst assoc14_new assoc14_old en_data))
         (entmod en_data) ) )
  ((and(= dimsize pty)(<(car pt14_old)(car pt13_old)));====条件标注为Y坐标且坐标为向左标注====;
                 (progn(setq pt11_new (polar pt11_old 0(*(-(cadr pt13_old)(cadr pt11_old))2))
               pt14_new (polar pt14_old 0(*(-(cadr pt13_old)(cadr pt14_old))2)))
         (setq assoc11_new (cons 11 pt11_new)  assoc14_new (cons 14 pt14_new))
                       (setq en_data(subst assoc11_new assoc11_old en_data))
                       (setq en_data(subst assoc14_new assoc14_old en_data))
         (entmod en_data) ) ) )
           )(alert"选择的不是标注对象"))
  (OSMODE 16383)(princ))

流星蔡园

顶一下，遇到同样的问题！

前生