直角斜圆锥台料展开的弧改咋画啊

世人皆醉

大家好，我想用lisp画出如下的圆锥台一键展开图，目前的思路根据书籍画的下面程度，把各种数据都推理出来了，但最后一步该如何绘制展开我想不出来了，用圆弧命令画出的圆弧的半径好像是固定的，用样条曲线画出好像又和原本的数据不符，求大佬能将下面的程序完善


下列为参考推理的文档

下列为用LISP绘制出来的半成品

2. (defun c:y2(/ d1 d2 d3  d6 d7 d8 d8a pt0 p1 p2 p3 p4 ) ;引用函数，
   
3.   (setvar "cmdecho" 0) ;关闭普通命令提示信息
   
4.   (setvar "osmode" 0)  ;关闭对象捕捉状态
   
5.   (setq d1 (getreal "圆台大口直径<2006>"));D
   
6.   (if (not d1) (setq d1 2006.0))
   
7.   (setq d2 (getreal "圆锥小口直径<1206>"));d
   
8.   (if (not d2) (setq d2 1206.0))
   
9.   (setq d3 (getreal "圆台高度<890>"));h
   
10.   (if (not d3) (setq d3 890.0))
    
11.   
    
12.   (setq d9 (* 11.25 (/ pi 180)));各等份数的基础角度
    
13.   
    
14.   (setq d4(/ (* d1 d3) (- d1 d2)));H整体圆锥体高；h=dh/D-d
    
15.   
    
16.   (setq d5(sqrt (+ (* d4 d4) (expt (* d1 (sin 0)) 2))));r1;R整体圆锥展开半径： R=SQRT (H2+D2/4)   R1
    
17.   (setq d5a(sqrt (+ (* d4 d4) (expt (* d1 (sin d9)) 2))));R2
    
18.   (setq d5b(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 2 d9))) 2))));R3
    
19.   (setq d5C(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 3 d9))) 2))));R4
    
20.   (setq d5d(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 4 d9))) 2))));R5
    
21.   (setq d5e(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 5 d9))) 2))));R6
    
22.   (setq d5F(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 6 d9))) 2))));R7
    
23.   (setq d5G(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 7 d9))) 2))));R8
    
24.   (setq d5h(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 8 d9))) 2))));R9
    
25.   ;上列为整斜圆锥任意展开半径Rn
    
26.   
    
27.   (setq d6(- d4 d3));h1 圆锥上半部分长度
    
28. 
    
29.   (setq d7(/ (* d6 d5) d4));r 圆锥上半部展开半径 r1
    
30.   (setq d7a(/ (* d6 d5a) d4));r2
    
31.   (setq d7b(/ (* d6 d5b) d4));r3
    
32.   (setq d7c(/ (* d6 d5c) d4));r4
    
33.   (setq d7d(/ (* d6 d5d) d4));r5
    
34.   (setq d7e(/ (* d6 d5e) d4));r6
    
35.   (setq d7f(/ (* d6 d5f) d4));r7
    
36.   (setq d7g(/ (* d6 d5g) d4));r8
    
37.   (setq d7h(/ (* d6 d5h) d4));r9
    
38.     ;上列为整斜圆锥任意展开半径rn
    
39. 
    
40.   (setq d10(* d1 (sin d9)));大端每等分弦长
    
41.   (setq d11(* d1 pi));大端展开弧长
    
42.   (setq d12(* d2 pi));小端展开弧长
    
43.   ;此后段参数可以忽略，下列lisp是错误的*********************************************************************
    
44.   (setq d8(/ (* pi d1) d5 2));a 展开料夹角弧度a=pi*d1/R1;这里直接将角度转成弧度系数了，角度=弧度/180/pi
    
45.   (setq d8a(* d8 -1))
    
46.   (setq pt0(getpoint "插入点"));
    
47. (setq p1(polar pt0 d8a d7))
    
48. (setq p2(polar pt0 d8 d7))
    
49. (setq p3(polar pt0 d8a d5))
    
50. (setq p4(polar pt0 d8 d5))
    
51. (command "arc" "c" pt0 p1 p2 )
    
52. (command "arc" "c" pt0 p3 p4 )
    
53. (command "line" p1 p3 "")(command "line" p2 p4 "")
    
54. (setvar "osmode" 16383)  ;打开对象捕捉状态
    
55.   (princ))

