[求助]：我编写的标注程序打开捕捉时会出现标注重叠，关闭捕捉不会，程序该怎么修改？

xxming

(defun C:zbbz( / old_textsize zb gd cld )
  (setvar "modemacro" "坐标标注程序键入zbbz执行，程序设计：小谢")
  (setq o_cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "UNDO" "BE")
  (setq o_os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq o_bl (getvar "blipmode"))
  (setvar "blipmode" 0)
  (setq o_dz (getvar "dimzin"))
  (initget 4)
  (setvar "dimzin" 0)
  (setq old_textsize (getvar "textsize"))
  (setq gd (getreal (strcat "指定标注文字高度:<" (rtos old_textsize 2) ">")))
  (if (= gd nil) (setq gd old_textsize))
  (setq old_jd 3)
  (setq jd (getint (strcat "\n指定坐标精度:<"(rtos old_jd 2 ) ">")))
  (if (= jd nil) (setq jd old_jd))
  (while (setq zb (getpoint "指定坐标点："))
  (setq cld(getpoint  zb  "指定标注位置："))
  (setq len (max(strlen (strcat "x=" (rtos(cadr zb)2 jd)))
                (strlen (strcat "y=" (rtos(car zb) 2 jd)))
            )   
  )
(setq x (strcat "x=" (rtos(cadr zb)2 jd)))
(setq y (strcat "y=" (rtos(car zb)2 jd)))
  (setq ang (angle zb cld))
  (command "line")
  (command (list (car zb)  (cadr zb)))
  (command (list (car cld) (cadr cld)))
  (command "")
  

  (if (or (and (>= (* (/ ang pi) 180) 0) (<= (* (/ ang pi) 180) 90))
          (and (>= (* (/ ang pi) 180) 270) (<= (* (/ ang pi) 180) 360))
      )
   (progn
   (command "line")
   (command (list (car cld) (cadr cld)))
   (command (list (+ (car cld) (* gd len 0.8)) (cadr cld)))
   (command "")
   (setq ptx (list (car cld) (+ (cadr cld) (/ gd 1.5))))
   (setq pty (list (car cld) (- (cadr cld) (/ gd 1.5))))
   (command "text" "ml" ptx gd "0" x)
   (command "text" "ml" pty gd "0" y)   
   );end progn
  (progn  
   (command "line")
   (command (list (car cld) (cadr cld)))
   (command (list (- (car cld) (* len gd 0.8)) (cadr cld)))
   (command "")            
   (setq ptx (list (- (car cld) (* gd len 0.8))  (+ (cadr cld) (/ gd 1.5))))
   (setq pty (list (- (car cld) (* gd len 0.8))  (- (cadr cld) (/ gd 1.5))))   
   (command "text" "ml" ptx gd "0" x)
   (command "text" "ml" pty gd "0" y)   
  );end progn
);end if
);end while
   ;还原
  (setvar "dimzin" o_dz)
  (setvar "blipmode" o_bl)
  (setvar "osmode" o_os)
  (command "UNDO" "E")
  (setvar "cmdecho" o_cm)
);end defun
(princ)

xyp1964

2. [FONT=courier new](defun C:zbbz (/ old_textsize zb gd cld)
   
3.   (setq        o_cm             (getvar "cmdecho")
   
4.         o_os             (getvar "osmode")
   
5.         o_bl             (getvar "blipmode")
   
6.         o_dz             (getvar "dimzin")
   
7.         old_textsize (getvar "textsize")
   
8.         gd             (getreal
   
9.                        (strcat "指定标注文字高度:<" (rtos old_textsize 2) ">")
   
10.                      )
    
11.   )
    
12.   (setvar "modemacro"
    
13.           "坐标标注程序键入zbbz执行，程序设计：小谢"
    
14.   )
    
15.   (setvar "cmdecho" 0)
    
16.   (setvar "blipmode" 0)
    
17.   (initget 4)
    
18.   (setvar "dimzin" 0)
    
19.   (if (= gd nil)
    
20.     (setq gd old_textsize)
    
21.   )
    
22.   (setq jd (getint "\n指定坐标精度:<3>"))
    
23.   (if (= jd nil)
    
24.     (setq jd 3)
    
25.   )
    
26.   (command "UNDO" "BE")
    
27.   (while (setq zb (getpoint "\n指定坐标点 : "))
    
28.     (setq cld (getpoint zb "\n指定标注位置 : ")
    
29.           len (max (strlen (strcat "x=" (rtos (cadr zb) 2 jd)))
    
30.                    (strlen (strcat "y=" (rtos (car zb) 2 jd)))
    
31.               )
    
32.           x   (strcat "x=" (rtos (cadr zb) 2 jd))
    
33.           y   (strcat "y=" (rtos (car zb) 2 jd))
    
34.           ang (angle zb cld)
    
35.     )
    
36.     (setvar "osmode" 0)
    
37.     (command "line")
    
38.     (command (list (car zb) (cadr zb)))
    
39.     (command (list (car cld) (cadr cld)))
    
40.     (command "")
    
41.     (if        (or (and (>= (* (/ ang pi) 180) 0)
    
42.                  (<= (* (/ ang pi) 180) 90)
    
43.             )
    
44.             (and (>= (* (/ ang pi) 180) 270)
    
45.                  (<= (* (/ ang pi) 180) 360)
    
46.             )
    
47.         )
    
48.       (progn
    
49.         (command "line")
    
50.         (command (list (car cld) (cadr cld)))
    
51.         (command (list (+ (car cld) (* gd len 0.8)) (cadr cld)))
    
52.         (command "")
    
53.         (setq ptx (list (car cld) (+ (cadr cld) (/ gd 1.5)))
    
54.               pty (list (car cld) (- (cadr cld) (/ gd 1.5)))
    
55.         )
    
56.         (command "text" "ml" ptx gd "0" x)
    
57.         (command "text" "ml" pty gd "0" y)
    
58.       )
    
59.       (progn
    
60.         (command "line")
    
61.         (command (list (car cld) (cadr cld)))
    
62.         (command (list (- (car cld) (* len gd 0.8)) (cadr cld)))
    
63.         (command "")
    
64.         (setq ptx (list        (- (car cld) (* gd len 0.8))
    
65.                         (+ (cadr cld) (/ gd 1.5))
    
66.                   )
    
67.               pty (list        (- (car cld) (* gd len 0.8))
    
68.                         (- (cadr cld) (/ gd 1.5))
    
69.                   )
    
70.         )
    
71.         (command "text" "ml" ptx gd "0" x)
    
72.         (command "text" "ml" pty gd "0" y)
    
73.       )
    
74.     )
    
75.     (setvar "osmode" o_os)
    
76.   )
    
77.   (command "UNDO" "E")
    
78.   (setvar "dimzin" o_dz)
    
79.   (setvar "blipmode" o_bl)
    
80.   (setvar "osmode" o_os)
    
81.   (setvar "cmdecho" o_cm)
    
82. )
    
