阅读下一篇
一个画楼梯的超小程序,大家帮忙看下哪错了大家帮忙看下这个画楼梯的小程序有什么错误?为什么会导致在画图时用滚轮缩小图形后,程序画出来的图就不对了?(defun C:qt (/ pa hh ww n pp p1 p2) (setq pa (getpoint "\n 左下角点:")) (setq hh (getreal "\n 台阶高度:")) (setq ww (getreal "\n 台阶宽度:")) (if (null ww) (setq ww 520.0)) ;当宽度未赋值时,定义宽度为520
回帖成功
经验值 +10
全部回复(2 )
只看楼主 我来说两句抢地板回复 举报
回复 举报