第一问答网»论坛 › 中问网 › 问答 › 为什么我设计的这个画圆程序不在线段的中点处画圆，而是 ...

为什么我设计的这个画圆程序不在线段的中点处画圆，而是在线段的起始点处画圆？

11 |

1 | 2012-1-6 12:45:10 | 显示全部楼层 |阅读模式

(setqen(entsel\"\\n选取线段\"))(setqen_data(entget(caren)))(setqpts(cdr(assoc10en_data)));(setqptt1(cdrpts))(setqpx1(carpts))(setqpy1(cadrpts))(setqpte(cdr(assoc11en_data)));(setqptt2(cdrpte))(setqpx2(carpte))(setqpy2(cadrpte))(setqpx(/(px1px2)2))(setqpy(/(py1py2)2))(setqmpt(listpxpy))(setqmr(getreal\"\\n输入圆的半径R:\"))(command\"circle\"mptmr)(prin1)

使用道具举报