梦了无痕 发表于 2018-4-11 10:26:52

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

gangang5241 发表于 2018-12-31 10:30:58

感谢，1111111111111111
页: 1 2 [3]
查看完整版本: 悬挂点加点的程序，请各位帮助解决一下，谢谢