[原创]：自己写的，圆和直线斜线的中心线lisp程序

yaodongfeng

自己写的，欢迎大家P。加载好后，使用命令为 ce

flayskay

怎么不能用呀

dwg001

可以用。应关闭捕捉。
最好在程序中加此内容。

eachy

不管如何原创的就要奖励，对你的程序，我重写了下，希望对你学习Lisp有所帮助

2. 
   
3. ;;找两已知点的中点
   
4. (defun get_midpt (pt1 pt2)
   
5.   (list        (/ (+ (car pt1) (car pt2)) 2.)
   
6.         (/ (+ (cadr pt1) (cadr pt2)) 2.)
   
7.   )
   
8. )
   
9. (defun c:ce (/           oldos oldlayer    e           dis         el    typ   rad
   
10.              pcen  nrad         p1    p2    p3           p4         sp1   ep1   sp2
    
11.              ep2   pm1         pm2   an
    
12.             ) ;_局部变量一定要收集全，养成习惯
    
13.   (setq oldos (getvar "osmode")) ;_保存捕捉
    
14.   (setvar "osmode" 0) ;_取消捕捉
    
15.   (setq oldlayer (getvar "clayer")) ;_得到旧图层的名称
    
16.   ;;建立中心线层
    
17.   (command "layer"        "n"             "line_center"
    
18.            "c"                "1"             "line_center"
    
19.            "lt"                " "             "line_center"
    
20.            ""
    
21.           )
    
22. 
    
23.   (while (setq e (car (entsel "\n选取直线或圆: "))) ;_直接拾取实体，后面判断
    
24.     (if        (not dis)
    
25.       (setq dis (getdist "\n延伸长度: "))
    
26.     ) ;_延伸长度只取一次
    
27.     (if        (= dis nil)
    
28.       (setq dis 0.)
    
29.     )
    
30.     (setq el  (entget e) ;_实体DXF列表
    
31.           typ (cdr (assoc 0 el)) ;_ 0 实体类型
    
32.     )
    
33.     (cond
    
34.       ((= typ "CIRCLE") ;_ 圆
    
35.        (setq rad  (cdr (assoc 40 el));_圆心
    
36.              pcen (cdr (assoc 10 el));_半径
    
37.              nrad (+ rad dis)
    
38.              p1          (polar pcen 0. nrad)
    
39.              p2          (polar pcen pi nrad)
    
40.              p3          (polar pcen (* 0.5 pi) nrad)
    
41.              p4          (polar pcen (* 1.5 pi) nrad)
    
42.        )
    
43.        (setvar "clayer" "line_center") ;_转到中心线层
    
44.        (command "line" p2 p1 "") ;_画中心线
    
45.        (command "line" p3 p4 "")
    
46.       )
    
47.       ((= typ "LINE")
    
48.        (if (setq e2 (entsel "\n请选取另一已知线：")) ;_仅适合Offset的一组Line
    
49.          (progn
    
50.            (setq el2 (entget (car e2))
    
51.                  sp1 (cdr (assoc 10 el)) ;_线一起点
    
52.                  ep1 (cdr (assoc 11 el)) ;_线一终点
    
53.                  sp2 (cdr (assoc 10 el2))
    
54.                  ep2 (cdr (assoc 11 el2))
    
55.                  pm1 (get_midpt sp1 sp2) ;_两起点间的中点
    
56.                  pm2 (get_midpt ep1 ep2) ;_两终点间的中点
    
57.                  an  (angle sp1 ep1) ;_线角度
    
58.                  p1  (polar pm1 (+ an pi) dis) ;_中心线由中点算起
    
59.                  p2  (polar pm2 an dis)
    
60.            )
    
61.            (setvar "clayer" "line_center")
    
62.            (command "line" p1 p2 "")
    
63.          )
    
64.        )
    
65.       )
    
66.       (t)
    
67.     )
    
68.   )
    
69.   (setvar "clayer" oldlayer) ;_回到原来图层
    
70.   (setvar "osmode" oldos) ;_恢复捕捉
    
71.   (princ "\nok!")
    
72.   (princ)
    
73. )
    

<br /> ;;找两已知点的中点<br /> (defun get_midpt (pt1 pt2)<br />   (list        (/ (+ (car pt1) (car pt2)) 2.)<br />         (/ (+ (cadr pt1) (cadr pt2)) 2.)<br />   )<br /> )<br /> (defun c:ce (/           oldos oldlayer    e           dis         el    typ   rad<br />              pcen  nrad         p1    p2    p3           p4         sp1   ep1   sp2<br />              ep2   pm1         pm2   an<br />             ) ;_局部变量一定要收集全，养成习惯<br />   (setq oldos (getvar "osmode")) ;_保存捕捉<br />   (setvar "osmode" 0) ;_取消捕捉<br />   (setq oldlayer (getvar "clayer")) ;_得到旧图层的名称 <br />   ;;建立中心线层<br />   (command "layer"        "n"             "line_center"<br />            "c"                "1"             "line_center"<br />            "lt"                " "             "line_center"<br />            ""<br />           )<br /> <br />   (while (setq e (car (entsel "\n选取直线或圆: "))) ;_直接拾取实体，后面判断<br />     (if        (not dis)<br />       (setq dis (getdist "\n延伸长度: "))<br />     ) ;_延伸长度只取一次<br />     (if        (= dis nil)<br />       (setq dis 0.)<br />     )<br />     (setq el  (entget e) ;_实体DXF列表<br />           typ (cdr (assoc 0 el)) ;_ 0 实体类型<br />     )<br />     (cond<br />       ((= typ "CIRCLE") ;_ 圆<br />        (setq rad  (cdr (assoc 40 el));_圆心<br />              pcen (cdr (assoc 10 el));_半径<br />              nrad (+ rad dis)<br />              p1          (polar pcen 0. nrad)<br />              p2          (polar pcen pi nrad)<br />              p3          (polar pcen (* 0.5 pi) nrad)<br />              p4          (polar pcen (* 1.5 pi) nrad)<br />        )<br />        (setvar "clayer" "line_center") ;_转到中心线层<br />        (command "line" p2 p1 "") ;_画中心线<br />        (command "line" p3 p4 "")<br />       )<br />       ((= typ "LINE")<br />        (if (setq e2 (entsel "\n请选取另一已知线：")) ;_仅适合Offset的一组Line<br />          (progn<br />            (setq el2 (entget (car e2))<br />                  sp1 (cdr (assoc 10 el)) ;_线一起点<br />                  ep1 (cdr (assoc 11 el)) ;_线一终点<br />                  sp2 (cdr (assoc 10 el2))<br />                  ep2 (cdr (assoc 11 el2))<br />                  pm1 (get_midpt sp1 sp2) ;_两起点间的中点<br />                  pm2 (get_midpt ep1 ep2) ;_两终点间的中点<br />                  an  (angle sp1 ep1) ;_线角度<br />                  p1  (polar pm1 (+ an pi) dis) ;_中心线由中点算起<br />                  p2  (polar pm2 an dis)<br />            )<br />            (setvar "clayer" "line_center")<br />            (command "line" p1 p2 "")<br />          )<br />        )<br />       )<br />       (t)<br />     )<br />   )<br />   (setvar "clayer" oldlayer) ;_回到原来图层<br />   (setvar "osmode" oldos) ;_恢复捕捉<br />   (princ "\nok!")<br />   (princ)<br /> )<br />