同心圆绘制程序

ggdlove

发一个同心圆绘制程序，功能基本实现，但并不是很完美。
发现一个问题，就是没有办法捕获command出错的具体内容。



于是程序中还有个小问题，就是在点选到同心圆圆心的时候，由于发生半径为0的错误，只有退出了，没有办法捕获该错误，希望有兴趣的可以改进一下，以使他更加的完美。

入门级选手，在此抛砖引玉。

2. ;;*********************************************************************
   
3. ;;同心圆绘制程序                                                      *
   
4. ;;                                                                    *
   
5. ;;*********************************************************************
   
6. (defun C:CC( / err_re cmd_bak err_bak *error* ii tmp_en pt1 pt2 en tmp)
   
7.   ;;定义局部错误处理函数，处理来自command的错误
   
8.   (defun *error*(msg)
   
9.     ;;取消command命令
   
10.     (command)
    
11.     ;;当变量备份中有值的时候，恢复系统变量
    
12.     (and err_bak (setvar "errno" err_bak))
    
13.     (and cmd_bak (setvar "cmdecho" cmd_bak))
    
14.     (princ)
    
15.     )
    
16.   ;;相关的系统变量备份
    
17.   (setq err_bak (getvar "errno"))
    
18.   (setq cmd_bak (getvar "cmdecho"))
    
19.   (setvar "cmdecho" 0)
    
20.   ;;主程序开始
    
21.   (setq ii 0)
    
22.   ;;选取同心圆弧、圆<或指定圆心>
    
23.   (while (= ii 0)
    
24.     (setvar "errno" 0)
    
25.     (setq tmp_en (vl-catch-all-apply 'entsel (list "\n选取同心圆弧、圆<或指定圆心>：")))
    
26.     (setq err_re (vl-catch-all-error-p tmp_en))
    
27.     (cond
    
28.       ((= err_re T) (setq ii 1));;返回错误时，函数取消
    
29.       ((= (getvar "errno") 52) (setq ii 2));;选择为空时，即点击右键或者空格键时，跳到选取圆心步骤
    
30.       ((= (getvar "errno") 7) (setq ii 0));;选取失败时,返回继续选取图元
    
31.       ;;选取到图元，并且图元为圆弧或者圆时，取出其中的圆心点，并赋给PT1，跳到选取终点
    
32.       ((or (= (cdr (assoc 0 (entget (car tmp_en)))) "ARC") (= (cdr (assoc 0 (entget (car tmp_en)))) "CIRCLE"))
    
33.        (progn
    
34.    (setq pt1 (cdr (assoc 10 (entget (car tmp_en)))))
    
35.    (setq ii 3)
    
36.    )
    
37.        )
    
38.       ;;以上都不是是的时候，返回继续选取图元
    
39.       (T (setq ii 0))
    
40.       )
    
41.     )
    
42.   ;;选取圆心点
    
43.   (while (= ii 2)
    
44.     (setvar "errno" 0)
    
45.     (setq pt1 (vl-catch-all-apply 'getpoint (list "\n指定同心圆的圆心:")))
    
46.     (setq err_re (vl-catch-all-error-p pt1))
    
47.     (cond
    
48.       ((= err_re T) (setq ii 1));;返回错误时，函数取消
    
49.       ((= (getvar "errno") 52) (setq ii 2));;选取为空时，返回继续选取圆心点
    
50.       ((/= pt1 nil) (setq ii 3));;选取到点后，跳到选取终点
    
51.       ;;以上都不是的时候，返回继续选取圆心点
    
52.       (T (setq ii 2))
    
53.       )
    
54.     )
    
55.   ;;选取到圆心后，重复执行圆的命令
    
56.   (while (= ii 3)
    
57.     ;;监视最后一个图元
    
58.     (setq en (entlast))
    
59.     ;;绘制圆
    
60.     (setvar "cmdecho" 0)
    
61.     (command "_.circle" "non")
    
62.     ;;打开命令提示，使用圆的提示
    
63.     (setvar "cmdecho" 1)
    
64.     (command pt1 pause)
    
65.     ;;对于输入D的情况下，即最后一个图元没有变的情况，需要再给一个pause命令
    
66.     (and
    
67.       (equal en (entlast))
    
68.       (command pause)
    
69.       )
    
70.     )
    
71.   ;;系统变量恢复初始值
    
72.   (and err_bak (setvar "errno" err_bak))
    
73.   (and cmd_bak (setvar "cmdecho" cmd_bak))
    
74.   (princ)
    
75.   )

;;*********************************************************************<br /> ;;同心圆绘制程序                                                      *<br /> ;;                                                                    *<br /> ;;*********************************************************************<br /> (defun C:CC( / err_re cmd_bak err_bak *error* ii tmp_en pt1 pt2 en tmp)<br />   ;;定义局部错误处理函数，处理来自command的错误<br />   (defun *error*(msg)<br />     ;;取消command命令<br />     (command)<br />     ;;当变量备份中有值的时候，恢复系统变量<br />     (and err_bak (setvar "errno" err_bak))<br />     (and cmd_bak (setvar "cmdecho" cmd_bak))<br />     (princ)<br />     )<br />   ;;相关的系统变量备份<br />   (setq err_bak (getvar "errno"))<br />   (setq cmd_bak (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   ;;主程序开始<br />   (setq ii 0)<br />   ;;选取同心圆弧、圆<或指定圆心><br />   (while (= ii 0)<br />     (setvar "errno" 0)<br />     (setq tmp_en (vl-catch-all-apply 'entsel (list "\n选取同心圆弧、圆<或指定圆心>：")))<br />     (setq err_re (vl-catch-all-error-p tmp_en))<br />     (cond<br />       ((= err_re T) (setq ii 1));;返回错误时，函数取消<br />       ((= (getvar "errno") 52) (setq ii 2));;选择为空时，即点击右键或者空格键时，跳到选取圆心步骤<br />       ((= (getvar "errno") 7) (setq ii 0));;选取失败时,返回继续选取图元<br />       ;;选取到图元，并且图元为圆弧或者圆时，取出其中的圆心点，并赋给PT1，跳到选取终点<br />       ((or (= (cdr (assoc 0 (entget (car tmp_en)))) "ARC") (= (cdr (assoc 0 (entget (car tmp_en)))) "CIRCLE"))<br />        (progn<br />    (setq pt1 (cdr (assoc 10 (entget (car tmp_en)))))<br />    (setq ii 3)<br />    )<br />        )<br />       ;;以上都不是是的时候，返回继续选取图元<br />       (T (setq ii 0))<br />       )<br />     )<br />   ;;选取圆心点<br />   (while (= ii 2)<br />     (setvar "errno" 0)<br />     (setq pt1 (vl-catch-all-apply 'getpoint (list "\n指定同心圆的圆心:")))<br />     (setq err_re (vl-catch-all-error-p pt1))<br />     (cond<br />       ((= err_re T) (setq ii 1));;返回错误时，函数取消<br />       ((= (getvar "errno") 52) (setq ii 2));;选取为空时，返回继续选取圆心点<br />       ((/= pt1 nil) (setq ii 3));;选取到点后，跳到选取终点<br />       ;;以上都不是的时候，返回继续选取圆心点<br />       (T (setq ii 2))<br />       )<br />     )<br />   ;;选取到圆心后，重复执行圆的命令<br />   (while (= ii 3)<br />     ;;监视最后一个图元<br />     (setq en (entlast))<br />     ;;绘制圆<br />     (setvar "cmdecho" 0)<br />     (command "_.circle" "non")<br />     ;;打开命令提示，使用圆的提示<br />     (setvar "cmdecho" 1)<br />     (command pt1 pause)<br />     ;;对于输入D的情况下，即最后一个图元没有变的情况，需要再给一个pause命令<br />     (and<br />       (equal en (entlast))<br />       (command pause)<br />       )<br />     )<br />   ;;系统变量恢复初始值<br />   (and err_bak (setvar "errno" err_bak))<br />   (and cmd_bak (setvar "cmdecho" cmd_bak))<br />   (princ)<br />   )

温馨提示:
提示选择圆弧、圆时，点击鼠标右键或者空格键，可以切换到选择圆心点的模式。

duanshui83

看着挺不错的，不过用处不太大

ggdlove

duanshui83 发表于 2013-12-17 12:18
看着挺不错的，不过用处不太大

如果需要绘制几十个同心圆的时候，还是能派上用场的。
这个东西是各取所需

王航

看起来不错，赞！