重画圆弧！！！

cj52000

各位好，工作中直线和圆弧在串连成多段线时有时经常串不上，多数是出现在R角圆弧问题上，把R角删掉重新倒一个基本上就连得上，想有这样一个程序，功能是：框选欲串连成多段线的对象，把原R角删除，重新倒一个新R角和原来大小一样，这样就不需要一个个试到底是哪个R角出问题了，谢大家啦！

jltx123456

去 编程申请版块 !

无图, 无档 ,无代码就没必要讨论啦!

前生

机械加工中线割程序什么的，是需要这个功能。个人感觉是圆弧的起点以及端点与相邻的线没有足够重合，但是也有一种情况是，二个斜线倒圆弧角，也是串不起来，要重新3点画弧才可，是有些奇怪。

llsheng_73

串不上可以把连接距离适当调整大一点点而不用默认的0，一般情况下就可以了

cj52000

谢谢以上两位长老的回复，有时候R角太多，不知道是哪一个出问题，就只好先串，然后看哪里断开了，就直接把哪里的R角删掉重画，这个程序其实是小陶工具箱里有的，但是用不了，所以来求助大家

xiaolong1487

重画是可以，但要保证能串起来就不行

cj52000

xiaolong1487 发表于 2015-12-10 19:08
重画是可以，但要保证能串起来就不行

嗯，目前只是要求能重画，能否串联看运气了因为有时也并不是R角原因，请指教啊！

xiaolong1487

cj52000 发表于 2015-12-11 09:58
嗯，目前只是要求能重画，能否串联看运气了因为有时也并不是R角原因，请指教啊！

xl-3p 提取任何曲线的起点、中点和终点
2006-05-18 14:08:09   来源：明经通道   评论：1 点击：10535
函数：
xl-3p
功能：
提取任何曲线的起点、中点和终点
函数代码：
(DEFUN xl-3p (e / ps pe pm)
   (setq ps (vlax-curve-getstartparam e)
         pe (vlax-curve-getendparam e)
         pm (/ (- pe ps) 2))
   (mapcar 'vlax-curve-getpointatparam (list e e e) (list ps pm pe))
)
语法：
(xl-3p e)
参数：
e：任意曲线对象
返回值：
返回表，格式为(起点 中点 终点)

用这个获取圆弧的(起点 中点 终点) 再画弧