[求助]：同一个程序在不同机子上运行结果不一致!?

caddog

我写了一个程序,发现在不同的机子上运行的结果不一样!?不知为何,请各位高手指点:
程序的目的是选择多边形外指定范围内的实体.实现方法是首先选取多边形,对其进行(正/负)偏移,求出其中面积大者,取出其顶点坐标,然后用SSGET的"_F"进行选择.
出现的问题就在对偏移出的两个多边形的删除上,在我的笔记本上运行时,将原来的那个多边形也删除掉了.但在台式机上结果正常.不知为何?(都是WINXP+ACAD2004)
我还传了一个DWG上来
下面是程序的片断.

1. 
   
2.   [FONT=courier new]
   
3. (SETQ en-pl1 (car (entsel)))
   
4. (SETQ obj-pl1 (VLAX-ENAME->VLA-OBJECT en-pl1))
   
5. 
   
6. (SETQ obj-pl2
   
7.        (CAR (VLAX-SAFEARRAY->LIST
   
8.               (VLAX-VARIANT-VALUE (VLA-OFFSET obj-pl1 0.5))
   
9.             )
   
10.        )
    
11. )
    
12. (VLA-PUT-LAYER obj-pl2 "偏移多边形")
    
13. (VLA-UPDATE obj-pl2)
    
14. (SETQ obj-pl3
    
15.        (CAR (VLAX-SAFEARRAY->LIST
    
16.               (VLAX-VARIANT-VALUE
    
17.                 (VLA-OFFSET obj-pl1 (* -1 0.51))
    
18.               )
    
19.             )
    
20.        )
    
21. )
    
22. (VLA-PUT-LAYER obj-pl3 "偏移多边形")
    
23. (VLA-UPDATE obj-pl3)
    
24. 
    
25. ;;取出偏移出的多边形的面积
    
26. (SETQ area-pl2 (VLA-GET-AREA obj-pl2)
    
27.       area-pl3 (VLA-GET-AREA obj-pl3)
    
28. )
    
29. ;;先删除掉偏移出的两个多边形
    
30. ;;执行了下面两句后,OBJ-PL1也被删除掉了
    
31. (ENTDEL (VLAX-VLA-OBJECT->ENAME obj-pl2))
    
32. (ENTDEL (VLAX-VLA-OBJECT->ENAME obj-pl3))
    
33. 
    
34.   [/FONT]
    

复制代码

运行前:
e:\t1.bmp
运行后:
e:\t2.bmp

snoopychen

个人测试结果：与你台式机的结果相同，不会误删原物体

感觉：会不会与你笔记本自动加载的某些程序有冲突