资源说明:(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 输入弧版厚度:"))
本源码包内暂不包含可直接显示的源代码文件,请下载源码包。