[求助]：请教高手，如何在CAD中画一个从圆形变成矩形的实体？

27182818284

最初由 步惊云 发布
[B]猫王做的是正圆变正方，有没有办法做正圆变矩形，或是椭圆变矩形。 [/B]

矩形天圆地方的做法和正方形天圆地方相似，演示如下：


矩形天圆地方演示1

27182818284

矩形天圆地方演示2

27182818284

AutoCAD模型

27182818284

椭圆天圆地方做起来比较复杂，并且容易产生微小的误差，演示如下：

椭圆天圆地方演示1

27182818284

椭圆天圆地方演示2

27182818284

椭圆天圆地方演示3

27182818284

椭圆天圆地方演示4

27182818284

AutoCAD模型

nnnnnn

实体与想象的还是不一样

陌生人

在cad中做这么费力还不如在max或者rhino中做好后转过来

27182818284

几种不同尺寸比例的矩形天圆地方

ahlzl

哈哈说有点冷清!我来顶一下猫王的老贴子吧.这有一个LISP程序:

2. 
   
3. (defun c:tydf (/ ppp a ab b r h x y z p01 p02 p03 p04 p1 p2 p3 p4 pt11 pt12 pt13
   
4.               pt21 pt22 pt23 pt0 pt1 k e c ang ang1 ppp1 ppp2 ppp3 ppp4 ss)
   
5.   (setvar "cmdecho" 0)
   
6.   (alert "本程序已将UCS设为世界坐标系！")
   
7.   (command "ucs" "w")
   
8.   (setq ppp (getpoint "\n请输入地方的中心点"))
   
9.   (setq a (getdist ppp "\n请输入地方的半长度:"))
   
10.   (setq b (getdist ppp "\n请输入地方的半宽度:"))
    
11.   (setq r (getdist ppp "\n请输入天圆的半径:"))
    
12.   (setq h (getdist ppp "\n请输入天圆地方的高度:"))
    
13.   (setq ss (ssadd));;;;;
    
14.   (if (< a b)
    
15.     (progn
    
16.       (setq ab b)
    
17.       (setq b a)
    
18.       (setq a ab)
    
19.     )
    
20.   )
    
21.   (if (< b r)
    
22.     (progn
    
23.       (alert"您要画的是天圆地方，圆的直径不能大于“地方”的宽度和长度!")
    
24.       (exit))  
    
25.   )
    
26.   (setq oldos (getvar "osmode"))
    
27.   (setvar "osmode" 0)
    
28.   (setq x (car ppp))
    
29.   (setq y (cadr ppp))
    
30.   (setq z (caddr ppp))
    
31.   (setq        p01 (list (+ x a) (- y b) z)                ;第四象限点
    
32.         p02 (list (+ x a) (+ y b) z)                ;第一象限点
    
33.         p03 (list (- x a) (+ y b) z)                ;第二象限点
    
34.         P04 (List (- x a) (- y b) z))                ;第三象限点
    
35.   (command "rectang" p01 p03)
    
36.   (setq aa (atan (/ (- b r) h)))        ;angle = Atn((b - d) / (2 * h))
    
37.   (setq ang (R->D aa))                        ;弧度转化为度
    
38.   (setq p12 (list (+ x a) y z))
    
39.   (setq p23 (list x (+ y b) z))
    
40.   (setq p34 (list (- x a) y z))
    
41.   (setq p41 (list x (- y b) z))
    
42.   (command "extrude" (list (entlast) p23) "" h ang);;;;;;
    
43.   (ssadd (entlast) ss);;;;;
    
44.   (setq        p1 (list (+ x r) y (+ z h))                        ;+X点
    
45.         p2 (list x (+ r y) (+ z h))                        ;+Y点
    
46.         p3 (list (- x r) y (+ z h))                        ;-X点
    
47.         p4 (list x (- y r) (+ z h)))                        ;-Y点
    
48.   (command "slice" (list (entlast) p23) "" p01 p02 p1 p03)  ;;;;;
    
49.   (command "slice" (list (entlast) p23) "" p03 p04 p3 p01)
    
50.   (command "slice" (list (entlast) p23) "" p01 p4 p1 p3)
    
51.   (command "slice" (list (entlast) p23) "" p02 p1 p2 p4)
    
52.   (command "slice" (list (entlast) p23) "" p03 p2 p3 p1)
    
53.   (command "slice" (list (entlast) p23) "" p04 p3 p4 p2)
    
54. 
    
55.   (setq        pt11 (+ x (* r (cos (atan (/ b a)))))
    
56.         pt12 (- y (* r (sin (atan (/ b a)))))
    
57.         pt13 (+ z h))
    
58.   (setq pt1 (list pt11 pt12 pt13))                   ;猫王射线交点1
    
59.   (setq pt21 (- x (* r (cos (atan (/ b a)))))
    
60.         pt22 (+ y (* r (sin (atan (/ b a)))))
    
61.         pt23 (+ z h))
    
62.   (setq pt2 (list pt21 pt22 pt23))     ;猫王射线交点2
    
63.   (setq        d01 (distance p01 pt1)
    
64.         d02 (distance p01 pt2)
    
65.         d12 (distance pt1 pt2))
    
66.   (setq c (/ d01 d02))
    
67.   (setq pt01 (/ (+ pt11 (* c pt21))(+ 1 c)))
    
68.   (setq pt02 (/ (+ pt12 (* c pt22))(+ 1 c)))
    
69.   (setq pt03 (+ z h))
    
70.   (setq pt0 (list pt01 pt02 pt03))        ;椭圆锥圆心
    
71.   (setq k (angle pt0 pt1))
    
72.   (setq aa (sqrt (* (distance pt0 pt1) (distance pt0 pt2))))
    
73.   (setq        e (/ (- (+ (* d01 d01) (* d02 d02)) (* d12 d12))
    
74.              (* 2 d01 d02)))
    
75.   (setq ang1 (+ (atan (/ (- 0 e) (sqrt (- 1 (* e e))))) (* 2 (atan 1))))
    
76.   (setq bb (/ (* (sin (/ ang1 2)) (distance p01 pt0)) (cos (/ ang1 2))))
    
77.   (command "ucs" "za" pt0 p01)
    
78.   (setq pp1 (list aa 0 0))
    
79.   (setq pp2 (list (- 0 aa) 0 0))
    
80.   (setq pp3 (list 0 0 (distance pt0 p01)))
    
81.   (command "cone" "e" "c" "" pp1 bb "a" pp3)
    
82.   (command "ucs" "p")
    
83.   (command "slice" "l" "" p1 p2 p3 p01)
    
84.   (setq ppp1 (list (+ x (/ r (sqrt 2)))(- y (/ r (sqrt 2)))(+ z h)))
    
85.   (setq ppp2 (list (+ x (/ r (sqrt 2)))(+ x (/ r (sqrt 2)))(+ z h)))
    
86.   (setq ppp3 (list (- x (/ r (sqrt 2)))(+ x (/ r (sqrt 2)))(+ z h)))
    
87.   (setq ppp4 (list (- x (/ r (sqrt 2)))(- y (/ r (sqrt 2)))(+ z h)))
    
88.   (command "slice" "l" "" p1 p4 p01 (list (+ x a) (- y b) (+ z h)))
    
89.   (ssadd (entlast) ss);;;;;;
    
90.   (command "mirror" "l" "" p23 p41 "n")
    
91.   (ssadd (entlast) ss);;;;;;
    
92.   (command "mirror" "l" "" p12 p34 "n")
    
93.   (ssadd (entlast) ss);;;;;;
    
94.   (command "mirror" "l" "" p23 p41 "n")
    
95.   (ssadd (entlast) ss);;;;;
    
96.   (command "union" ss "")
    
97.   (setvar "osmode" oldos)
    
98.   (princ)
    
99. )
    
