[讨论]：填充面积的Lisp程序错

ee_do

保证水平拉伸了，用AREA命令边界的梯形面积确实是15000，而程序却不是。实验很简单。

eachy

最初由 ee_do 发布
[B]保证水平拉伸了，用AREA命令边界的梯形面积确实是15000，而程序却不是。实验很简单。 [/B]

1. 
   
2. 命令: 指定对角点:
   
3. 命令: _rectang
   
4. 
   
5. 指定第一个角点或 [倒角(C)/标高(E)/圆角(F)/厚度(T)/宽度(W)]:
   
6. 指定另一个角点或 [尺寸(D)]: @100,100
   
7. 命令: z ZOOM
   
8. 指定窗口角点，输入比例因子 (nX 或 nXP)，或
   
9. [全部(A)/中心点(C)/动态(D)/范围(E)/上一个(P)/比例(S)/窗口(W)] <实时>: e
   
10. 命令: bh BHATCH
    
11. 选择对象: 找到 1 个
    
12. 
    
13. 选择对象:
    
14. 
    
15. <按 Enter 键或单击鼠标右键返回对话框>
    
16. <按 Enter 键或单击鼠标右键返回对话框>
    
17. <按 Enter 键或单击鼠标右键返回对话框>
    
18. 命令:
    
19. 命令:
    
20. 命令:
    
21. 命令: _ha_area
    
22. 正在初始化...
    
23. 请选取计算面积的Hatch,Solid实体[ALL-全选]<退出>:找到 1 个
    
24. 
    
25. 共选取了 1 个Hatch, 0 个Solid,面积总和是：10000.00
    
26. 
    
27. 命令:
    
28. 命令: 指定对角点:
    
29. 命令:
    
30. 
    
31. ** 拉伸 **
    
32. 指定拉伸点或 [基点(B)/复制(C)/放弃(U)/退出(X)]: 100
    
33. 
    
34. 命令: *取消*
    
35. 
    
36. 命令:
    
37. 命令:
    
38. 命令:
    
39. 命令: _ha_area
    
40. 请选取计算面积的Hatch,Solid实体[ALL-全选]<退出>:找到 1 个
    
41. 
    
42. 共选取了 1 个Hatch, 0 个Solid,面积总和是：15000.00
    
43. 命令:
    

复制代码

doongs

对了，填充边界常有一个问题是我常常要把hatch放到一片空白区，然后才敢用边界生成，否则和边界相切的线条常常会消失！！这样也有点麻烦啊！

XDSoft

最初由 doongs 发布
[B]对了，填充边界常有一个问题是我常常要把hatch放到一片空白区，然后才敢用边界生成，否则和边界相切的线条常常会消失！！这样也有点麻烦啊！ [/B]

把这样的图压缩一个，贴论坛来吧。