动态引线标注（改版）

Bellahx

冒昧的在楼主的基础上进行了修改，希望不要介意。
因为我们作图的要求是白色字，绿色线。 而且每个图比例不同，需要的大小也不同。
修改过后，字高2.5，按照当前标注比例的全局比例进行修改，线为绿色，字为白色。

;;;动态引线标注
;;;支持线上下写字，字体由当前字体决定
;;;字高2.5，按标注比例标注
;;;字为白色，线为绿色
;;;作者：明经958620832
;;;修改：Bella             命令：bz          日期：2014年04月

(defun bz (/ *error* name1 name2 name3)
    (defun *error* (msg)                ;将描述错误的字符串存入变量msg
        (entdel name1)
        (entdel name2)
        (if name3
            (entdel name3)
        )
        (princ "错误: ")
        (princ msg)
    )                                        ;打印错误信息
    (setq Scale (getvar "dimscale"));
    (setq ty (getvar "TEXTSTYLE"))
    (setq kd1 (caadr (textbox (list '(0 . "text")
                                    (cons 1 txt1)
                                    (cons 40 (* 2.5 Scale))
                                    (cons 41 1)
                                    (cons 7 ty)
                                    (cons 62 7)
                              )
                     )
              )
    )
                                        ;字高2.5*当前比例，字宽高比1，可以自己设置，字体为当前字体
    (setq kd2 (caadr (textbox (list '(0 . "text")
                                    (cons 1 txt2)
                                    (cons 40 (* 2.5 Scale))
                                    (cons 41 1)
                                    (cons 7 ty)
                                    (cons 62 7)
                              )
                     )
              )
    )
                                        ;字高2.5*当前比例，字宽高比1，可以自己设置，字体为当前字体
    (setq kd (max kd1 kd2)
          kd (+ kd (* 0.50 Scale))
    )
    (setq p (getpoint "\n输入基点:"))
    (setq pd t)
    (while pd
        (setq gr   (grread t 4 1)
              mode (car gr)
              pt   (cadr gr)
        )
        (if (= kd3 0)
            (setq kd kd1)
        )
        (if (and (listp pt) (>= (car pt) (car p)))
            (progn
                (setq p0 (polar pt 0 kd))
                (setq p1 (polar pt 0 (/ (- kd kd1) 2))
                      p1 (polar p1 (angtof "90") (* 0.70 Scale))
                )
                (setq p2 (polar pt 0 (/ (- kd kd2) 2))
                      p2 (polar p2 (angtof "270") (* 3.20 Scale))
                )
            )
        )
        (if (and (listp pt) (< (car pt) (car p)))
            (progn
                (setq p0 (polar pt pi kd))
                (setq p1 (polar p0 0 (/ (- kd kd1) 2))
                      p1 (polar p1 (angtof "90") (* 0.70 Scale))
                )
                (setq p2 (polar p0 0 (/ (- kd kd2) 2))
                      p2 (polar p2 (angtof "270") (* 3.20 Scale))
                )
            )
        )
        (if (= mode 5)
            (progn
                (if name1
                    (entdel name1)
                )
                (entmake (list '(0 . "LWPOLYLINE")
                               '(100 . "AcDbEntity")
                               '(100 . "AcDbPolyline")
                               '(90 . 3)
                               (cons 10 p)
                               (cons 10 pt)
                               (cons 10 p0)
                               (cons 62 3)
                         )
                )
                (setq name1 (entlast))
                (if name2
                    (entdel name2)
                )
                (entmake (list '(0 . "text")
                               (cons 1 txt1)
                               (cons 40 (* 2.5 Scale))
                               (cons 41 1)
                               (cons 10 p1)
                               (cons 7 ty)(cons 62 7)
                         )
                )
                                        ;字高2.5*当前比例，字宽高比1，可以自己设置，字体为当前字体
                (setq name2 (entlast))
                (if name3
                    (entdel name3)
                )
                (if (= kd3 1)
                    (entmake (list '(0 . "text")
                                   (cons 1 txt2)
                                   (cons 40 (* 2.5 Scale))
                                   (cons 41 1)
                                   (cons 10 p2)
                                   (cons 7 ty)(cons 62 7)
                             )
                    )
                )
                                        ;字高2.5*当前比例，字宽高比1，可以自己设置，字体为当前字体
                (if (= kd3 1)
                    (setq name3 (entlast))
                )
            )
        )
        (if (= mode 3)
            (setq pd nil)
        )
        (if (or (= mode 2) (= mode 25))
            (progn (setq pd nil)
                   (entdel name1)
                   (entdel name2)
                   (if name3
                       (entdel name3)
                   )
            )
        )
    )
    (princ)
)

