画分轴线号的程序

szx025

2. ;;;;-----------------轴线号----------------
   
3. (defun c:zxh (/ ap lp ku p1 p2 p3 txt)
   
4.   ;;保存系统变量设置
   
5.   (setq    old_os    (getvar "osmode")
   
6.     old_cmd    (getvar "cmdecho")
   
7.   )
   
8.   (setq cl (getvar "clayer"))
   
9.   (setvar "cmdecho" 0)
   
10.   (setvar "osmode" 33)
    
11.   (if (not (tblsearch "layer" "轴线"))
    
12.     (command "-layer" "m" "轴线" "c" "7" "" "")
    
13.   )
    
14.   (while (setq ap (getpoint "\n 第一点<退出>: "))
    
15.   (setvar "orthomode" 1);_开
    
16.     (initget 1)
    
17.     (setq lp (getpoint ap " 第二点: "))
    
18.     (setvar "clayer" "轴线")
    
19.     (setvar "osmode" 0)
    
20.     (setq ku (angle ap lp))
    
21.     (setq p1 (polar lp ku 500))
    
22.     ;;圆心
    
23.     (setq p2 (polar p1 (* 1.2 pi) 300))
    
24.     ;;文字起点
    
25.     (setq p3 (polar p1 (* 1.8 pi) 300))
    
26.     ;;文字终点
    
27.     (command "._line" ap lp "")
    
28.     (command "._circle" p1 500)
    
29.     (setq txt (strcase (getstring "\n 输入文字<A>: ")))
    
30.     (if    (= txt "")
    
31.       (setq txt "A")
    
32.     )
    
33.     (if    (not (tblsearch "style" "hz"))
    
34.       (command "_style"         "hz"       "romanc.shx,hztxt.shx "
    
35.            "0.0"         "1"       ""         ""
    
36.            ""         ""
    
37.           )
    
38.     )
    
39.     (command "._text" "j" "f" p2 p3 500 txt)
    
40.     (setvar "osmode" 33)
    
41.   )
    
42.   ;;恢复系统变量设置
    
43.   (setvar "cmdecho" old_cmd)
    
44.   (setvar "osmode" old_os)
    
45.   (setvar "clayer" cl)
    
46.   (setq *error* olderr)
    
47.   (princ)

;;;;-----------------轴线号---------------- <br /> (defun c:zxh (/ ap lp ku p1 p2 p3 txt) <br />   ;;保存系统变量设置 <br />   (setq    old_os    (getvar "osmode") <br />     old_cmd    (getvar "cmdecho") <br />   ) <br />   (setq cl (getvar "clayer")) <br />   (setvar "cmdecho" 0) <br />   (setvar "osmode" 33) <br />   (if (not (tblsearch "layer" "轴线")) <br />     (command "-layer" "m" "轴线" "c" "7" "" "") <br />   ) <br />   (while (setq ap (getpoint "\n 第一点<退出>: ")) <br />   (setvar "orthomode" 1);_开<br />     (initget 1) <br />     (setq lp (getpoint ap " 第二点: ")) <br />     (setvar "clayer" "轴线") <br />     (setvar "osmode" 0) <br />     (setq ku (angle ap lp)) <br />     (setq p1 (polar lp ku 500)) <br />     ;;圆心 <br />     (setq p2 (polar p1 (* 1.2 pi) 300)) <br />     ;;文字起点 <br />     (setq p3 (polar p1 (* 1.8 pi) 300)) <br />     ;;文字终点 <br />     (command "._line" ap lp "") <br />     (command "._circle" p1 500) <br />     (setq txt (strcase (getstring "\n 输入文字<A>: "))) <br />     (if    (= txt "") <br />       (setq txt "A") <br />     ) <br />     (if    (not (tblsearch "style" "hz")) <br />       (command "_style"         "hz"       "romanc.shx,hztxt.shx " <br />            "0.0"         "1"       ""         "" <br />            ""         "" <br />           ) <br />     ) <br />     (command "._text" "j" "f" p2 p3 500 txt) <br />     (setvar "osmode" 33) <br />   ) <br />   ;;恢复系统变量设置 <br />   (setvar "cmdecho" old_cmd) <br />   (setvar "osmode" old_os) <br />   (setvar "clayer" cl) <br />   (setq *error* olderr) <br />   (princ)

图1是上面这个程序画的，有高手可以再搞个图2这样的程序吗

ivde

自己做个块

szx025

在图1程序的基础上做出图2的程序，不要做块

ivde

费劲