[求助]：如何实现三线弯头的自动绘制？

xyzjint_cn

我经常画空调风管的图纸，图中的风管用三线绘制，画弯头时须一根线一根线地选择进行fillet操作，怎样才能自动进行？
实现过程为：先选择一边三线风管，得至三根线，再选择另一三线风管，得到三根线，进行FILLET，画出2根法兰线，最外圈圆弧半径为三线风管宽度，最内圈圆弧半径为三线风管宽度的一半，中间为内圈与外圈之和的一半。
如图所示

lsjjm

要想自动绘制， 只有编程了(lisp/VBA).我编过机械零件中的三通接头(TEE)可能和你的风管类似。它需要初始参数：管的直径（外径），壁厚， 长度，弯曲半径（中心线）
如你感兴趣，我给你发过去。

XDSoft

最初由 lsjjm 发布
[B]要想自动绘制， 只有编程了(lisp/VBA).我编过机械零件中的三通接头(TEE)可能和你的风管类似。它需要初始参数：管的直径（外径），壁厚， 长度，弯曲半径（中心线）
如你感兴趣，我给你发过去。 [/B]

还是贴论坛来吧,这样能让更多的朋友获得帮助,谢谢!

最好能做个截图或者动画,演示下你的工具.

xyzjint_cn

我自己编了一个程序，语句比较多，必须一根一根线地选择，从一边三线的内侧选择P1、P2，再选择另三线P3、P4，再选中线P5、P6，程序自动完成弯头
如图所示：
如各位用得着的话，试一下，如能更简单的话请贴上来，
源程序如下：

2. <normalfont>[font=courier]
   
3. ;;;*******************************************单弯头绘制程序***************************************************
   