(defun getdata ()
    (setq txt1 (get_tile "a1"))
    (setq txt2 (get_tile "a2"))
    (if        (= (get_tile "a3") "0")
        (setq kd3 0)
        (setq kd3 1)
    )
)

(defun c:bz ()
                                        ;(步骤1)建立临时对话框
    (setq tempname (vl-filename-mktemp "temp.dcl")
          filen           (open tempname "w")
    )
    (foreach stream
             '("yxbz:dialog{"
               "\n  label = "
               动态引线标注
               ";"
               "\n  :edit_box {key = \"a1\"; label = \"线上文字:\"; width = 40 ;}"
               "\n  :toggle {key = \"a3\"; label = \"增加线下文字\"; value = "
               0
               ";}"
               "\n  :edit_box {key = \"a2\"; label = \"线下文字:\"; width = 40; is_enabled = false;}"
               "\n  ok_cancel;}"
              )
        (princ stream filen)
    )
    (close filen)
    (setq dclname tempname)
                                        ;(步骤2)加载并显示对话框
    (setq dcl_re (load_dialog dclname))
    (if        (not (new_dialog "yxbz" dcl_re))
        (exit)
    )
                                        ;(步骤3)定义对话框控件（运用set_tile、action_tile、mode_tile、get_tile等函数）
    (if        txt1
        (set_tile "a1" txt1)
        (set_tile "a1" "动态标注")
    )
    (if        txt2
        (set_tile "a2" txt2)
        (set_tile "a2" "动态标注")
    )
    (if        kd3
        (set_tile "a3" (rtos kd3))
    )                                        ;注意set_tile函数中赋值均为字符串（带双引号），就连关键词也要加上双引号。
    (if        (= kd3 0)
        (mode_tile "a2" 1)
    )
    (if        (= kd3 1)
        (mode_tile "a2" 0)
    )
    (action_tile
        "a3"
        "(if (= (get_tile \"a3\") \"0\") (mode_tile \"a2\" 1) (mode_tile \"a2\" 0))"
    )                                        ;点击时才起作用
    (action_tile "accept" "(getdata)(done_dialog 1)")
    (action_tile "cancel" "(done_dialog)")
                                        ;(步骤4)激活并卸载对话框，并进行对话框隐藏后的操作。
    (setq std (start_dialog))
    (unload_dialog dcl_re)
    (vl-file-delete dclname)
    (if        (= std 1)
        (bz)
    )
    (princ)
)

lucas_3333

Bellahx 发表于 2014-4-10 10:52
冒昧的在楼主的基础上进行了修改，希望不要介意。
因为我们作图的要求是白色字，绿色线。 而且每个图比例不 ...

楼主如果能改成在DCL中直接设字高就好了

Bellahx

lucas_3333 发表于 2014-4-17 01:30
楼主如果能改成在DCL中直接设字高就好了

试着改了一下，我这边测没什么大问题，有点小问题希望大家指点。
1.在输入字高不合法的时候怎么直接报错跳出程序。
2.在对话框中输入后不能直接回车进行下一步，只能点击确认按钮，如果能的话会方便很多。
（再次，弱弱的希望楼主不要介意修改你的代码，一起学习）

1. ;;;动态引线标注
   
2. ;;;支持线上下写字，字体由当前字体决定
   
3. ;;;字高2.5，按标注比例标注
   
4. ;;;字为白色，线为绿色
   
5. ;;;作者：明经958620832
   
6. ;;;修改：             命令：yxbz          日期：2014年04月
   
7. 
   
