展平过渡圆2圈
我试图用LISP输入简单代码来创建展平过渡圆2。但在获取坐标点（PT5、PT6、PT7和PT8）的度数方面几乎没有问题。有人能给我解决这个问题的公式吗。附加布局
这是我的密码
(defun DTR (X)
(* pi (/ X 180.0))
)
(defun c:BR2C ()
;Pengambilan data inti pembuatan Ducting
(setq PanDuct (getreal"\nTentukan Panjang Ducting:")
LeDuct (getreal"\nTentukan Lebar Ducting:")
DiaDuct (getreal"\nTentukan Dia. Ducting:")
TingDuct (getreal "\nTentukan Tinggi Ducting:")
JumSeg (getreal "\nTentukan Jumlah Segment:")
);setq
;Pengolahan Data
(setq AD PanDuct
CD LeDuct
FH DiaDuct
FI (/ (- CD FH)2)
dn TingDuct
PQ (sqrt (+(expt FI 2)(expt dn 2)))
); Panjang Rusuk FIP
(setq ID (/ PanDuct 2)
DF (sqrt (+(expt FI 2) (expt ID 2)))
dg DF
ng (sqrt (+(expt dn 2) (expt dg 2)))
); Panjang rusuk ng
;Pembuatan segitiga Panjang
(setq pt1 (getpoint "nTentukan Titik Peletakan:")
pt2 (list (+ (car pt1) ID) (cadr pt1))
pt4 (list (- (car pt1) ID) (cadr pt1))
pt3 (list (car pt1) (cadr(polar pt1 (DTR 90.0) PQ)))
)
(command "_PLINE" pt1 pt2 pt3 pt4 pt1 "")
;stuck :-(
谢谢
UdaAf公司
R2C_2。图纸 点pt5、pt6、pt7和pt在图形的俯视图和侧视图中表示的内容并不十分明显。
我没有任何公式，但我会给你一个提示。让我们找出三角形F-a-D边的实际长度，如俯视图所示，因此可以在零件开发过程中构建该三角形。
我们知道“F”和“a”之间的距离是在俯视图中看到的真实距离，因此我们得到了边F-a的真实长度。
边F-D是俯视图中“F”和“D”之间距离的平方和与过渡部分高度平方之和的平方根。
三角形的第三条边是a-D边，也是俯视图中“a”和“D”之间距离的平方和与过渡部分高度平方的平方根。
这适用于图形顶视图中的任何下一个三角形（三角形a-b-D、b-c-D、c-G-D和圆周围的所有其他三角形）。
玩得高兴
保罗。 Hei paulmcz谢谢你的解释。
页:
[1]