[LISP函数]：中心线的简便法

tosikyou

这是一个如何在两条平行线的前提下画中心线的autolisp，请多多下载!!
原本想免费来着，这不没币就寸步难行！！没法！

david96007

汉字怎么都成乱码了？！

2. 
   
3. ;;*******************************************************************
   
4. ;;      僙儞僞乕儔僀儞偺嶌惉(俀捈慄巜帵)
   
5. ;;                                               programed by Y.EBATA
   
6. ;;*******************************************************************
   
7. (defun C:cenline ()
   
8.   (setq somde (getvar "osmode"))
   
9.   (setq secho (getvar "cmdecho"))
   
10.   (setvar "osmode" 0)
    
11.   (setvar "cmdecho" 0)                        ;---------------------------婎弨慄偺慖戰
    
12.   (setq ee (entsel "\n侾杮栚偺捈慄傪巜帵:"))
    
13.   (setq ename1 (car ee))
    
14.   (redraw ename1 3)
    
15.   (setq        alist (entget ename1)
    
16.         sp1   (cdr (assoc 10 alist))
    
17.         ep1   (cdr (assoc 11 alist))
    
18.   )
    
19.   (setq ee (entsel "\n俀杮栚偺捈慄傪巜帵:"))
    
20.   (setq ename2 (car ee))
    
21.   (setq        alist (entget ename2)
    
22.         sp2   (cdr (assoc 10 alist))
    
23.         ep2   (cdr (assoc 11 alist))
    
24.   )                                        ;---------------------------巒廔揰嵗昗嶼弌
    
25.   (setq flg (inters sp1 sp2 ep1 ep2))
    
26.   (if (/= flg nil)
    
27.     (setq dum sp2
    
28.           sp2 ep2
    
29.           ep2 dum
    
30.     )
    
31.   )
    
32.   (setq        p1x (car sp1)
    
33.         p1y (cadr sp1)
    
34.         p2x (car sp2)
    
35.         p2y (cadr sp2)
    
36.         mix (min p1x p2x)
    
37.         mxx (max p1x p2x)
    
38.         miy (min p1y p2y)
    
39.         mxy (max p1y p2y)
    
40.         pmx (+ mix (/ (- mxx mix) 2.0))
    
41.         pmy (+ miy (/ (- mxy miy) 2.0))
    
42.         smp (list pmx pmy)
    
43.   )
    
44.   (setq        p1x (car ep1)
    
45.         p1y (cadr ep1)
    
46.         p2x (car ep2)
    
47.         p2y (cadr ep2)
    
48.         mix (min p1x p2x)
    
49.         mxx (max p1x p2x)
    
50.         miy (min p1y p2y)
    
51.         mxy (max p1y p2y)
    
52.         pmx (+ mix (/ (- mxx mix) 2.0))
    
53.         pmy (+ miy (/ (- mxy miy) 2.0))
    
54.         emp (list pmx pmy)
    
55.   )                                        ;---------------------------張棟
    
56.   (command "line" smp emp "")
    
57.   (redraw)
    
58.   (setvar "osmode" somde)
    
59.   (setvar "cmdecho" secho)
    
60. )
    