8. (defun bz (/ *error* name1 name2 name3)
   
9.     (defun *error* (msg)    ;将描述错误的字符串存入变量msg
   
10.   (entdel name1)
    
11.   (entdel name2)
    
12.   (if name3
    
13.       (entdel name3)
    
14.   )
    
15.   (princ "错误: ")
    
16.   (princ msg)
    
17.     )          ;打印错误信息
    
18.    
    
19.     (setq ty (getvar "TEXTSTYLE"))
    
20.     (setq ht (atof txtht))
    
21.     (if (= ht 0)
    
22.   (progn
    
23.   (prompt "字高为0!")
    
24.   (terpri)
    
25.   );progn
    
26.   );if
    
27.     (setq Scale (/ ht 2.5));
    
28.     (setq kd1 (caadr (textbox (list '(0 . "text")
    
29.             (cons 1 txt1)
    
30.             (cons 40 ht)
    
31.             (cons 41 1)
    
32.             (cons 7 ty)
    
33.             (cons 62 7)
    
34.             )
    
35.          )
    
36.         )
    
37.     )
    
38.           ;字高ht，字宽高比1，可以自己设置，字体为当前字体
    
39.     (setq kd2 (caadr (textbox (list '(0 . "text")
    
40.             (cons 1 txt2)
    
41.             (cons 40 ht)
    
42.             (cons 41 1)
    
43.             (cons 7 ty)
    
44.             (cons 62 7)
    
45.             )
    
46.          )
    
47.         )
    
48.     )
    
49.           ;字高ht，字宽高比1，可以自己设置，字体为当前字体
    
50.     (setq kd (max kd1 kd2)
    
51.     kd (+ kd (* 0.50 Scale))
    
52.     )
    
53.     (setq p (getpoint "\n输入基点:"))
    
54.     (setq pd t)
    
55.     (while pd
    
56.   (setq gr   (grread t 4 1)
    
57.         mode (car gr)
    
58.         pt   (cadr gr)
    
59.   )
    
60.   (if (= kd3 0)
    
61.       (setq kd kd1)
    
62.   )
    
63.   (if (and (listp pt) (>= (car pt) (car p)))
    
64.       (progn
    
65.     (setq p0 (polar pt 0 kd))
    
66.     (setq p1 (polar pt 0 (/ (- kd kd1) 2))
    
67.           p1 (polar p1 (angtof "90") (* 0.70 Scale))
    
68.     )
    
69.     (setq p2 (polar pt 0 (/ (- kd kd2) 2))
    
70.           p2 (polar p2 (angtof "270") (* 3.20 Scale))
    
71.     )
    
72.       )
    
73.   )
    
74.   (if (and (listp pt) (< (car pt) (car p)))
    
75.       (progn
    
76.     (setq p0 (polar pt pi kd))
    
77.     (setq p1 (polar p0 0 (/ (- kd kd1) 2))
    
78.           p1 (polar p1 (angtof "90") (* 0.70 Scale))
    
79.     )
    
80.     (setq p2 (polar p0 0 (/ (- kd kd2) 2))
    
81.           p2 (polar p2 (angtof "270") (* 3.20 Scale))
    
82.     )
    
83.       )
    
84.   )
    
85.   (if (= mode 5)
    
86.       (progn
    
87.     (if name1
    
88.         (entdel name1)
    
89.     )
    
90.     (entmake (list '(0 . "LWPOLYLINE")
    
91.              '(100 . "AcDbEntity")
    
92.              '(100 . "AcDbPolyline")
    
93.              '(90 . 3)
    
94.              (cons 10 p)
    
95.              (cons 10 pt)
    
96.              (cons 10 p0)
    
97.              (cons 62 3)
    
98.        )
    
99.     )
    
100.     (setq name1 (entlast))
     
101.     (if name2
     
102.         (entdel name2)
     
103.     )
     
104.     (entmake (list '(0 . "text")
     
105.              (cons 1 txt1)
     
106.              (cons 40 ht)
     
107.              (cons 41 1)
     
108.              (cons 10 p1)
     
109.              (cons 7 ty)(cons 62 7)
     
110.        )
     
111.     )
     
112.           ;字高ht，字宽高比1，可以自己设置，字体为当前字体
     
113.     (setq name2 (entlast))
     
114.     (if name3
     
115.         (entdel name3)
     
116.     )
     
117.     (if (= kd3 1)
     
118.         (entmake (list '(0 . "text")
     
119.            (cons 1 txt2)
     
120.            (cons 40 ht)
     
121.            (cons 41 1)
     
122.            (cons 10 p2)
     
123.            (cons 7 ty)(cons 62 7)
     
124.            )
     
125.         )
     
126.     )
     
127.           ;字高ht，字宽高比1，可以自己设置，字体为当前字体
     
128.     (if (= kd3 1)
     
129.         (setq name3 (entlast))
     
130.     )
     
131.       )
     
132.   )
     
133.   (if (= mode 3)
     
134.       (setq pd nil)
     
135.   )
     
136.   (if (or (= mode 2) (= mode 25))
     
137.       (progn (setq pd nil)
     
138.        (entdel name1)
     
139.        (entdel name2)
     
140.        (if name3
     
141.            (entdel name3)
     
142.        )
     
143.       )
     
144.   )
     
145.     )
     
146.     (princ)
     
147. )
     
