[VBA函数]：返回的 直线的坐标不对？

xsquan

斑竹，上次那个选上了和fence不相交的实体，后来我发现选取当作fence的直线的时候，返回的直线的坐标和在cad图上的坐标不一样，请指教！！但是后来我在ucs命令下，用world坐标系就解决了问题，为什么在vb中这样获取坐标是world坐标，用什么办法可以解决一下？

efan2000

VBA中的所有操作都是相对于世界坐标系的，如果使用其它坐标系的话，那么要先转化成世界坐标系，然后执行完操作后，再转回到原来的坐标系，这是系统本身的环境所要求的，那就没什么办法可以解决，只能按它的规则来处理了。

xsquan

那为什么用fence选择的时候要求直线的坐标是ucs的坐标呢，

efan2000

这是在帮助文件中的说明，指定Fence方式选择所组成的点数组应为世界坐标系中的3D点。

1. 
   
2.   [FONT=courier new]
   
3. object.SelectByPolygon Mode, PointsList, FilterType, FilterData
   
4. 
   
5. Object        SelectionSet
   
6. The object or objects this method applies to.
   
7. 
   
8. Mode        AcSelect enum; input-only
   
9. acSelectionSetFence
   
10. acSelectionSetWindowPolygon
    
11. acSelectionSetCrossingPolygon
    
12. 
    
13. PointsList        Variant (array of doubles); input-only
    
14. An array of 3D WCS coordinates specifying the selection fence.
    
15. 
    
16. FilterType        Integer; input-only; optional
    
17. A DXF group code specifying the type of filter to use.
    
18. 
    
19. FilterData        Variant; input-only; optional
    
20. The value to filter on.
    
21.   [/FONT]
    

复制代码

xsquan

我用vb获得ucs坐标图上的直线，这时候的坐标是world坐标的，然后我通过转换得到ucs的坐标，object.SelectByPolygon Mode, PointsList, FilterType, FilterData，这个时候PointsList的坐标是ucs的坐标了，请问这样应该就能把和直线相交的都选上了把，也不用把整个图的ucs转换world这样处理，