上传者: zhxhzhxh
|
上传时间: 2022-01-10 21:28:11
|
文件大小: 4KB
|
文件类型: -
(defun c:22 (/ YC R FC FH A RA B EB REB C EC REC RLA RLB FDA FDB FDC FDD RLD RLDA FRLDA FRLDD FFD RREB DEL XD DEL)
(ETEND 300)
(if (> UF_estimate 0)
(progn
(setq YC (getpoint "输入圆心:"))
(setq R (getdist "\n 输入半径:"))
(setq FC (getdist "\n 输入弧长:"))
(setq FH (getdist "\n 输入弧版厚度:"))