148. 
     
149. (defun getdata ()
     
150.     (setq txt1 (get_tile "a1"))
     
151.     (setq txt2 (get_tile "a2"))
     
152.     (if  (= (get_tile "a3") "0")
     
153.   (setq kd3 0)
     
154.   (setq kd3 1)
     
155.     )
     
156.     (setq txtht(get_tile "a4"))
     
157. )
     
158. 
     
159. (defun c:yxbz ()
     
160.           ;(步骤1)建立临时对话框
     
161.     (setq tempname (vl-filename-mktemp "temp.dcl")
     
162.     filen     (open tempname "w")
     
163.     )
     
164.     (foreach stream
     
165.        '("yxbz:dialog{"
     
166.          "\n  label = "
     
167.          动态引线标注
     
168.          ";"
     
169.          "\n  :edit_box {key = \"a1\"; label = \"线上文字:\"; width = 40 ;}"
     
170.          "\n  :toggle {key = \"a3\"; label = \"增加线下文字\"; value = "
     
171.          0
     
172.          ";}"
     
173.          "\n  :edit_box {key = \"a2\"; label = \"线下文字:\"; width = 40; is_enabled = false;}"
     
174.          "\n  :edit_box {key = \"a4\"; label = \"文字高度:\"; width = 20; }"
     
175.          "\n  ok_cancel;}"
     
176.         )
     
177.   (princ stream filen)
     
178.     )
     
179.     (close filen)
     
180.     (setq dclname tempname)
     
181.           ;(步骤2)加载并显示对话框
     
182.     (setq dcl_re (load_dialog dclname))
     
183.     (if  (not (new_dialog "yxbz" dcl_re))
     
184.   (exit)
     
185.     )
     
186.           ;(步骤3)定义对话框控件（运用set_tile、action_tile、mode_tile、get_tile等函数）
     
187.     (if  txt1
     
188.   (set_tile "a1" txt1)
     
189.   (set_tile "a1" "动态标注")
     
190.     )
     
191.     (if  txt2
     
192.   (set_tile "a2" txt2)
     
193.   (set_tile "a2" "动态标注")
     
194.     )
     
195.     (if  kd3
     
196.   (set_tile "a3" (rtos kd3))
     
197.     )          ;注意set_tile函数中赋值均为字符串（带双引号），就连关键词也要加上双引号。
     
198.     (if  (= kd3 0)
     
199.   (mode_tile "a2" 1)
     
200.     )
     
201.     (if  (= kd3 1)
     
202.   (mode_tile "a2" 0)
     
203.     )
     
204.     (if  txtht
     
205.   (set_tile "a4" txtht)
     
206.   (set_tile "a4" "2.5")
     
207.     )
     
208.     (action_tile
     
209.   "a3"
     
210.   "(if (= (get_tile \"a3\") \"0\") (mode_tile \"a2\" 1) (mode_tile \"a2\" 0))"
     
211.     )          ;点击时才起作用
     
212.     (action_tile "accept" "(getdata)(done_dialog 1)")
     
213.     (action_tile "cancel" "(done_dialog)")
     
214.           ;(步骤4)激活并卸载对话框，并进行对话框隐藏后的操作。
     
215.     (setq std (start_dialog))
     
216.     (unload_dialog dcl_re)
     
217.     (vl-file-delete dclname)
     
218.     (if  (= std 1)
     
219.   (bz)
     
220.     )
     
221.     (princ)
     
222. )