<br /> ;;*******************************************************************<br /> ;;      僙儞僞乕儔僀儞偺嶌惉(俀捈慄巜帵)<br /> ;;                                               programed by Y.EBATA<br /> ;;*******************************************************************<br /> (defun C:cenline ()<br />   (setq somde (getvar "osmode"))<br />   (setq secho (getvar "cmdecho"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)                        ;---------------------------婎弨慄偺慖戰<br />   (setq ee (entsel "\n侾杮栚偺捈慄傪巜帵:"))<br />   (setq ename1 (car ee))<br />   (redraw ename1 3)<br />   (setq        alist (entget ename1)<br />         sp1   (cdr (assoc 10 alist))<br />         ep1   (cdr (assoc 11 alist))<br />   )<br />   (setq ee (entsel "\n俀杮栚偺捈慄傪巜帵:"))<br />   (setq ename2 (car ee))<br />   (setq        alist (entget ename2)<br />         sp2   (cdr (assoc 10 alist))<br />         ep2   (cdr (assoc 11 alist))<br />   )                                        ;---------------------------巒廔揰嵗昗嶼弌<br />   (setq flg (inters sp1 sp2 ep1 ep2))<br />   (if (/= flg nil)<br />     (setq dum sp2<br />           sp2 ep2<br />           ep2 dum<br />     )<br />   )<br />   (setq        p1x (car sp1)<br />         p1y (cadr sp1)<br />         p2x (car sp2)<br />         p2y (cadr sp2)<br />         mix (min p1x p2x)<br />         mxx (max p1x p2x)<br />         miy (min p1y p2y)<br />         mxy (max p1y p2y)<br />         pmx (+ mix (/ (- mxx mix) 2.0))<br />         pmy (+ miy (/ (- mxy miy) 2.0))<br />         smp (list pmx pmy)<br />   )<br />   (setq        p1x (car ep1)<br />         p1y (cadr ep1)<br />         p2x (car ep2)<br />         p2y (cadr ep2)<br />         mix (min p1x p2x)<br />         mxx (max p1x p2x)<br />         miy (min p1y p2y)<br />         mxy (max p1y p2y)<br />         pmx (+ mix (/ (- mxx mix) 2.0))<br />         pmy (+ miy (/ (- mxy miy) 2.0))<br />         emp (list pmx pmy)<br />   )                                        ;---------------------------張棟<br />   (command "line" smp emp "")<br />   (redraw)<br />   (setvar "osmode" somde)<br />   (setvar "cmdecho" secho)<br /> )<br />

flayskay

提示汉字是乱码

dwg001

有点问题－－－>错误 : 参数类型错误: lentityp nil

橄榄滋味

(defun C:cenline ()
(setq olderror *error* *error* err_cenline)
  (setq somde (getvar "osmode"))
  (setq secho (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq ee (entsel "\n选择第一条直线:"))
  (setq ename1 (car ee))
  (redraw ename1 3)
  (setq        alist (entget ename1)
        sp1   (cdr (assoc 10 alist))
        ep1   (cdr (assoc 11 alist))
  )
  (setq ee (entsel "\n择第二条直线:"))
  (setq ename2 (car ee))
  (setq        alist (entget ename2)
        sp2   (cdr (assoc 10 alist))
        ep2   (cdr (assoc 11 alist))
  )
  (setq flg (inters sp1 sp2 ep1 ep2))
  (if (/= flg nil)
    (setq dum sp2
          sp2 ep2
          ep2 dum
    )
  )
  (setq        p1x (car sp1)
        p1y (cadr sp1)
        p2x (car sp2)
        p2y (cadr sp2)
        mix (min p1x p2x)
        mxx (max p1x p2x)
        miy (min p1y p2y)
        mxy (max p1y p2y)
        pmx (+ mix (/ (- mxx mix) 2.0))
        pmy (+ miy (/ (- mxy miy) 2.0))
        smp (list pmx pmy)
  )
  (setq        p1x (car ep1)
        p1y (cadr ep1)
        p2x (car ep2)
        p2y (cadr ep2)
        mix (min p1x p2x)
        mxx (max p1x p2x)
        miy (min p1y p2y)
        mxy (max p1y p2y)
        pmx (+ mix (/ (- mxx mix) 2.0))
        pmy (+ miy (/ (- mxy miy) 2.0))
        emp (list pmx pmy)
  )
  (command "line" smp emp "")
  (redraw ename1 4)
  ;(redraw)
  (setvar "osmode" somde)
  (setvar "cmdecho" secho)
)
(defun err_cenline(mg)
(redraw ename1 4)
(setvar "osmode" somde)
(setvar "cmdecho" secho)
(setq *error* olderror)
)

845245015

“日知其所亡,月无忘其所能,可谓好学也已矣。”