(defun c:y2(/ d1 d2 d3  d6 d7 d8 d8a pt0 p1 p2 p3 p4 ) ;引用函数，<br />   (setvar "cmdecho" 0) ;关闭普通命令提示信息<br />   (setvar "osmode" 0)  ;关闭对象捕捉状态<br />   (setq d1 (getreal "圆台大口直径<2006>"));D<br />   (if (not d1) (setq d1 2006.0))<br />   (setq d2 (getreal "圆锥小口直径<1206>"));d<br />   (if (not d2) (setq d2 1206.0))<br />   (setq d3 (getreal "圆台高度<890>"));h<br />   (if (not d3) (setq d3 890.0))<br />   <br />   (setq d9 (* 11.25 (/ pi 180)));各等份数的基础角度<br />   <br />   (setq d4(/ (* d1 d3) (- d1 d2)));H整体圆锥体高；h=dh/D-d<br />   <br />   (setq d5(sqrt (+ (* d4 d4) (expt (* d1 (sin 0)) 2))));r1;R整体圆锥展开半径： R=SQRT (H2+D2/4)   R1<br />   (setq d5a(sqrt (+ (* d4 d4) (expt (* d1 (sin d9)) 2))));R2<br />   (setq d5b(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 2 d9))) 2))));R3<br />   (setq d5C(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 3 d9))) 2))));R4<br />   (setq d5d(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 4 d9))) 2))));R5<br />   (setq d5e(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 5 d9))) 2))));R6<br />   (setq d5F(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 6 d9))) 2))));R7<br />   (setq d5G(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 7 d9))) 2))));R8<br />   (setq d5h(sqrt (+ (* d4 d4) (expt (* d1 (sin (* 8 d9))) 2))));R9<br />   ;上列为整斜圆锥任意展开半径Rn<br />   <br />   (setq d6(- d4 d3));h1 圆锥上半部分长度<br /> <br />   (setq d7(/ (* d6 d5) d4));r 圆锥上半部展开半径 r1<br />   (setq d7a(/ (* d6 d5a) d4));r2<br />   (setq d7b(/ (* d6 d5b) d4));r3<br />   (setq d7c(/ (* d6 d5c) d4));r4<br />   (setq d7d(/ (* d6 d5d) d4));r5<br />   (setq d7e(/ (* d6 d5e) d4));r6<br />   (setq d7f(/ (* d6 d5f) d4));r7<br />   (setq d7g(/ (* d6 d5g) d4));r8<br />   (setq d7h(/ (* d6 d5h) d4));r9<br />     ;上列为整斜圆锥任意展开半径rn<br /> <br />   (setq d10(* d1 (sin d9)));大端每等分弦长<br />   (setq d11(* d1 pi));大端展开弧长<br />   (setq d12(* d2 pi));小端展开弧长<br />   ;此后段参数可以忽略，下列lisp是错误的*********************************************************************<br />   (setq d8(/ (* pi d1) d5 2));a 展开料夹角弧度a=pi*d1/R1;这里直接将角度转成弧度系数了，角度=弧度/180/pi<br />   (setq d8a(* d8 -1))<br />   (setq pt0(getpoint "插入点"));<br /> (setq p1(polar pt0 d8a d7))<br /> (setq p2(polar pt0 d8 d7))<br /> (setq p3(polar pt0 d8a d5))<br /> (setq p4(polar pt0 d8 d5))<br /> (command "arc" "c" pt0 p1 p2 )<br /> (command "arc" "c" pt0 p3 p4 )<br /> (command "line" p1 p3 "")(command "line" p2 p4 "")<br /> (setvar "osmode" 16383)  ;打开对象捕捉状态<br />   (princ))

求大佬告知该如何根据上面所得的数据用LISP绘制出来其展开图，谢谢！

lee50310

世人皆醉 发表于 2023-2-15 08:26
这个画法，和公式我都推导出来了，我是想如何用lisp能够获得这个点的具体位置，因为他这个点不能用角度表 ...

已知兩大小兩圓半徑 r1=2975 , r2=375 求圓上的交點
執行指令:tt

如動態圖所示

guankuiwu

这个计算不是都有公式了么

xyp1964

xuningxu

应该是按圆锥中心线展开才对吧

xuningxu

上切口和下切口都为椭圆，长度如图

xuningxu

从直角边开始展开的形状

世人皆醉

guankuiwu 发表于 2023-2-12 11:49
这个计算不是都有公式了么

我想知道的是后面该如何以lisp的形式去画出来这个图形

世人皆醉

xyp1964 发表于 2023-2-12 16:30

展开图的画法能分享下么

lee50310

世人皆醉 发表于 2023-2-13 09:06
展开图的画法能分享下么

這裡有國外的視頻如何繪製及製作  可參考看看

1.斜圆锥台


2.斜錐



AutoCad作圖 斜圆锥台
Part1


Part2