1456| 11
|
[提问] (求助)请教各位大神关于“生成直线阵列”看看能不能帮忙解决 |
10明经币
最佳答案小改即可,嘿嘿....
(defun C:NM (/ p1 p1d p2 ps ps1 ps2)
(setq p1 (getpoint "\n第一点:"))
(setq p2 (getpoint "\n第二点:" p1))
(or *dchangdu* (setq *dchangdu* 1))
(setq *dchangdu* (if (setq odchangdu(getdist(strcat "\r请输入直线长度:")))
odchangdu
*dchangdu*
)
)
(or *djianju* (setq *djianju* 1))
(setq *djianju* (if (setq odjia ...
| ||
| ||
点评
(repeat (1- cishu) ...
评分 | ||
| ||
| ||
| ||
| ||
| ||