;;;动态引线标注<br /> ;;;支持线上下写字，字体由当前字体决定<br /> ;;;字高2.5，按标注比例标注<br /> ;;;字为白色，线为绿色<br /> ;;;作者：明经958620832<br /> ;;;修改：             命令：yxbz          日期：2014年04月<br /> <br /> (defun bz (/ *error* name1 name2 name3)<br />     (defun *error* (msg)    ;将描述错误的字符串存入变量msg<br />   (entdel name1)<br />   (entdel name2)<br />   (if name3<br />       (entdel name3)<br />   )<br />   (princ "错误: ")<br />   (princ msg)<br />     )          ;打印错误信息<br />     <br />     (setq ty (getvar "TEXTSTYLE"))<br />     (setq ht (atof txtht))<br />     (if (= ht 0)<br />   (progn <br />   (prompt "字高为0!")<br />   (terpri)<br />   );progn<br />   );if<br />     (setq Scale (/ ht 2.5));<br />     (setq kd1 (caadr (textbox (list '(0 . "text")<br />             (cons 1 txt1)<br />             (cons 40 ht)<br />             (cons 41 1)<br />             (cons 7 ty)<br />             (cons 62 7)<br />             )<br />          )<br />         )<br />     )<br />           ;字高ht，字宽高比1，可以自己设置，字体为当前字体<br />     (setq kd2 (caadr (textbox (list '(0 . "text")<br />             (cons 1 txt2)<br />             (cons 40 ht)<br />             (cons 41 1)<br />             (cons 7 ty)<br />             (cons 62 7)<br />             )<br />          )<br />         )<br />     )<br />           ;字高ht，字宽高比1，可以自己设置，字体为当前字体<br />     (setq kd (max kd1 kd2)<br />     kd (+ kd (* 0.50 Scale))<br />     )<br />     (setq p (getpoint "\n输入基点:"))<br />     (setq pd t)<br />     (while pd<br />   (setq gr   (grread t 4 1)<br />         mode (car gr)<br />         pt   (cadr gr)<br />   )<br />   (if (= kd3 0)<br />       (setq kd kd1)<br />   )<br />   (if (and (listp pt) (>= (car pt) (car p)))<br />       (progn<br />     (setq p0 (polar pt 0 kd))<br />     (setq p1 (polar pt 0 (/ (- kd kd1) 2))<br />           p1 (polar p1 (angtof "90") (* 0.70 Scale))<br />     )<br />     (setq p2 (polar pt 0 (/ (- kd kd2) 2))<br />           p2 (polar p2 (angtof "270") (* 3.20 Scale))<br />     )<br />       )<br />   )<br />   (if (and (listp pt) (< (car pt) (car p)))<br />       (progn<br />     (setq p0 (polar pt pi kd))<br />     (setq p1 (polar p0 0 (/ (- kd kd1) 2))<br />           p1 (polar p1 (angtof "90") (* 0.70 Scale))<br />     )<br />     (setq p2 (polar p0 0 (/ (- kd kd2) 2))<br />           p2 (polar p2 (angtof "270") (* 3.20 Scale))<br />     )<br />       )<br />   )<br />   (if (= mode 5)<br />       (progn<br />     (if name1<br />         (entdel name1)<br />     )<br />     (entmake (list '(0 . "LWPOLYLINE")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbPolyline")<br />              '(90 . 3)<br />              (cons 10 p)<br />              (cons 10 pt)<br />              (cons 10 p0)<br />              (cons 62 3)<br />        )<br />     )<br />     (setq name1 (entlast))<br />     (if name2<br />         (entdel name2)<br />     )<br />     (entmake (list '(0 . "text")<br />              (cons 1 txt1)<br />              (cons 40 ht)<br />              (cons 41 1)<br />              (cons 10 p1)<br />              (cons 7 ty)(cons 62 7)<br />        )<br />     )<br />           ;字高ht，字宽高比1，可以自己设置，字体为当前字体<br />     (setq name2 (entlast))<br />     (if name3<br />         (entdel name3)<br />     )<br />     (if (= kd3 1)<br />         (entmake (list '(0 . "text")<br />            (cons 1 txt2)<br />            (cons 40 ht)<br />            (cons 41 1)<br />            (cons 10 p2)<br />            (cons 7 ty)(cons 62 7)<br />            )<br />         )<br />     )<br />           ;字高ht，字宽高比1，可以自己设置，字体为当前字体<br />     (if (= kd3 1)<br />         (setq name3 (entlast))<br />     )<br />       )<br />   )<br />   (if (= mode 3)<br />       (setq pd nil)<br />   )<br />   (if (or (= mode 2) (= mode 25))<br />       (progn (setq pd nil)<br />        (entdel name1)<br />        (entdel name2)<br />        (if name3<br />            (entdel name3)<br />        )<br />       )<br />   )<br />     )<br />     (princ)<br /> )<br /> <br /> (defun getdata ()<br />     (setq txt1 (get_tile "a1"))<br />     (setq txt2 (get_tile "a2"))<br />     (if  (= (get_tile "a3") "0")<br />   (setq kd3 0)<br />   (setq kd3 1)<br />     )<br />     (setq txtht(get_tile "a4"))<br /> )<br /> <br /> (defun c:yxbz ()<br />           ;(步骤1)建立临时对话框<br />     (setq tempname (vl-filename-mktemp "temp.dcl")<br />     filen     (open tempname "w")<br />     )<br />     (foreach stream<br />        '("yxbz:dialog{"<br />          "\n  label = "<br />          动态引线标注<br />          ";"<br />          "\n  :edit_box {key = \"a1\"; label = \"线上文字:\"; width = 40 ;}"<br />          "\n  :toggle {key = \"a3\"; label = \"增加线下文字\"; value = "<br />          0<br />          ";}"<br />          "\n  :edit_box {key = \"a2\"; label = \"线下文字:\"; width = 40; is_enabled = false;}"<br />          "\n  :edit_box {key = \"a4\"; label = \"文字高度:\"; width = 20; }"<br />          "\n  ok_cancel;}"<br />         )<br />   (princ stream filen)<br />     )<br />     (close filen)<br />     (setq dclname tempname)<br />           ;(步骤2)加载并显示对话框<br />     (setq dcl_re (load_dialog dclname))<br />     (if  (not (new_dialog "yxbz" dcl_re))<br />   (exit)<br />     )<br />           ;(步骤3)定义对话框控件（运用set_tile、action_tile、mode_tile、get_tile等函数）<br />     (if  txt1<br />   (set_tile "a1" txt1)<br />   (set_tile "a1" "动态标注")<br />     )<br />     (if  txt2<br />   (set_tile "a2" txt2)<br />   (set_tile "a2" "动态标注")<br />     )<br />     (if  kd3<br />   (set_tile "a3" (rtos kd3))<br />     )          ;注意set_tile函数中赋值均为字符串（带双引号），就连关键词也要加上双引号。<br />     (if  (= kd3 0)<br />   (mode_tile "a2" 1)<br />     )<br />     (if  (= kd3 1)<br />   (mode_tile "a2" 0)<br />     )<br />     (if  txtht<br />   (set_tile "a4" txtht)<br />   (set_tile "a4" "2.5")<br />     )<br />     (action_tile<br />   "a3"<br />   "(if (= (get_tile \"a3\") \"0\") (mode_tile \"a2\" 1) (mode_tile \"a2\" 0))"<br />     )          ;点击时才起作用<br />     (action_tile "accept" "(getdata)(done_dialog 1)")<br />     (action_tile "cancel" "(done_dialog)")<br />           ;(步骤4)激活并卸载对话框，并进行对话框隐藏后的操作。<br />     (setq std (start_dialog))<br />     (unload_dialog dcl_re)<br />     (vl-file-delete dclname)<br />     (if  (= std 1)<br />   (bz)<br />     )<br />     (princ)<br /> )

lucas_3333

Bellahx 发表于 2014-4-17 10:46
试着改了一下，我这边测没什么大问题，有点小问题希望大家指点。
1.在输入字高不合法的时候怎么直接报错 ...

Bellahx 你好！
如果不考虑字高出错的问题，仅仅只需将源程序中的字高通过对话框更改，就像你上面的程序一下，需要更改哪些地方，能不能单独贴出来？谢谢！

Bellahx

lucas_3333 发表于 2014-4-17 11:38
Bellahx 你好！
如果不考虑字高出错的问题，仅仅只需将源程序中的字高通过对话框更改，就像你上面的程序 ...

没太理解你的问题(⊙o⊙)…麻烦详细说一下~

Htian11

好厉害 啊学习了

szx025

如果能在程序中事先写入自己常用的词，标注文字时从事先写入自己常用的词中选择就好了，就是需要程序能读*.txt文件

chenbh2

Bellahx 发表于 2014-4-10 10:52
冒昧的在楼主的基础上进行了修改，希望不要介意。
因为我们作图的要求是白色字，绿色线。 而且每个图比例不 ...

一个疑问是将字宽高比1修改0.7,线在哪里可以修改同步缩短?

photo_cup

很不错...................

夺天工

Bellahx 发表于 2014-4-10 10:52
冒昧的在楼主的基础上进行了修改，希望不要介意。
因为我们作图的要求是白色字，绿色线。 而且每个图比例不 ...

确实好用多了，继续