这个是样条曲线转圆弧多段线的问题 希望大神位能帮我解决一下

shqvc

样条曲线转圆弧多段线  
我是做刀模的  刀模这个行业我相信大家还很陌生  以后我会整理介绍一下我们的这个行业  现在就不说那么多了
我们要做的是刀模
刀模的线不能是样条曲线和椭圆线
因为要上切割机和弯刀机
而这样的样条曲线不能用
我们只能手工再按着这个再画一遍
而且画的不如转出来的好
我试过ET扩展工具里的转二维线
不知道为什么
提示对象不在当前空间中
不知道哪位高手能解决这个问题
只要能转成二维圆弧多段线就好  我提前谢谢了

newer

shqvc 发表于 2019-2-11 16:19
什么是折线拟合的多段线  是那个一个一个直线连接成的那种多段线吗？ 不是那种圆弧连接成的多段线是吗？

可以用圆弧拟合也可以用折线拟合的，你看下这个

用圆弧或者折线转换SPLINE

50 个回复 - 1795 次查看

**** 本内容被作者隐藏 ****

2013-12-27 23:44 - newer - 每日插件

用圆弧拟合的，效果，每一段都是弧线，相邻弧线相切，也就是平滑过渡。

newer

看了你的图，只能转换成折线拟合的多段线，论坛有代码

shqvc

newer 发表于 2019-2-11 15:06
看了你的图，只能转换成折线拟合的多段线，论坛有代码

什么是折线拟合的多段线  是那个一个一个直线连接成的那种多段线吗？ 不是那种圆弧连接成的多段线是吗？

newer

shqvc 发表于 2019-2-11 16:19
什么是折线拟合的多段线  是那个一个一个直线连接成的那种多段线吗？ 不是那种圆弧连接成的多段线是吗？

你这样的图，已经转不成用弧线的了，而且很多画的也根本就不是弧线能贴合的
转换后是下面这样的

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (if (not #xd_var_global_tol)
   
4.     (setq #xd_var_global_tol (/ (xd::doc:getpickboxheight) 64.0))
   
5.   )
   
6.   (if (setq var (getreal
   
7.                   (xdrx_prompt "\n输入弦高距<" #xd_var_global_tol ">:" t)
   
8.                 )
   
9.       )
   
10.     (setq #xd_var_global_tol var)
    
11.   )
    
12.   (if (and (xdrx_initssget "\n选择要转换的SPLINE<退出>:")
    
13.            (setq ss (xdrx_ssget '((0 . "spline"))))
    
14.       )
    
15.     (progn (xdrx_ui_prgcmdbar
    
16.              "\n正在转换SPLINE到多段线..."
    
17.              (setq len (sslength ss))
    
18.              0.5
    
19.            )
    
20.            (xdrx_setsstodb ss 0)
    
21.            (while (setq e (xdrx_getentdata 0))
    
22.              (xdrx_ui_prgcmdbar t)
    
23.              (setq pts (xdrx_getsamplept e #xd_var_global_tol))
    
24.              (xdrx_polyline_make pts)
    
25.              (if (xdrx_curve_isclosed e)
    
26.                (xdrx_curve_setclosed (entlast)))
    
27.              (xdrx_entity_setpropertiesfrom (entlast) e)
    
28.              (xdrx_entity_delete e)
    
29.            )
    
30.            (xdrx_ui_prgcmdbar)
    
31.            (xdrx_prompt ".完毕.")
    
32.            (xdrx_prompt "\n成功转换了" len "个SPLINE到多段线.")
    
33.     )
    
34.   )
    
35.   (xdrx_end)
    
36.   (princ)
    
37. )
    

(defun c:tt ()<br />   (xdrx_begin)<br />   (if (not #xd_var_global_tol)<br />     (setq #xd_var_global_tol (/ (xd::doc:getpickboxheight) 64.0))<br />   )<br />   (if (setq var (getreal<br />                   (xdrx_prompt "\n输入弦高距<" #xd_var_global_tol ">:" t)<br />                 )<br />       )<br />     (setq #xd_var_global_tol var)<br />   )<br />   (if (and (xdrx_initssget "\n选择要转换的SPLINE<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "spline"))))<br />       )<br />     (progn (xdrx_ui_prgcmdbar<br />              "\n正在转换SPLINE到多段线..."<br />              (setq len (sslength ss))<br />              0.5<br />            )<br />            (xdrx_setsstodb ss 0)<br />            (while (setq e (xdrx_getentdata 0))<br />              (xdrx_ui_prgcmdbar t)<br />              (setq pts (xdrx_getsamplept e #xd_var_global_tol))<br />              (xdrx_polyline_make pts)<br />              (if (xdrx_curve_isclosed e)<br />                (xdrx_curve_setclosed (entlast)))<br />              (xdrx_entity_setpropertiesfrom (entlast) e)<br />              (xdrx_entity_delete e)<br />            )<br />            (xdrx_ui_prgcmdbar)<br />            (xdrx_prompt ".完毕.")<br />            (xdrx_prompt "\n成功转换了" len "个SPLINE到多段线.")<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br />

shqvc

newer 发表于 2019-2-11 15:06
看了你的图，只能转换成折线拟合的多段线，论坛有代码

什么是折线拟合的多段线  是那个一个一个直线连接成的那种多段线吗？ 不是那种圆弧连接成的多段线是吗？

coverne

看下这个行业

newer

newer 发表于 2019-2-11 11:37
可以用圆弧拟合也可以用折线拟合的，你看下这个

用圆弧或者折线转换SPLINE50 个回复 - 1795 次查看*** ...

这个就是双圆弧拟合样条曲线