100. (defun R->D (number)
     
101.   (* 180 (/ number pi))
     
102. )

<br /> (defun c:tydf (/ ppp a ab b r h x y z p01 p02 p03 p04 p1 p2 p3 p4 pt11 pt12 pt13<br />               pt21 pt22 pt23 pt0 pt1 k e c ang ang1 ppp1 ppp2 ppp3 ppp4 ss)<br />   (setvar "cmdecho" 0)<br />   (alert "本程序已将UCS设为世界坐标系！")<br />   (command "ucs" "w")<br />   (setq ppp (getpoint "\n请输入地方的中心点"))<br />   (setq a (getdist ppp "\n请输入地方的半长度:"))<br />   (setq b (getdist ppp "\n请输入地方的半宽度:"))<br />   (setq r (getdist ppp "\n请输入天圆的半径:"))<br />   (setq h (getdist ppp "\n请输入天圆地方的高度:"))<br />   (setq ss (ssadd));;;;;<br />   (if (< a b)<br />     (progn<br />       (setq ab b)<br />       (setq b a)<br />       (setq a ab)<br />     )<br />   )<br />   (if (< b r)<br />     (progn<br />       (alert"您要画的是天圆地方，圆的直径不能大于“地方”的宽度和长度!")<br />       (exit))  <br />   )<br />   (setq oldos (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq x (car ppp))<br />   (setq y (cadr ppp))<br />   (setq z (caddr ppp))<br />   (setq        p01 (list (+ x a) (- y b) z)                ;第四象限点<br />         p02 (list (+ x a) (+ y b) z)                ;第一象限点<br />         p03 (list (- x a) (+ y b) z)                ;第二象限点<br />         P04 (List (- x a) (- y b) z))                ;第三象限点<br />   (command "rectang" p01 p03)<br />   (setq aa (atan (/ (- b r) h)))        ;angle = Atn((b - d) / (2 * h))<br />   (setq ang (R->D aa))                        ;弧度转化为度<br />   (setq p12 (list (+ x a) y z))<br />   (setq p23 (list x (+ y b) z))<br />   (setq p34 (list (- x a) y z))<br />   (setq p41 (list x (- y b) z))<br />   (command "extrude" (list (entlast) p23) "" h ang);;;;;;<br />   (ssadd (entlast) ss);;;;;<br />   (setq        p1 (list (+ x r) y (+ z h))                        ;+X点<br />         p2 (list x (+ r y) (+ z h))                        ;+Y点<br />         p3 (list (- x r) y (+ z h))                        ;-X点<br />         p4 (list x (- y r) (+ z h)))                        ;-Y点<br />   (command "slice" (list (entlast) p23) "" p01 p02 p1 p03)  ;;;;;<br />   (command "slice" (list (entlast) p23) "" p03 p04 p3 p01)<br />   (command "slice" (list (entlast) p23) "" p01 p4 p1 p3)<br />   (command "slice" (list (entlast) p23) "" p02 p1 p2 p4)<br />   (command "slice" (list (entlast) p23) "" p03 p2 p3 p1)<br />   (command "slice" (list (entlast) p23) "" p04 p3 p4 p2)<br /> <br />   (setq        pt11 (+ x (* r (cos (atan (/ b a)))))<br />         pt12 (- y (* r (sin (atan (/ b a)))))<br />         pt13 (+ z h))<br />   (setq pt1 (list pt11 pt12 pt13))                   ;猫王射线交点1<br />   (setq pt21 (- x (* r (cos (atan (/ b a)))))<br />         pt22 (+ y (* r (sin (atan (/ b a)))))<br />         pt23 (+ z h))<br />   (setq pt2 (list pt21 pt22 pt23))     ;猫王射线交点2<br />   (setq        d01 (distance p01 pt1)<br />         d02 (distance p01 pt2)<br />         d12 (distance pt1 pt2))<br />   (setq c (/ d01 d02))<br />   (setq pt01 (/ (+ pt11 (* c pt21))(+ 1 c)))<br />   (setq pt02 (/ (+ pt12 (* c pt22))(+ 1 c)))<br />   (setq pt03 (+ z h))<br />   (setq pt0 (list pt01 pt02 pt03))        ;椭圆锥圆心<br />   (setq k (angle pt0 pt1))<br />   (setq aa (sqrt (* (distance pt0 pt1) (distance pt0 pt2))))<br />   (setq        e (/ (- (+ (* d01 d01) (* d02 d02)) (* d12 d12))<br />              (* 2 d01 d02)))<br />   (setq ang1 (+ (atan (/ (- 0 e) (sqrt (- 1 (* e e))))) (* 2 (atan 1))))<br />   (setq bb (/ (* (sin (/ ang1 2)) (distance p01 pt0)) (cos (/ ang1 2))))<br />   (command "ucs" "za" pt0 p01)<br />   (setq pp1 (list aa 0 0))<br />   (setq pp2 (list (- 0 aa) 0 0))<br />   (setq pp3 (list 0 0 (distance pt0 p01)))<br />   (command "cone" "e" "c" "" pp1 bb "a" pp3)<br />   (command "ucs" "p")<br />   (command "slice" "l" "" p1 p2 p3 p01)<br />   (setq ppp1 (list (+ x (/ r (sqrt 2)))(- y (/ r (sqrt 2)))(+ z h)))<br />   (setq ppp2 (list (+ x (/ r (sqrt 2)))(+ x (/ r (sqrt 2)))(+ z h)))<br />   (setq ppp3 (list (- x (/ r (sqrt 2)))(+ x (/ r (sqrt 2)))(+ z h)))<br />   (setq ppp4 (list (- x (/ r (sqrt 2)))(- y (/ r (sqrt 2)))(+ z h)))<br />   (command "slice" "l" "" p1 p4 p01 (list (+ x a) (- y b) (+ z h)))<br />   (ssadd (entlast) ss);;;;;;<br />   (command "mirror" "l" "" p23 p41 "n")<br />   (ssadd (entlast) ss);;;;;;<br />   (command "mirror" "l" "" p12 p34 "n")<br />   (ssadd (entlast) ss);;;;;;<br />   (command "mirror" "l" "" p23 p41 "n")<br />   (ssadd (entlast) ss);;;;;<br />   (command "union" ss "")<br />   (setvar "osmode" oldos)<br />   (princ) <br /> )<br /> (defun R->D (number)<br />   (* 180 (/ number pi))<br /> )

qqq120

在参数里改一下，把边数改为四就可以了

aliang_aliang

有没有曲面转化为实体的工具

xiqiyy

如何在CAD中画一个从圆形变成矩形的实体？*-*4 *-*4