4. (defun C:fgwt (/ ang1 ang2 pd1 pd2 pd3 pd4 pd5 pd6 p1 p2 p3 p4 p5 p6
   
5.                int1 int2)
   
6.   (princ "\n")
   
7.   (princ "************风管单弯头绘制程序************")  
   
8.   (princ "\n")
   
9.   (princ "*****E-mail:xyzjint_cn@sina.com*****")
   
10.   (princ "\n")
    
11.   (princ "选择风管管线请从内圆开始方向)")
    
12.   (princ "选择主风管管线(从内圆开始方向)")
    
13.   (setvar "osmode" 687)
    
14. 
    
15.   (setq        pe1 (entsel)                        ;求得主风管管径
    
16.         p1  (osnap (last pe1) "nea")
    
17.         p2  (getpoint p1)
    
18.         p2  (list (car p2) (cadr p2))
    
19.         p3x (+ (nth 0 p1) (nth 0 p2))
    
20.         p3y (+ (nth 1 p1) (nth 1 p2))
    
21.         p3  (list p3x p3y)
    
22.         kj  (distance p1 p2)
    
23.   )
    
24.   (princ "选择支管管线(从内圆开始方向):")
    
25.   (setq        pe2 (entsel)
    
26.         p4  (osnap (last pe2) "nea")
    
27.         p5  (getpoint p4)
    
28.         p5  (list (car p5) (cadr p5))
    
29.         p6x (+ (nth 0 p4) (nth 0 p5))
    
30.         p6y (+ (nth 1 p4) (nth 1 p5))
    
31.         p6  (list p6x p6y)
    
32. 
    
33.   )
    
34.   (setq ln1 (ssget p1))
    
35.   (setq ln2 (ssget p2))
    
36.   (setq ln4 (ssget p4))
    
37.   (setq ln5 (ssget p5))
    
38.   (princ "\n选择主风管中心线")
    
39.   (setq ln3 (ssget))
    
40.   (princ "\n选择支风风管中心线")
    
41.   (setq ln6 (ssget))
    
42. 
    
43.   (if (= ln1 nil)
    
44.     (setq ln1 (ssget))
    
45.   )
    
46.   (if (= ln2 nil)
    
47.     (setq ln2 (ssget))
    
48.   )
    
49.   (if (= ln3 nil)
    
50.     (setq ln3 (ssget))
    
51.   )
    
52.   (if (= ln4 nil)
    
53.     (setq ln4 (ssget))
    
54.   )
    
55.   (if (= ln5 nil)
    
56.     (setq ln5 (ssget))
    
57.   )
    
58.   (if (= ln6 nil)
    
59.     (setq ln6 (ssget))
    
60.   )
    
61. 
    
62.   (setq kj1 (/ kj 2))
    
63.   (setq kj2 (/ (+ kj kj1) 2))
    
64.   (command "fillet" "r" kj1)
    
65.   (command "fillet" ln1 ln4)
    
66.   (setq yh (entlast))
    
67. 
    
68.   (command "fillet" "r" kj)
    
69.   (command "fillet" ln2 ln5)
    
70.   (command "fillet" "r" kj2)
    
71.   (command "fillet" ln3 ln6)
    
72.   (setvar "osmode" 0)
    
73.   (setq ent1 (entget (ssname ln1 0)))
    
74.   (setq pc11 (assoc 10 ent1))
    
75.   (setq pc11 (list (nth 1 pc11) (nth 2 pc11)))
    
76.   (setq pc12 (assoc 11 ent1))
    
77.   (setq pc12 (list (nth 1 pc12) (nth 2 pc12)))
    
78. 
    
79.   (setq ent2 (entget (ssname ln2 0)))
    
80.   (setq pc21 (assoc 10 ent2))
    
81.   (setq pc21 (list (nth 1 pc21) (nth 2 pc21)))
    
82.   (setq pc22 (assoc 11 ent2))
    
83.   (setq pc22 (list (nth 1 pc22) (nth 2 pc22)))
    
84. 
    
85.   (setq ent4 (entget (ssname ln4 0)))
    
86.   (setq pc41 (assoc 10 ent4))
    
87.   (setq pc41 (list (nth 1 pc41) (nth 2 pc41)))
    
88.   (setq pc42 (assoc 11 ent4))
    
89.   (setq pc42 (list (nth 1 pc42) (nth 2 pc42)))
    
90. 
    
91.   (setq ent5 (entget (ssname ln5 0)))
    
92.   (setq pc51 (assoc 10 ent5))
    
93.   (setq pc51 (list (nth 1 pc51) (nth 2 pc51)))
    
94.   (setq pc52 (assoc 11 ent5))
    
95.   (setq pc52 (list (nth 1 pc52) (nth 2 pc52)))
    
96. 
    
97.   (setq int1 (inters pc11 pc12 pc41 pc42 nil))
    
98.   (setq ds1 (distance int1 pc11))
    
99.   (setq ds2 (distance int1 pc12))
    
100.   (if (< ds1 ds2)
     
101.     (setq pd1 pc11)
     
102.     (setq pd1 pc12)
     
103.   )
     
104. 
     
105.   (setq ds3 (distance int1 pc41))
     
106.   (setq ds4 (distance int1 pc42))
     
107.   (if (< ds3 ds4)
     
108.     (setq pd2 pc41)
     
109.     (setq pd2 pc42)
     
110.   )
     
111. 
     
112.   (setq e1 (entget yh))
     
113.   (setq c0 (assoc 10 e1))
     
114.   (setq c0 (list (nth 1 c0) (nth 2 c0)))
     
115.   (setq pd3 (inters c0 pd1 pc21 pc22 nil))
     
116.   (setq pd4 (inters c0 pd2 pc51 pc52 nil))
     
117.   (command "color" "byblock" "")
     
118.   (command "linetype" "s" "bylayer" "")
     
119.   (command "line" pd1 pd3 "")
     
120.   (command "line" pd2 pd4 "")
     
121.   (command "color" "bylayer" "")
     
122.   (setvar "osmode" 687)
     
123. 
     
124.   (princ)
     
125. )
     
126. </font>
     
127. </normalfont>
     

