[讨论]：为什么求出来的是整数？

yjtdkj

我有这样一个程序，为什么求出来的三角形面积是整数？

2. 
   
3.   [FONT=courier new]
   
4. (defun c:8test2        (/ area1 en oldosm per1 per2 per3 pt1 pt2 pt3)
   
5.   (setq oldosm (getvar "osmode"));储存当前的捕捉点设置
   
6.   (setvar "osmode" 0);设置当前为无捕捉点状态
   
7.   (setq en (entsel "\n请选择三角形的一条边："));点选一条直线
   
8.   (setq        per1 (getlen (car en));取得一条直线的长度
   
9.         pt1  (cadr en);取得点选时的点坐标
   
10.   )
    
11. 
    
12.   (setq en (entsel "\n请选择三角形的二条边："))
    
13.   (setq        per2 (getlen (car en))
    
14.         pt2  (cadr en)
    
15.   )
    
16.   (setq en (entsel "\n请选择三角形的三条边："))
    
17.   (setq        per3 (getlen (car en))
    
18.         pt3  (cadr en)
    
19.   )
    
20.   (setq area1 (area3w per1 per2 per3));求得三角形面积
    
21.   (command "circle" "3p" "tan" pt1 "tan" pt2 "tan" pt3);画三角形的内切圆
    
22.   (setvar "osmode" oldosm);恢复当前的捕捉点设置
    
23.   (princ "三角形面积为=")
    
24.   (princ area1)
    
25.   (prin1)
    
26. )
    
27. ;;;调用方法->(area3w 边长1 边长2 边长3 )->可返回三角形面积
    
28. (defun area3w (a b c)
    
29.   (setq s (* (+ a b c ) 0.5))
    
30.   (sqrt (* s (- s a) (- s b) (- s c)))
    
31.   )
    
32. ;;;调用方法->(getlen 对象名称)->可返回该对象的长度
    
33. ;;;可处理对象包括line arc pline lwpolyline circle
    
34. (defun getlen (ent)
    
35.   (command "lengthen" ent "")
    
36.   (getvar "perimeter"))
    
37.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:8test2        (/ area1 en oldosm per1 per2 per3 pt1 pt2 pt3)<br />   (setq oldosm (getvar "osmode"));储存当前的捕捉点设置<br />   (setvar "osmode" 0);设置当前为无捕捉点状态<br />   (setq en (entsel "\n请选择三角形的一条边："));点选一条直线<br />   (setq        per1 (getlen (car en));取得一条直线的长度<br />         pt1  (cadr en);取得点选时的点坐标<br />   )<br /> <br />   (setq en (entsel "\n请选择三角形的二条边："))<br />   (setq        per2 (getlen (car en))<br />         pt2  (cadr en)<br />   )<br />   (setq en (entsel "\n请选择三角形的三条边："))<br />   (setq        per3 (getlen (car en))<br />         pt3  (cadr en)<br />   )<br />   (setq area1 (area3w per1 per2 per3));求得三角形面积<br />   (command "circle" "3p" "tan" pt1 "tan" pt2 "tan" pt3);画三角形的内切圆<br />   (setvar "osmode" oldosm);恢复当前的捕捉点设置<br />   (princ "三角形面积为=")<br />   (princ area1)<br />   (prin1)<br /> )<br /> ;;;调用方法->(area3w 边长1 边长2 边长3 )->可返回三角形面积<br /> (defun area3w (a b c)<br />   (setq s (* (+ a b c ) 0.5))<br />   (sqrt (* s (- s a) (- s b) (- s c)))<br />   )<br /> ;;;调用方法->(getlen 对象名称)->可返回该对象的长度<br /> ;;;可处理对象包括line arc pline lwpolyline circle<br /> (defun getlen (ent)<br />   (command "lengthen" ent "")<br />   (getvar "perimeter"))<br />   [/FONT]<br />

Underway

试试 Luprec

狂刀

不可能阿，只是显示问题吧
你用　ｒｔｏｓ　２　２　转换来显示一下

qjcpj

最初由 yjtdkj 发布
[B]我有这样一个程序，为什么求出来的三角形面积是整数？[/B]

系统变量LUPREC被设置为0的缘故。你可在程序中先读出并保存系统变量LUPREC数值，之后修改你需要的系统变量LUPREC值，最后将保存的恢复即可。
另楼主的“((defun c:8test2...”多一个“(”，程序不能正常运行。

WHGF

改一下系统变量LUPREC，它决定小数后的位数

yjtdkj

改系统变量LUPREC没有效果，还是“狂刀”说的对，用RTOS来改精度
原因是不是PRINC函数只能显示小数点后一位？

Underway

if Just something like 3.000 or 7.000

yjtdkj

楼上的！！你是在灌水吗？