悬挂点加点的程序，请各位帮助解决一下，谢谢

梦了无痕

14楼写的很好，只是图形有细微未连接的时候会报错，把这一句替换就好了。 (if (and (not (member 点1 点表2))
                    (< (distance (vlax-curve-getClosestPointTo (vlax-ename->vla-object (car 图元表2)) 点1) 点1) 0.01))

gangang5241

感谢，1111111111111111