我试图用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。图纸 | 
置顶卡