<normalfont>[font=courier]<br /> ;;;*******************************************单弯头绘制程序***************************************************<br /> (defun C:fgwt (/ ang1 ang2 pd1 pd2 pd3 pd4 pd5 pd6 p1 p2 p3 p4 p5 p6<br />                int1 int2)<br />   (princ "\n")<br />   (princ "************风管单弯头绘制程序************")  <br />   (princ "\n")<br />   (princ "*****E-mail:xyzjint_cn@sina.com*****")<br />   (princ "\n")<br />   (princ "选择风管管线请从内圆开始方向)")<br />   (princ "选择主风管管线(从内圆开始方向)")<br />   (setvar "osmode" 687)<br /> <br />   (setq        pe1 (entsel)                        ;求得主风管管径<br />         p1  (osnap (last pe1) "nea")<br />         p2  (getpoint p1)<br />         p2  (list (car p2) (cadr p2))<br />         p3x (+ (nth 0 p1) (nth 0 p2))<br />         p3y (+ (nth 1 p1) (nth 1 p2))<br />         p3  (list p3x p3y)<br />         kj  (distance p1 p2)<br />   )<br />   (princ "选择支管管线(从内圆开始方向):")<br />   (setq        pe2 (entsel)<br />         p4  (osnap (last pe2) "nea")<br />         p5  (getpoint p4)<br />         p5  (list (car p5) (cadr p5))<br />         p6x (+ (nth 0 p4) (nth 0 p5))<br />         p6y (+ (nth 1 p4) (nth 1 p5))<br />         p6  (list p6x p6y)<br /> <br />   )<br />   (setq ln1 (ssget p1))<br />   (setq ln2 (ssget p2))<br />   (setq ln4 (ssget p4))<br />   (setq ln5 (ssget p5))<br />   (princ "\n选择主风管中心线")<br />   (setq ln3 (ssget))<br />   (princ "\n选择支风风管中心线")<br />   (setq ln6 (ssget))<br /> <br />   (if (= ln1 nil)<br />     (setq ln1 (ssget))<br />   )<br />   (if (= ln2 nil)<br />     (setq ln2 (ssget))<br />   )<br />   (if (= ln3 nil)<br />     (setq ln3 (ssget))<br />   )<br />   (if (= ln4 nil)<br />     (setq ln4 (ssget))<br />   )<br />   (if (= ln5 nil)<br />     (setq ln5 (ssget))<br />   )<br />   (if (= ln6 nil)<br />     (setq ln6 (ssget))<br />   )<br /> <br />   (setq kj1 (/ kj 2))<br />   (setq kj2 (/ (+ kj kj1) 2))<br />   (command "fillet" "r" kj1)<br />   (command "fillet" ln1 ln4)<br />   (setq yh (entlast))<br /> <br />   (command "fillet" "r" kj)<br />   (command "fillet" ln2 ln5)<br />   (command "fillet" "r" kj2)<br />   (command "fillet" ln3 ln6)<br />   (setvar "osmode" 0)<br />   (setq ent1 (entget (ssname ln1 0)))<br />   (setq pc11 (assoc 10 ent1))<br />   (setq pc11 (list (nth 1 pc11) (nth 2 pc11)))<br />   (setq pc12 (assoc 11 ent1))<br />   (setq pc12 (list (nth 1 pc12) (nth 2 pc12)))<br /> <br />   (setq ent2 (entget (ssname ln2 0)))<br />   (setq pc21 (assoc 10 ent2))<br />   (setq pc21 (list (nth 1 pc21) (nth 2 pc21)))<br />   (setq pc22 (assoc 11 ent2))<br />   (setq pc22 (list (nth 1 pc22) (nth 2 pc22)))<br /> <br />   (setq ent4 (entget (ssname ln4 0)))<br />   (setq pc41 (assoc 10 ent4))<br />   (setq pc41 (list (nth 1 pc41) (nth 2 pc41)))<br />   (setq pc42 (assoc 11 ent4))<br />   (setq pc42 (list (nth 1 pc42) (nth 2 pc42)))<br /> <br />   (setq ent5 (entget (ssname ln5 0)))<br />   (setq pc51 (assoc 10 ent5))<br />   (setq pc51 (list (nth 1 pc51) (nth 2 pc51)))<br />   (setq pc52 (assoc 11 ent5))<br />   (setq pc52 (list (nth 1 pc52) (nth 2 pc52)))<br /> <br />   (setq int1 (inters pc11 pc12 pc41 pc42 nil))<br />   (setq ds1 (distance int1 pc11))<br />   (setq ds2 (distance int1 pc12))<br />   (if (< ds1 ds2)<br />     (setq pd1 pc11)<br />     (setq pd1 pc12)<br />   )<br /> <br />   (setq ds3 (distance int1 pc41))<br />   (setq ds4 (distance int1 pc42))<br />   (if (< ds3 ds4)<br />     (setq pd2 pc41)<br />     (setq pd2 pc42)<br />   )<br /> <br />   (setq e1 (entget yh))<br />   (setq c0 (assoc 10 e1))<br />   (setq c0 (list (nth 1 c0) (nth 2 c0)))<br />   (setq pd3 (inters c0 pd1 pc21 pc22 nil))<br />   (setq pd4 (inters c0 pd2 pc51 pc52 nil))<br />   (command "color" "byblock" "")<br />   (command "linetype" "s" "bylayer" "")<br />   (command "line" pd1 pd3 "")<br />   (command "line" pd2 pd4 "")<br />   (command "color" "bylayer" "")<br />   (setvar "osmode" 687)<br /> <br />   (princ)<br /> )<br /> </font><br /> </normalfont><br />

xyzjint_cn

谢谢版主加分！
能不能研究一下，在程序中只分2次选择2部分三线，由程序自动判断三线的每一根线，（现在的程序需选择6次）









在论坛的帮助下，我步入了LISP编程的大门，第一次登录以前，对LISP程序一窍不通！