大神帮忙看下

ferious

(defun c:ddd()
   (setvar "cmdecho" 0)
   (setq pt (getpoint "\n 选择标注基点平齐点"))
   (setq ptx (car pt))
   (setq pty (cadr pt))
   (command "DIMLINEAR")
   (setq en (entlast))

   (setq zongbiao (entget  en))

                  (setq oldzibiao1 (assoc 13 zongbiao))
                  (setq oldzibiao2 (assoc 14 zongbiao))
                           (setq pt1 (cdr oldzibiao1))
                           (setq pt2 (cdr oldzibiao2))
                          (setq pt1X1 (car pt1))
                          (setq pt1Y1 (cadr pt1))
                          (setq pt2X1 (car pt2))
                          (setq pt2Y1 (cadr pt2))

                          (setq newpt1  (list  pt1X1  pty (caddr pt1)))
                          (setq newpt2  (list  pt2X1  pty (caddr pt2)))

                          (setq newzibiao1 (cons 13 newpt1 ))
                          (setq newzibiao2 (cons 14 newpt2 ))

                          (setq zongbiao (subst newzibiao1  oldzibiao2  zongbiao ))
                          (setq zongbiao (subst newzibiao2  oldzibiao2  zongbiao ))
                         (entmod zongbiao)

  (prin1)
  )

ferious

飞雪神光

1. (defun c:ddd(/ en newpt1 newpt2 newzibiao1 newzibiao2 oldzibiao1 oldzibiao2 pt pt1 pt1x1 pt1y1 pt2 pt2x1 pt2y1 ptx pty zongbiao)
   
2.         (setvar "cmdecho" 0)
   
3.         (setq pt (getpoint "\n 选择标注基点平齐点:"))
   
4.         (setq ptx (car pt))
   
5.         (setq pty (cadr pt))
   
6.         (command "DIMLINEAR")
   
7.         (while (not (zerop (getvar "cmdactive")))(command pause))
   
8.         (setq en (entlast))
   
9.         (setq zongbiao (entget en))
   
10.         (setq oldzibiao1 (assoc 13 zongbiao))
    
11.         (setq oldzibiao2 (assoc 14 zongbiao))
    
12.         (setq pt1 (cdr oldzibiao1))
    
13.         (setq pt2 (cdr oldzibiao2))
    
14.         (setq pt1X1 (car pt1))
    
15.         (setq pt1Y1 (cadr pt1))
    
16.         (setq pt2X1 (car pt2))
    
17.         (setq pt2Y1 (cadr pt2))
    
18.         (setq newpt1 (list pt1X1 pty (caddr pt1)))
    
19.         (setq newpt2 (list pt2X1 pty (caddr pt2)))
    
20.         (setq newzibiao1 (cons 13 newpt1))
    
21.         (setq newzibiao2 (cons 14 newpt2))
    
22.         (setq zongbiao (subst newzibiao1 oldzibiao1 zongbiao))
    
23.         (setq zongbiao (subst newzibiao2 oldzibiao2 zongbiao))
    
24.         (entmod zongbiao)
    
25.         (princ)
    
26. )

(defun c:ddd(/ en newpt1 newpt2 newzibiao1 newzibiao2 oldzibiao1 oldzibiao2 pt pt1 pt1x1 pt1y1 pt2 pt2x1 pt2y1 ptx pty zongbiao)<br />         (setvar "cmdecho" 0)<br />         (setq pt (getpoint "\n 选择标注基点平齐点:"))<br />         (setq ptx (car pt))<br />         (setq pty (cadr pt))<br />         (command "DIMLINEAR")<br />         (while (not (zerop (getvar "cmdactive")))(command pause))<br />         (setq en (entlast))<br />         (setq zongbiao (entget en))<br />         (setq oldzibiao1 (assoc 13 zongbiao))<br />         (setq oldzibiao2 (assoc 14 zongbiao))<br />         (setq pt1 (cdr oldzibiao1))<br />         (setq pt2 (cdr oldzibiao2))<br />         (setq pt1X1 (car pt1))<br />         (setq pt1Y1 (cadr pt1))<br />         (setq pt2X1 (car pt2))<br />         (setq pt2Y1 (cadr pt2))<br />         (setq newpt1 (list pt1X1 pty (caddr pt1)))<br />         (setq newpt2 (list pt2X1 pty (caddr pt2)))<br />         (setq newzibiao1 (cons 13 newpt1))<br />         (setq newzibiao2 (cons 14 newpt2))<br />         (setq zongbiao (subst newzibiao1 oldzibiao1 zongbiao))<br />         (setq zongbiao (subst newzibiao2 oldzibiao2 zongbiao))<br />         (entmod zongbiao)<br />         (princ)<br /> )

ferious

多谢，后面有一处错误，还有局部变量，帮忙改了，能不能解释一下 (while (not (zerop (getvar "cmdactive")))(command pause))