高手大虾帮帮菜鸟！！！急急急！！！！！！！

meflying

那你看看这个行不行

2. 
   
3. (defun c:draw()
   
4.   (prompt "三阶轴绘制程序,请输入各参数:")
   
5.   (setq l1 (getreal "\n输入第一段长度:"))
   
6.   (setq d1 (getreal "\n输入第一段直径:"))
   
7.   (setq l2 (getreal "\n输入第二段长度:"))
   
8.   (setq d2 (getreal "\n输入第二段直径:"))
   
9.   (setq l3 (getreal "\n输入第三段长度:"))
   
10.   (setq d3 (getreal "\n输入第三段直径:"))
    
11.   (setq pt (getpoint "\n输入起点:"))
    
12.   (command "_.rectangle" pt (list (+ (car pt) l1) (+ (cadr pt) d1)))
    
13.   ;(command "_.pline" (polar pt 0 l1) pt (polar pt (/ pi 2) d1) (list (+ (car pt) l1) (+ (cadr pt) d1)) "")
    
14.   (setq pt2 (list (+ (car pt) l1) (- (cadr pt) (/ (- d2 d1) 2))))
    
15.   (command "_.rectangle" pt2 (list (+ (car pt2) l2) (+ (cadr pt2) d2)))
    
16.   (setq pt3 (list (+ (car pt2) l2) (- (cadr pt2) (/ (- d3 d2) 2))))
    
17.   (command "_.rectangle" pt3 (list (+ (car pt3) l3) (+ (cadr pt3) d3)))
    
18.   (princ)
    
19. )

<br /> (defun c:draw()<br />   (prompt "三阶轴绘制程序,请输入各参数:")<br />   (setq l1 (getreal "\n输入第一段长度:"))<br />   (setq d1 (getreal "\n输入第一段直径:"))<br />   (setq l2 (getreal "\n输入第二段长度:"))<br />   (setq d2 (getreal "\n输入第二段直径:"))<br />   (setq l3 (getreal "\n输入第三段长度:"))<br />   (setq d3 (getreal "\n输入第三段直径:"))<br />   (setq pt (getpoint "\n输入起点:"))<br />   (command "_.rectangle" pt (list (+ (car pt) l1) (+ (cadr pt) d1)))<br />   ;(command "_.pline" (polar pt 0 l1) pt (polar pt (/ pi 2) d1) (list (+ (car pt) l1) (+ (cadr pt) d1)) "")<br />   (setq pt2 (list (+ (car pt) l1) (- (cadr pt) (/ (- d2 d1) 2))))<br />   (command "_.rectangle" pt2 (list (+ (car pt2) l2) (+ (cadr pt2) d2)))<br />   (setq pt3 (list (+ (car pt2) l2) (- (cadr pt2) (/ (- d3 d2) 2))))<br />   (command "_.rectangle" pt3 (list (+ (car pt3) l3) (+ (cadr pt3) d3)))<br />   (princ)<br /> )

刘晴

真是八仙过海各显其能啊！！！可明是帮助，另一面却是害！  帮一个学生骗老师，高啊！

刘晴

不会不会学吗！  放下自尊，向别人乞讨，可卑，可恨，可怜。好好反省吧。

刘晴

只识随便说说 ，可别想不开啊，其实在你们内心最深处一定同意我的说法，不信问自己100边，