Question

跪求CAD VBA高手出招！！！Autocad VBA 如何实现将框选的对象中的所有点都拉到其坐标保留一位小数的点。

例如三个点（100.23,0,0）（200.56,0,0）（100.58,200.88,0) 三个点连接的三角形，CAD VBA 命令可以框选图形，框选后所有角点自动拉到（像鼠标点击拉动夹点一样）（100.2,0,0）（200.6,0,0）（100.6,200,9,0）。万分感谢，急求，谢谢！

Answer 1

就是个算法的问题，读取点的坐标，修改点的坐标（x,y,z）属性，修改属性的时候保留一位小数四舍五入就行了。