[LISP函数]：新手上路,请大家多帮忙!

LC10426

2. [font=courier]
   
3. defun c:SJ ()
   
4. (setq a (getreal "直角边="))
   
5.    (setq b (getreal "另一直角边="))
   
6.    (setq p0 (getpoint "enter start point:"))
   
7. (setq x0 (car p0) y0 (cadr p0))
   
8. (setq p1 (list (+ x0 a) y0))
   
9. (setq p2 (list (+ x0 a) (+ y0 b)))
   
10. (command "line" p1 p2 p0 "")
    
11. (setq d (distance p0 p1))
    
12. (setq d (fix d))
    
13. (setq x (list (+ (car p0) 400) (cadr p0)
    
14.            ))
    
15. (command "dim" "al" p0 p1 x d "")
    
16. (setq d (distance p0 p2))
    
17. (setq d (fix d))
    
18. (setq x (list (+ (car p0) 400) (cadr p0)
    
19.            ))
    
20. (command "dim" "al" p0 p2 x d "")
    
21. (setq d (distance p2 p1))
    
22. (setq d (fix d))
    
23. (setq x (list (+ (car p2) 400) (cadr p2)
    
24.            ))
    
25. (command "dim" "al" p2 p1 x d """ exit")
    
26. )
    
27. 
    
28. [/font]

[font=courier]<br /> defun c:SJ ()<br /> (setq a (getreal "直角边="))<br />    (setq b (getreal "另一直角边="))<br />    (setq p0 (getpoint "enter start point:"))<br /> (setq x0 (car p0) y0 (cadr p0))<br /> (setq p1 (list (+ x0 a) y0))<br /> (setq p2 (list (+ x0 a) (+ y0 b)))<br /> (command "line" p1 p2 p0 "")<br /> (setq d (distance p0 p1))<br /> (setq d (fix d))<br /> (setq x (list (+ (car p0) 400) (cadr p0) <br />            ))<br /> (command "dim" "al" p0 p1 x d "")<br /> (setq d (distance p0 p2))<br /> (setq d (fix d))<br /> (setq x (list (+ (car p0) 400) (cadr p0) <br />            ))<br /> (command "dim" "al" p0 p2 x d "")<br /> (setq d (distance p2 p1))<br /> (setq d (fix d))<br /> (setq x (list (+ (car p2) 400) (cadr p2) <br />            ))<br /> (command "dim" "al" p2 p1 x d """ exit")<br /> )<br /> <br /> [/font]

问题
1).如何让画出来的直角边是实线黄颜色的,而斜边是虚线白色的
2.)标注的结果只显示数值,不需要其他的标注线,且显示的数值只保留一位小数.

ll_j

1.设置颜色使用“(command "color" 1)”这样的命令，或使用“(setvar "cecolor" "1")”注意设定随层或随块时使用“"bylayer"、"byblock"”（字符串）。
设置线形可使用“(command "linetype" "set" "hidden" "")”这样的命令，如使用setvar函数设定系统变量celtype，则使用的线形必须在图中已设定。
2.标注样式建议在图中设定，或通过计算直接显示text或Mtext，在Lisp中定义标注类型是相当复杂的。