阅读下一篇
流浪水手在线你啦,有事想求这是你上次帮我改好的代码谢谢(defun c:cd (/) (setvar "cmdecho" 1) (setq a1 (getpoint "\n第一点") a2 (getpoint "\n第二点") a3 (getstring "\n输入管径") a4 (getstring "\n输入坡度") ang (* (/ (angle a1 a2) pi) 180) dist (rtos (/ (distance a1 a2) 1000) 2 1)
回帖成功
经验值 +10
全部回复(1 )
只看楼主 我来说两句 抢板凳