求助：坐标标注的检查

liu22737

每个零件通常有三个视图，三个坐标经常搞混，写了个小程式检查。功能简单了

那为大侠在完善一下啊！

(DEFUN C:tt(/ a1 a2 a3 c clr i lst1 lsx_olderr pt s1 ss st ww lsx_newerr)
(setvar "cmdecho" 0)
;;;;;;;;;;;;;;;;;;;;;----------------------
(defun lsx_newerr(msg)
 (if(and ww st)(progn(setq i 0)(repeat(sslength st)(redraw(ssname st i)1)(setq i(1+ i)))));if
 (setq *error* lsx_olderr)
 (command "undo" "e")(command "u")
 (princ)
 );end
(command "undo" "be")
(setq lsx_olderr *error* *error* lsx_newerr)
;;;;;;;;;;;;;;;;;;;;;----------------------
(while t
  (setq ss(ssget":s"))
  (if ss(setq s1(ssget"p"(list'(0 . "DIMENSION")(cons -4 "<OR")'(70 . 38)'(70 . 230)'(70 . 166)'(70 . 102)(cons -4 "OR>"))))(setq s1 nil))
  (while(not s1)
 (setq ss(ssget":s"))
 (if ss(setq s1(ssget"p"(list'(0 . "DIMENSION")(cons -4 "<OR")'(70 . 38)'(70 . 230)'(70 . 166)'(70 . 102)(cons -4 "OR>"))))(setq s1 nil))
    );while
  (setq i 0  c 1 lst1 nil)
  (repeat(sslength s1)
 (setq a1(ssname s1 i)i(1+ i)ss(ssdel a1 ss)a1(entget a1 '("ACAD"))pt(cdr(assoc 10 a1))a2(assoc -3 a1));setq
 (if(setq clr(assoc pt lst1))(setq clr (cdr clr))(setq clr c c(1+ c)lst1(cons(cons pt clr)lst1)));if
 (if a2
   (setq a3(cadr a2)
  a3(vl-remove(cons 1002 "}")a3)
  a3(append a3(list'(1070 . 69)'(1070 . 2)'(1070 . 70)(cons 1070 clr)(cons 1002 "}")))
  a1(subst(list -3 a3)(assoc -3 a1)a1))
   (setq a1(cons(list -3(list"ACAD"(cons 1000"DSTYLE")(cons 1002"{")'(1070 . 69)'(1070 . 2)'(1070 . 70)(cons 1070 clr)(cons 1002"}")))a1))
  );if;
 (entmod a1)
   );repeat
  (setq i 0 ww t st ss)(repeat(sslength ss)(redraw(ssname ss i)2)(setq i(1+ i)))
 );while
(if(and ww st)(progn(setq i 0 ww nil)(repeat(sslength ss)(redraw(ssname ss i)1)(setq i(1+ i)))));if
);end

liu22737

如何判别 坐标标注？

70代码都是多少？