我写的加中心线的程序，可以加矩形、圆、平行线的

669423907

h008 发表于 2012-3-8 09:32
我试试，我是菜鸟，写的代码不够漂亮！

(defun 2d_mid (pt1 pt2);求两点中点 这就是函数应该是来自是明 ...

有点小问题：

清风明月名字

谢谢楼主，下载用了，很好

成仔

很好啊 ，支持

sdwy196912

这个必须顶

T_T

谢谢楼主，好用不错，

梦醒才知原是梦

好东西。。。谢谢分享~~~~

xiaoyingzi

修改一下，支持框选，支持圆、圆弧、椭圆、矩形，去掉了平行线

2. 
   
3. 
   
4. 
   
5. ;;源码来自明经通道-燃烧
   
6. ;;支持圆、圆弧、椭圆、矩形框选加中心线
   
7. ;;xiaoyingzi修改，增加支持框选和椭圆
   
8. (defun c:zxx (/ v1 v2 v3  ss n in en endata entype cenpt r
   
9.                 b l dist ptlist p1 p2 p3 p4 pt1 pt2 pt3 pt4 )
   
10.   ;获得点p1和p2两点的中点坐标
    
11.   (defun MidPof2P (p1 p2)
    
12.     (mapcar '(lambda(x y) (/ (+ x y) 2.0) ) p1 p2)
    
13.   )
    
14.   (setq v1 (getvar "osmode"))
    
15.   (setq v2 (getvar "cmdecho"))
    
16.   (setq v3 (getvar "clayer"))
    
17.   (setvar "cmdecho" 0)
    
18.   (setvar "osmode" 0)
    
19.   (princ "\n选择要加中心线的圆、圆弧、椭圆、矩形！")
    
20.   (if (setq ss (ssget (list(cons 0 "ARC,CIRCLE,ELLIPSE,LWPOLYLINE"))))
    
21.     (progn
    
22.       (setq n (sslength ss) in 0)
    
23.       (repeat n
    
24.         (setq en (ssname ss in) in (1+ in))
    
25.         (setq endata (entget en))
    
26.         (setq entype (cdr (assoc 0 endata)))
    
27.         (cond
    
28.           ((or (= "CIRCLE" entype) (= "ARC" entype)) ;圆、圆弧
    
29.            (setq cenpt (cdr (assoc 10 endata)))
    
30.            (setq r (cdr (assoc 40 endata)))
    
31.            (setq dist (* r 0.4))
    
32.            (setq pt1 (polar cenpt pi (+ dist r))
    
33.                  pt2 (polar cenpt 0 (+ dist r))
    
34.                  pt3 (polar cenpt (* 0.5 pi) (+ dist r))
    
35.                  pt4 (polar cenpt (* 1.5 pi) (+ dist r))
    
36.            )
    
37.           )
    
38.           ((= "ELLIPSE" entype) ;椭圆
    
39.            (setq cenpt (cdr (assoc 10 endata)))
    
40.            (setq l (distance (list 0 0) (cdr (assoc 11 endata))))
    
41.            (setq b (* (cdr (assoc 40 endata)) l))
    
42.            (setq rotangle (angle (list 0 0) (cdr (assoc 11 endata))))
    
43.            (setq dist (* b 0.4))
    
44.            (setq pt1 (polar cenpt rotangle (+ l dist))
    
45.                  pt2 (polar cenpt (+ pi rotangle) (+ l dist))
    
46.                  pt3 (polar cenpt (+ (* 0.5 pi) rotangle) (+ b dist))
    
47.                  pt4 (polar cenpt (+ (* 1.5 pi) rotangle) (+ b dist))
    
48.            )
    
49.           )
    
50.           ((and (= "LWPOLYLINE" entype) (=  (cdr (assoc 90 (entget en))) 4)) ;矩形
    
51.            (setq ptlist (vl-remove-if '(lambda (x) (/= 10 (car x))) endata))
    
52.            (setq ptlist (mapcar 'cdr ptlist)
    
53.                  p1 (nth 0 ptlist)
    
54.                  p2 (nth 1 ptlist)
    
55.                  p3 (nth 2 ptlist)
    
56.                  p4 (nth 3 ptlist)
    
57.            )
    
58.            (setq
    
59.                  b (distance p1 p2)
    
60.                  l (distance p1 p4)
    
61.                  pt1 (MidPof2P p1 p2)
    
62.                  pt2 (MidPof2P p3 p4)
    
63.                  pt3 (MidPof2P p1 p4)
    
64.                  pt4 (MidPof2P p2 p3)
    
65.            )
    
66.            (if (< b l)
    
67.                (setq dist (* b 0.2))
    
68.                (setq dist (* l 0.2))
    
69.            )
    
70.            (setq
    
71.                  pt1 (polar pt1 (angle pt2 pt1) dist)
    
72.                  pt2 (polar pt2 (angle pt1 pt2) dist)
    
73.                  pt3 (polar pt3 (angle pt4 pt3) dist)
    
74.                  pt4 (polar pt4 (angle pt3 pt4) dist)
    
75.            )
    
76.           )
    
77.         )  
    
78.         (if (and pt1 pt2 pt3 pt4)
    
79.             (progn
    
80.               (if (not (tblsearch "LAYER" "Cen"))
    
81.                   (command "layer" "m" "Cen" "c" 2 "" "l" "center2" "" "lw"
    
82.                            0.18 "" "")
    
83.               )
    
84.               (command "layer" "s" "cen" "")
    
85.               (command "line" pt1 pt2 "")
    
86.               (command "line" pt3 pt4 "")
    
87.               (setvar "clayer" v3)
    
88.             )
    
89.        )
    
90.       )
    
91.     )
    
92.   )
    
93.   (setvar "osmode" v1)
    
94.   (setvar "cmdecho" v2)
    
95.   (princ)
    
96. )
    
97. 
    

<br /> <br /> <br /> ;;源码来自明经通道-燃烧 <br /> ;;支持圆、圆弧、椭圆、矩形框选加中心线<br /> ;;xiaoyingzi修改，增加支持框选和椭圆<br /> (defun c:zxx (/ v1 v2 v3  ss n in en endata entype cenpt r<br />                 b l dist ptlist p1 p2 p3 p4 pt1 pt2 pt3 pt4 )<br />   ;获得点p1和p2两点的中点坐标<br />   (defun MidPof2P (p1 p2)<br />     (mapcar '(lambda(x y) (/ (+ x y) 2.0) ) p1 p2) <br />   )<br />   (setq v1 (getvar "osmode"))<br />   (setq v2 (getvar "cmdecho"))<br />   (setq v3 (getvar "clayer"))<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (princ "\n选择要加中心线的圆、圆弧、椭圆、矩形！")<br />   (if (setq ss (ssget (list(cons 0 "ARC,CIRCLE,ELLIPSE,LWPOLYLINE"))))<br />     (progn<br />       (setq n (sslength ss) in 0)<br />       (repeat n<br />         (setq en (ssname ss in) in (1+ in))<br />         (setq endata (entget en))<br />         (setq entype (cdr (assoc 0 endata)))<br />         (cond<br />           ((or (= "CIRCLE" entype) (= "ARC" entype)) ;圆、圆弧<br />            (setq cenpt (cdr (assoc 10 endata)))<br />            (setq r (cdr (assoc 40 endata)))<br />            (setq dist (* r 0.4))<br />            (setq pt1 (polar cenpt pi (+ dist r))<br />                  pt2 (polar cenpt 0 (+ dist r))<br />                  pt3 (polar cenpt (* 0.5 pi) (+ dist r))<br />                  pt4 (polar cenpt (* 1.5 pi) (+ dist r))<br />            )<br />           )<br />           ((= "ELLIPSE" entype) ;椭圆<br />            (setq cenpt (cdr (assoc 10 endata)))<br />            (setq l (distance (list 0 0) (cdr (assoc 11 endata))))<br />            (setq b (* (cdr (assoc 40 endata)) l))<br />            (setq rotangle (angle (list 0 0) (cdr (assoc 11 endata))))<br />            (setq dist (* b 0.4))<br />            (setq pt1 (polar cenpt rotangle (+ l dist))<br />                  pt2 (polar cenpt (+ pi rotangle) (+ l dist))<br />                  pt3 (polar cenpt (+ (* 0.5 pi) rotangle) (+ b dist))<br />                  pt4 (polar cenpt (+ (* 1.5 pi) rotangle) (+ b dist))<br />            )<br />           )<br />           ((and (= "LWPOLYLINE" entype) (=  (cdr (assoc 90 (entget en))) 4)) ;矩形<br />            (setq ptlist (vl-remove-if '(lambda (x) (/= 10 (car x))) endata))<br />            (setq ptlist (mapcar 'cdr ptlist)<br />                  p1 (nth 0 ptlist)<br />                  p2 (nth 1 ptlist)<br />                  p3 (nth 2 ptlist)<br />                  p4 (nth 3 ptlist)<br />            )<br />            (setq <br />                  b (distance p1 p2)<br />                  l (distance p1 p4)<br />                  pt1 (MidPof2P p1 p2)<br />                  pt2 (MidPof2P p3 p4)<br />                  pt3 (MidPof2P p1 p4)<br />                  pt4 (MidPof2P p2 p3)<br />            )<br />            (if (< b l) <br />                (setq dist (* b 0.2))<br />                (setq dist (* l 0.2))<br />            )<br />            (setq<br />                  pt1 (polar pt1 (angle pt2 pt1) dist)<br />                  pt2 (polar pt2 (angle pt1 pt2) dist)<br />                  pt3 (polar pt3 (angle pt4 pt3) dist)<br />                  pt4 (polar pt4 (angle pt3 pt4) dist)<br />            )<br />           )<br />         )  <br />         (if (and pt1 pt2 pt3 pt4)<br />             (progn<br />               (if (not (tblsearch "LAYER" "Cen"))<br />                   (command "layer" "m" "Cen" "c" 2 "" "l" "center2" "" "lw"<br />                            0.18 "" "")<br />               )<br />               (command "layer" "s" "cen" "")<br />               (command "line" pt1 pt2 "")<br />               (command "line" pt3 pt4 "")<br />               (setvar "clayer" v3)<br />             )<br />        )<br />       )<br />     )<br />   )<br />   (setvar "osmode" v1)<br />   (setvar "cmdecho" v2)<br />   (princ)<br /> )<br /> <br />

smartstar

手机上网，回头试用。

xiaoyingzi

更新了下，支持椭圆

功夫佬

这个是别人开发的智能中心线，目前还没发现谁上传像这样的中心线，本人以现还没有能力，但相信以后肯定能写出来，可惜没有参考，无法去研究。