【已解决】把椭圆转弧线

twtysoi

用椭圆的起点  中点  端点  用 圆弧想连,谢谢

newer

twtysoi 发表于 2020-3-11 12:26
不好意思，这几天没人做事，回复得慢，

如果你确定他们都是圆弧能表达，那么执行下面代码，批量给你转换成圆弧

1. (defun c:tt ()
   
2.   (if (and (xdrx_prompt "\n选择要转换成弧线的椭圆弧<退出>:")
   
3.            (setq ss (ssget '((0 . "ellipse"))))
   
4.       )
   
5.     (progn
   
6.       (xdrx_begin)
   
7.       (setq i 0)
   
8.       (mapcar '(lambda (x)
   
9.                  (setq pts (xdrx_getsamplept x))
   
10.                  (setq ge (xdge::constructor
    
11.                             "kcircarc3d"
    
12.                             (car pts)
    
13.                             (cadr pts)
    
14.                             (last pts)
    
15.                           )
    
16.                  )
    
17.                  (xdge::entity:make ge)
    
18.                  (xdrx_entity_setpropertiesfrom (entlast) x)
    
19.                  (setq i (1+ i))
    
20.                  (xdge::free ge)
    
21.                )
    
22.               (xdrx_pickset->ents ss)
    
23.       )
    
24.       (xdrx_entity_delete ss)
    
25.       (xdrx_prompt "\n成功转换了" i "个椭圆弧到圆弧.")
    
26.       (xdrx_end)
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    
31. 
    

(defun c:tt ()<br />   (if (and (xdrx_prompt "\n选择要转换成弧线的椭圆弧<退出>:")<br />            (setq ss (ssget '((0 . "ellipse"))))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (setq i 0)<br />       (mapcar '(lambda (x)<br />                  (setq pts (xdrx_getsamplept x))<br />                  (setq ge (xdge::constructor<br />                             "kcircarc3d"<br />                             (car pts)<br />                             (cadr pts)<br />                             (last pts)<br />                           )<br />                  )<br />                  (xdge::entity:make ge)<br />                  (xdrx_entity_setpropertiesfrom (entlast) x)<br />                  (setq i (1+ i))<br />                  (xdge::free ge)<br />                )<br />               (xdrx_pickset->ents ss)<br />       )<br />       (xdrx_entity_delete ss)<br />       (xdrx_prompt "\n成功转换了" i "个椭圆弧到圆弧.")<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

Lisphk

现成的

用一阶导数连续的光滑的圆弧模拟椭圆和样条曲线

28 个回复 - 747 次查看

以前论坛上有用多段线（直线段）拟合椭圆和样条曲线，通过给弦高距离做精度去拟合，缺点是曲线结合处不连续，不光滑，节点数极多，只能满足下看的需要，实际应用作用不大。 下面的插件是用双圆弧法去拟合椭圆 ...

2017-2-28 23:08 - newer - 每日插件

椭圆（弧）转换为多段线弧（非直线模拟）

17 个回复 - 368 次查看

椭圆（弧）转换为多段线弧（非直线模拟） 加载后，执行命令：EL2PL 函数 sublist ：

2017-8-2 14:45 - marting - A/VLISP

twtysoi

Lisphk 发表于 2020-3-10 11:14
现成的

用一阶导数连续的光滑的圆弧模拟椭圆和样条曲线28 个回复 - 747 次查看以前论坛上有用多段线（直 ...

很好，多谢，我有个建议，能不能帮我优化下，就是当长轴跟短轴相同时，用一条弧相连就好了

Lisphk

twtysoi 发表于 2020-3-10 12:49
很好，多谢，我有个建议，能不能帮我优化下，就是当长轴跟短轴相同时，用一条弧相连就好了

长轴跟短轴相同时候，那不就是个圆了

twtysoi

Lisphk 发表于 2020-3-10 16:12
长轴跟短轴相同时候，那不就是个圆了

对，但是从3D截面出来的，他的属性是椭圆，不是圆，

XDSoft

twtysoi 发表于 2020-3-10 18:30
对，但是从3D截面出来的，他的属性是椭圆，不是圆，

请把DWG图用附件传上来

laiyuming

good!!!!!!!!!

twtysoi

XDSoft 发表于 2020-3-10 19:25
请把DWG图用附件传上来

不好意思，这几天没人做事，回复得慢，

twtysoi

newer 发表于 2020-3-11 13:28
如果你确定他们都是圆弧能表达，那么执行下面代码，批量给你转换成圆弧

多谢，老大