83. (princ)[/FONT]

[FONT=courier new](defun C:zbbz (/ old_textsize zb gd cld)<br />   (setq        o_cm             (getvar "cmdecho")<br />         o_os             (getvar "osmode")<br />         o_bl             (getvar "blipmode")<br />         o_dz             (getvar "dimzin")<br />         old_textsize (getvar "textsize")<br />         gd             (getreal<br />                        (strcat "指定标注文字高度:<" (rtos old_textsize 2) ">")<br />                      )<br />   )<br />   (setvar "modemacro"<br />           "坐标标注程序键入zbbz执行，程序设计：小谢"<br />   )<br />   (setvar "cmdecho" 0)<br />   (setvar "blipmode" 0)<br />   (initget 4)<br />   (setvar "dimzin" 0)<br />   (if (= gd nil)<br />     (setq gd old_textsize)<br />   )<br />   (setq jd (getint "\n指定坐标精度:<3>"))<br />   (if (= jd nil)<br />     (setq jd 3)<br />   )<br />   (command "UNDO" "BE")<br />   (while (setq zb (getpoint "\n指定坐标点 : "))<br />     (setq cld (getpoint zb "\n指定标注位置 : ")<br />           len (max (strlen (strcat "x=" (rtos (cadr zb) 2 jd)))<br />                    (strlen (strcat "y=" (rtos (car zb) 2 jd)))<br />               )<br />           x   (strcat "x=" (rtos (cadr zb) 2 jd))<br />           y   (strcat "y=" (rtos (car zb) 2 jd))<br />           ang (angle zb cld)<br />     )<br />     (setvar "osmode" 0)<br />     (command "line")<br />     (command (list (car zb) (cadr zb)))<br />     (command (list (car cld) (cadr cld)))<br />     (command "")<br />     (if        (or (and (>= (* (/ ang pi) 180) 0)<br />                  (<= (* (/ ang pi) 180) 90)<br />             )<br />             (and (>= (* (/ ang pi) 180) 270)<br />                  (<= (* (/ ang pi) 180) 360)<br />             )<br />         )<br />       (progn<br />         (command "line")<br />         (command (list (car cld) (cadr cld)))<br />         (command (list (+ (car cld) (* gd len 0.8)) (cadr cld)))<br />         (command "")<br />         (setq ptx (list (car cld) (+ (cadr cld) (/ gd 1.5)))<br />               pty (list (car cld) (- (cadr cld) (/ gd 1.5)))<br />         )<br />         (command "text" "ml" ptx gd "0" x)<br />         (command "text" "ml" pty gd "0" y)<br />       )<br />       (progn<br />         (command "line")<br />         (command (list (car cld) (cadr cld)))<br />         (command (list (- (car cld) (* len gd 0.8)) (cadr cld)))<br />         (command "")<br />         (setq ptx (list        (- (car cld) (* gd len 0.8))<br />                         (+ (cadr cld) (/ gd 1.5))<br />                   )<br />               pty (list        (- (car cld) (* gd len 0.8))<br />                         (- (cadr cld) (/ gd 1.5))<br />                   )<br />         )<br />         (command "text" "ml" ptx gd "0" x)<br />         (command "text" "ml" pty gd "0" y)<br />       )<br />     )<br />     (setvar "osmode" o_os)<br />   )<br />   (command "UNDO" "E")<br />   (setvar "dimzin" o_dz)<br />   (setvar "blipmode" o_bl)<br />   (setvar "osmode" o_os)<br />   (setvar "cmdecho" o_cm)<br /> )<br /> (princ)[/FONT]

xxming

由于 程序以前写得较乱，我忘了序程运行中设置捕捉关闭了，谢谢xyp1964 整理程序，